Question

VB怎样才能在窗体的任何部位拖动窗口

VB怎样才能在窗体的任何部位拖动窗口
就像QQ2009和QQ2009安装程序那样
我是说在任何部位啊
不光是标题栏

Answer 1

窗体的move事件

Dim xa As Single, ya As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xa = X
ya = 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 + X - xa, Me.Top + Y - ya
End Sub

Answer 2

vb本来就可以拖动窗体的啊,鼠标放在窗体框上边按住左键随你怎样么拖都行