//gm.angeldm.com/index.php zh-cn //gm.angeldm.com/post// 果面 <admin@yourname.com> Sat, 14 Jun 2008 08:37:46 +0000 //gm.angeldm.com/post//
　

在 BAS 文件中声明：

Declare Function ReleaseCapture Lib "user32" () As Long

Declare Function SendMessage Lib "user32" _

Alias "SendMessageA" ( _

ByVal hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As Long

Public Const HTCAPTION = 2

Public Const WM_NCLBUTTONDOWN = &HA1

　

然后，在 Form_MouseDown 事件中：

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

ReleaseCapture

SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub ]]> //gm.angeldm.com/read.php?&guid=0#topreply <user@domain.com> Thu, 01 Jan 1970 00:00:00 +0000 //gm.angeldm.com/read.php?&guid=0#topreply