以下是引用gdlgh在2012-2-1 14:43:00的发言:
这样也可以!
'全局代码
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer,ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Integer) As Integer
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Public Sub Panel_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs)
If e.Button=MouseButtons.Left Then
ReleaseCapture()
SendMessage(sender.Parent.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
'窗口AfterLoad事件
e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown
收藏备查