如何用VB画最简单的线

来源：百度知道 编辑：UC知道 时间：2024/05/10 13:04:54
我是个初学者基本什么不会,有个题目说是在黑色的背景上当鼠标按下移动的时候画出轨迹也就是画出线,要用到activate,mousedown,mousemove,pset
方法,可是我不会啊哪位前辈教教我啊!!!!在线等回答````````急用~~!!!!
还有一个问题就是当鼠标按下的时候能不能获得按下的点的坐标啊``````

在窗体上放4个textbox控件,用于显示鼠标的坐标,复制下面的代码,给你参考
Dim a As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = a + 1
If a = 2 Then
Line (Text1, Text2)-(X, Y) '在两次的鼠标点击之间画一直线
a = 0
End If
Text1 = X '按下的坐标x
Text2 = Y '按下的坐标y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text3 = X '鼠标当前的X坐标
Text4 = Y '鼠标当前的Y坐标
End Sub