怎么通过鼠标来控制TEXT控件的位置和移动？

Question

如题！

Answer 1

Public isMove As Boolean
Public bX, bY As LongPrivate Sub Form_Load()
isMove = False
End SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
   isMove = True
   bX = X
   bY = Y
End If
End SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And isMove Then
   Text1.Move X + Text1.Left - bX, Y + Text1.Top - bY
End If
End SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
isMove = False
End Sub