excel - VBA 中 "Windows"键的 Application.Sendkeys 是什么？

Question

没有“windows”键的文档:https://learn.microsoft.com/en-us/office/vba/api/excel.application.sendkeys

我想要组合“Windows+UP”键来最大化事件窗口。因此，我尝试使用“Ctrl+Esc”作为 Windows 键 + {UP}:Application.SendKeys ("^({ESC}{UP})") 但它没有用。

有没有一种方法可以使用 API、dll 等发送 Windows key ，而无需使用 AutoIt 等外部程序。

Answer 1

Is there a way to send windows key using API, dll etc without using external programs like AutoIt

是的，您可以使用 FindWindow和 ShowWindow用于最大化窗口的 API。这比使用 Sendkeys 更可靠。

举个例子

Option Explicit

Private Declare PtrSafe Function ShowWindow Lib "user32" _
(ByVal hwnd As LongPtr, ByVal nCmdSHow As Long) As Long

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Const SW_SHOWMAXIMIZED = 3

Sub MaximizeAWindow()
    Dim hwnd As Long
    Dim Caption As String
    
    Caption = "THIS IS THE CAPTION OF THE WINDOW"
    
    hwnd = FindWindow(vbNullString, Caption)
    
    If hwnd <> 0 Then
        ShowWindow hwnd, SW_SHOWMAXIMIZED
    Else
        MsgBox "Unable to find the window. Is the caption correct?"
    End If
End Sub

您可能也对 GetForegroundWindow 感兴趣和 GetWindowText API获取当前事件窗口的标题？