作业帮 > 综合 > 作业

在VB中画直线,怎样使画下一条直线时,上一条直线保留?

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/29 15:39:59
在VB中画直线,怎样使画下一条直线时,上一条直线保留?
求回答啊,对的话我会加分的.
Dim a As Single,b As Single
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
a = X:b = Y
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then
Me.Cls
Me.Line (a,b)-(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Me.Cls
Me.AutoRedraw = True
Me.Line (a,b)-(X,Y)
Me.AutoRedraw = False
End Su
在CAD 中怎样延长一条直线 怎样在cad中画一条经过一点的直线? 怎么在cad中画一条直线 CAD中怎么在一条直线上画很多带箭头的直线 CAD中怎么在一条直线上画很多带箭头的直线? cad中如何在一条倾斜18度的直线上画一条角度为30度的直线 在CAD中如何在一条直线上画一条垂线 VB在两个图形中间连接一条直线 园沿一条直线滚动时,圆心在一条直线上运动,对么 一个圆沿着一条直线滚动时,它的（ ）也在一条直线上运动. 在CAD中怎样使一条直线变成圆弧形 判断：丙烷分子中碳原子在一条直线上