'Win32 API  
Declare Auto Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Boolean  
Declare Auto Function SendMessage Lib "user32.dll" Alias "SendMessage" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr  
'Win32 Message  
Private Const WM_SYSCOMMAND As Integer = &H112&  
Private Const SC_MOVE As Integer = &HF010&  
Private Const HTCAPTION As Integer = &H2&  
Private Sub frmLogin_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove  
    If e.Button = MouseButtons.Left Then  
        ReleaseCapture()  
        SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)  
    End If  
End Sub

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*1=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情