Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As IntPtr, _ ByVal wMsg As Integer, _ ByVal wParam As Integer, _ ByVal lParam As Integer) _ As Boolean Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean Const WM_SYSCOMMAND = &H112 Const SC_MOVE = &HF010& Const HTCAPTION = 2 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove ReleaseCapture() SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub
VB.NET拖动无边框窗体API
最新推荐文章于 2021-10-30 18:46:28 发布