在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 01:49:32
![在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的.](/uploads/image/z/13314866-50-6.jpg?t=%E5%9C%A8VB%E4%B8%AD%E7%94%BB%E7%9B%B4%E7%BA%BF%2C%E6%80%8E%E6%A0%B7%E4%BD%BF%E7%94%BB%E4%B8%8B%E4%B8%80%E6%9D%A1%E7%9B%B4%E7%BA%BF%E6%97%B6%2C%E4%B8%8A%E4%B8%80%E6%9D%A1%E7%9B%B4%E7%BA%BF%E4%BF%9D%E7%95%99%3F%E6%B1%82%E5%9B%9E%E7%AD%94%E5%95%8A%2C%E5%AF%B9%E7%9A%84%E8%AF%9D%E6%88%91%E4%BC%9A%E5%8A%A0%E5%88%86%E7%9A%84.)
在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的.
在VB中画直线,怎样使画下一条直线时,上一条直线保留?
求回答啊,对的话我会加分的.
在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中画这么一条直线如图在两直线中添加已知长度并且水平的直线 与上面两直线相交,如何定位
在向量中怎样证明一条直线平行于一个平面