vb 画图的问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 19:51:47
我的窗体上用line控件画了两条水平线，两条垂直线，我想当我的鼠标移到水平线时，鼠标的箭头变成上下的样子，移到垂直线时，变成左右的样子，同时我的鼠标按下左键可以拖动线条，水平线只能在垂直方位移动，垂直的在水平方向移动，急啊~~~

建一个水平的Line1。垂直的类似。我以水平的为例。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim f As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
f = X > Line1.X1 And X < Line1.X2 And Y > Line1.Y1 - 10 And Y < Line1.Y1 + 10
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = IIf(X > Line1.X1 And X < Line1.X2 And Y = Line1.Y1, vbSizeNS, vbDefault)
If f = True Then
Line1.Y1 = Y
Line1.Y2 = Y
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
f = False
End Sub

Line 控件没有任何事件，要到达你的要求，不可能。