VB.NET拖动无边框窗体API

概述  Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As IntPtr, _ ByVal wMsg As

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全部内容，希望文章能够帮你解决VB.NET拖动无边框窗体API所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。