Visual Basic 和 MoveWindow 将外部应用窗口发送到屏幕外-解网

问：

我正在尝试从我的应用程序中放置几个外部窗口，但最终要么在左上角附近的屏幕上只剩下标题栏的一部分，要么窗口向右走得很远，最终达到 x = 32767

函数声明位于模块中，Move_Notepad Sub 是表单的一部分。

    Option Explicit On

    Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function MoveWindow Lib "user32.dll" Alias "MoveWindow" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long


    Public Sub Move_Notepad()
         'Move NotePad to 1,1 and set its Width and height to 800,720 (pixels)
         Dim GoWindow As Long
         hWinHand = FindWindow(vbNullString, "Untitled - Notepad")
         GoWindow = MoveWindow(hWinHand, 1, 1, 800, 720, 1)
    End Sub

    Private Sub bMove_Notepad_Click(sender As Object, e As EventArgs) Handles bMove_Notepad.Click
        Move_Notepad()
    End Sub

移动窗口

    <DllImport("user32.dll")>
    Public Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Public Function FindWindow(
    ByVal lpClassName As String,
    ByVal lpWindowName As String) As IntPtr
    End Function

上一个：MoveWindow 在 DeSmuME 的窗口上不做任何事情

下一个：EnumChildWindows 中的 MoveWindow 对对话框内列表视图的影响：为什么 ListView 标头滚动不正确

Visual Basic 和 MoveWindow 将外部应用窗口发送到屏幕外

Visual Basic & MoveWindow sending external app window way off screen

评论