在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的.
来源:学生作业学帮网 编辑:学帮网 时间:2024/06/05 10:52:44
在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 Sub
在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的.
在vb程序中,如果绘制了一条直线,怎样让这条直线通过控制上下左右键来移动,
在CAD中怎样使一条直线变成圆弧形
vb中如何使一条直线绕直线的一端旋转,要求必须有时钟和直线俩个控件
在CAD中怎样画一条只知道角度和一点,但不知长度的直线?
在WORD中怎样画一条相当于上面有字的直线
在cad上怎么画一条有倾斜度的直线
将圆沿一条直线滚动时,圆心在()上运动?
当一条直线在一个平面上时,这条直线平行这个面吗
在三角形ABC中,画一条直线a,使图中的∠B有三个同旁内角,怎样画?
怎样在一个等腰梯形上加一条直线分成两个面积相等的三角形
在cad中怎样画一条直线与一个圆相切而且与水平线成一定夹角?
在cad中怎样画一条直线与一个圆相切而且与水平线成一定夹角?
怎么在cad中画一条直线怎么在CAD中用快捷键划出一条没有长度的直线
CAD圆形上一条直线怎么画
超简单的直线表示方法!一条直线,上有ABC三点,A在前,C在最后,怎样表示直线?
如何在CAD中画这么一条直线如图在两直线中添加已知长度并且水平的直线 与上面两直线相交,如何定位
在向量中怎样证明一条直线平行于一个平面