VB 自由移动控件教学.docVIP

自由移动控件教学 1. 2,添加一个按钮控件 dim?正在移动控件中?As?Integer,?当前X坐标值?As?Integer,?当前Y坐标值?As?Integer3,窗体代码中添加三个变量 再加三个事件代码 （下面是全代码。）Option Explicit VB不用API在EXE运行时自由移动窗口上的控件代码： Dim 正在移动控件中 As Boolean, 鼠标刚点击时的X坐标 As Integer, 鼠标刚点击时的Y坐标 As Integer Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 鼠标在按钮上点击下去时执行(此时鼠标一直按着没提起来) 正在移动控件中 = True 鼠标刚点击时的X坐标 = X 鼠标刚点击时的Y坐标 = Y End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 鼠标正在移动中,此时 If 正在移动控件中 = True Then Command1.Left = Command1.Left + X - 鼠标刚点击时的X坐标 Command1.Top = Command1.Top + Y - 鼠标刚点击时的Y坐标 End If End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 鼠标在点击的情况下,放手时产生的事件 正在移动控件中 = False End Sub