如何在VB.NET中激活、移动和调整窗口大小

Question

我有一个窗口，只知道它的标题（例如Notepad），我需要激活它、调整大小并将其放置在屏幕左上角。经过在MSDN和论坛上的一些研究，我找到了一些可以实现这个目标的函数。我使用FindWindow通过标题获取句柄，然后使用GetWindowPlacement查看Notepad是否被最小化（如果没有，则只需要使用AppActivate激活）。但是如果窗口被最小化了，我尝试使用SetWindowPlacement来激活、调整大小并移动它。以下是我的代码：

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindow( _
 ByVal lpClassName As String, _
 ByVal lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll")> _
Private Shared Function GetWindowPlacement(ByVal hWnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Boolean
End Function
<DllImport("user32.dll")> _
Private Shared Function SetWindowPlacement(ByVal hWnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Boolean
End Function

Private Structure RECT
    Public Left As Integer
    Public Top As Integer
    Public Right As Integer
    Public Bottom As Integer
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
        Me.Left = X
        Me.Top = Y
        Me.Right = X2
        Me.Bottom = Y2
    End Sub
End Structure

Private Structure WINDOWPLACEMENT
    Public Length As Integer
    Public flags As Integer
    Public showCmd As ShowWindowCommands
    Public ptMinPosition As POINTAPI
    Public ptMaxPosition As POINTAPI
    Public rcNormalPosition As RECT
End Structure

Enum ShowWindowCommands As Integer
    Hide = 0
    Normal = 1
    ShowMinimized = 2
    Maximize = 3  
    ShowMaximized = 3
    ShowNoActivate = 4
    Show = 5
    Minimize = 6
    ShowMinNoActive = 7
    ShowNA = 8
    Restore = 9
    ShowDefault = 10
    ForceMinimize = 11
End Enum

Public Structure POINTAPI
    Public X As Integer
    Public Y As Integer
    Public Sub New(ByVal X As Integer, ByVal Y As Integer)
        Me.X = X
        Me.Y = Y
    End Sub
End Structure

实际执行的代码在这里:

Dim wp As WINDOWPLACEMENT
wp.Length = Marshal.SizeOf(wp)
GetWindowPlacement(FindWindow(Nothing, "Notepad"), wp)
If wp.showCmd = ShowWindowCommands.ShowMinimized Then
    Dim wp2 As WINDOWPLACEMENT
    wp2.showCmd = ShowWindowCommands.ShowMaximized
    wp2.ptMinPosition = wp.ptMinPosition
    wp2.ptMaxPosition = New POINTAPI(0, 0)
    wp2.rcNormalPosition = New RECT(0, 0, 816, 639) 'this is the size I want
    wp2.flags = wp.flags
    wp2.Length = Marshal.SizeOf(wp2)
    SetWindowPlacement(FindWindow(Nothing, "Notepad"), wp2)
    Else
        AppActivate("Notepad")

我尝试运行这个程序，但它只是激活窗口，而矩形也应该调整窗口大小。那么我做错了什么？有更简单的方法来实现所有这些吗？对于冗长的帖子感到抱歉。

- Royce

---

通过您的代码，矩形的效果将在您将窗口从“最大化”还原为“正常”后发生。将“wp2.showCmd = ShowWindowCommands.ShowMaximized”更改为“wp2.showCmd = ShowWindowCommands.Normal”。您不希望窗口被最大化。 - γηράσκω δ' αεί πολλά διδασκόμε

你忽略了错误检查。 - David Heffernan

Answer 1

我曾经需要做类似的事情，并使用了user32.dll中的SetWindowPos函数。

以下是vb.net的实现代码：

Imports System
Imports System.Runtime.InteropServices
Imports System.Diagnostics

Public Class HookUtil

    Public Const SWP_NOMOVE As Short = &H2
    Public Const SWP_NOSIZE As Short = 1
    Public Const SWP_NOZORDER As Short = &H4
    Public Const SWP_SHOWWINDOW As Short = &H40
    Shared ReadOnly HWND_BOTTOM As IntPtr = New IntPtr(1)

    <DllImport("user32.dll", EntryPoint:="SetWindowPos")> _
    Public Shared Function SetWindowPos( _
 hWnd As IntPtr, _
 hWndInsertAfter As IntPtr, _
 x As Int32, y As Int32, cx As Int32, cy As Int32, wFlags As Int32) As IntPtr
    End Function


    Public Shared Sub HookWindow()

        Dim Processes As Process() = Process.GetProcessesByName("Notepad")

        For Each p As Process In Processes

            Dim handle As IntPtr = p.MainWindowHandle
            If handle <> IntPtr.Zero Then
                SetWindowPos(handle, HWND_BOTTOM, 200, 200, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_SHOWWINDOW)
            End If
        Next

    End Sub

End Class

你需要使用以下方式调用：

HookUtil.HookWindow()

这里是一个C#的实现：

using System;
using System.Runtime.InteropServices;
using System.Diagnostics;

namespace csharpsandbox

{
    public class HookUtil
    {
        // hooks window handle and repositions to specified coords

        [DllImport("user32.dll", EntryPoint = "SetWindowPos")]
        public static extern IntPtr SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int x, int Y, int cx, int cy, int wFlags);

        [DllImport("kernel32.dll")]
        static extern IntPtr LoadLibrary(string lpFileName);

        const short SWP_NOMOVE = 0X2;
        const short SWP_NOSIZE = 1;
        const short SWP_NOZORDER = 0X4;
        const int SWP_SHOWWINDOW = 0x0040;
        static readonly IntPtr HWND_BOTTOM = new IntPtr(1);

        public static void HookWindow()
        {

            Process[] parray = System.Diagnostics.Process.GetProcessesByName("Notepad");
            foreach (Process p in parray)
            {
                IntPtr handle = p.MainWindowHandle;
                if (handle != IntPtr.Zero)
                {
                    SetWindowPos(handle, HWND_BOTTOM, 200, 200, 0, 0, SWP_NOZORDER | SWP_NOSIZE | SWP_SHOWWINDOW);
                }
            }

        }

    }
}

您可以使用以下方式进行调用：

HookUtil.HookWindow();

显然，这里的值（进程名称、x,y坐标）是硬编码的。为了使其更有用，您需要使这些值可设置。

- Gojira