Vb編程的窗口改成無邊框後怎麽隨意點壹處可以拖動窗口 謝謝啦啦啦啦啦

用mousedown和mousemove事件結合就可以了。以下程序可以實現點擊窗體空白部分對窗體進行拖曳移動。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

X0 = X

Y0 = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Me.Left = Me.Left + X - X0

Me.Top = Me.Top + Y - Y0

End If

End Sub