怎样实现横向拖动一个控件.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 27 行

Dim cX As Single, cY As Single 
     
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     cX = X 
     cY = Y 
    End Sub 
     
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     
     '全 方 向 的 移 动 
     If Button = 1 Then 
     Me.Move Me.Left - cX + X, Me.Top - cY + Y 
     End If 
     
     '垂 直 
     If Button = 1 Then 
     Me.Move Me.Left, Me.Top - cY + Y 
     End If 
     
     '水 平 
     If Button = 1 Then 
     Me.Move Me.Left - cX + X, Me.Top 
     End If 
     
    End Sub 
<END>