VB.NET拖动无边框窗体API

最新推荐文章于 2025-01-14 18:08:26 发布

转载最新推荐文章于 2025-01-14 18:08:26 发布 · 562 阅读

文章标签：

#vb.net #api #integer #function #user #object

VB.NET编程技术专栏收录该内容

1 篇文章

订阅专栏

本文展示了一个使用VB.NET实现的简单程序，该程序通过自动化鼠标移动和点击操作，实现窗口的移动。代码中利用了Windows API函数如ReleaseCapture和SendMessage来完成任务。

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