Question

我正在使用键盘快捷键运行vbs文件。尽管代码运行正常，但vbs快捷方式的问题在于，只要按下键盘快捷键，前景中的窗口就会失去焦点。（您可以通过在某处放置一个空的vbs文件，例如开始菜单文件夹中的文件快捷方式，分配给快捷方式的键盘快捷键以及按键盘快捷键来自行尝试。）

我发现通过使用ALT + TAB，我可以获得前景窗口以重新获得焦点。但是，我无法在VBA中重复此功能。显然，ShellObject.SendKeys("%{TAB}")不起作用......

有没有办法在VBA中实现ALT + TAB的功能？提前谢谢。

修改

与此同时，我切换到AutoIt，看看它是否能让我更进一步。这就是我得到的：

ControlFocus("[CLASS:CabinetWClass]", "", "[CLASS:DirectUIHWND]")

我注意到在某些情况下选择资源管理器窗口（即CabinetWClass）是不够的。这就是我将注意力集中在实际包含文件/文件夹的控件上的原因。

它运作良好，但我仍然希望获得VBA解决方案：）

Answer 1

如果您知道要切换的项目的名称，也许可以尝试AppActivate功能，在这种情况下您可能不知道。

否则，试试这个：

SendKeys "%{TAB}", True

Answer 2

您可以使用Windows API将其重新置于顶端吗？当在Excel中运行以将记事本置于顶部时，这对我有用，因此它应该可以工作。您必须在FindWindow调用中替换窗口名称。

注意：你应该非常小心一些标志，因为如果你做了一些错误的组合，你会得到一些奇怪的行为。

Public Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long


Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As _
        Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As _
        Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'Either the handle of the window to position this window behind, or exactly one of the following flags stating where in the
'Z-order to put the window:
Private Const HWND_BOTTOM = 1             'Put the window at the bottom of the Z-order.
Private Const HWND_NOTOPMOST = -2         'Put the window below all topmost windows and above all non-topmost windows.
Private Const HWND_TOP = 0                'Put the window at the top of the Z-order.
Private Const HWND_TOPMOST = -1           'Make the window topmost (above all other windows) permanently.

'x: The x coordinate of where to put the upper-left corner of the window.
'y: The y coordinate of where to put the upper-left corner of the window.
'cx: The x coordinate of where to put the lower-right corner of the window.
'cy: The y coordinate of where to put the lower-right corner of the window.

'Flags: Zero or more of the following flags stating how to move the window:
Private Const SWP_DRAWFRAME = &H20            'Same as SWP_FRAMECHANGED.
Private Const SWP_FRAMECHANGED = &H20         'Fully redraw the window in its new position.
Private Const SWP_HIDEWINDOW = &H80           'Hide the window from the screen.
Private Const SWP_NOACTIVATE = &H10           'Do not make the window active after moving it unless it was already the active window.
Private Const SWP_NOCOPYBITS = &H100          'Do not redraw anything drawn on the window after it is moved.
Private Const SWP_NOMOVE = &H2                'Do not move the window.
Private Const SWP_NOSIZE = &H1                'Do not resize the window.
Private Const SWP_NOREDRAW = &H8              'Do not remove the image of the window in its former position, effectively leaving a ghost image on the screen.
Private Const SWP_NOZORDER = &H4              'Do not change the window's position in the Z-order.
Private Const SWP_SHOWWINDOW = &H40           'Show the window if it is hidden.


Sub ShowWindow()
    Dim hwnd As Long 'handle to get the window
    Dim flags As Long ' the flags specifying how to move the window
    Dim retval As Long ' return value

    hwnd = FindWindow(vbNullString, "Untitled - Notepad")
    flags = SWP_NOSIZE Or SWP_DRAWFRAME
    retval = SetWindowPos(hwnd, HWND_TOP, 0, 0, 1, 1, flags) ' move the window
End Sub

Answer 3

ActiveWindow.ActivateNext和类似的内容可能会有用。

将下一个窗口设置为活动窗口（ALT + TAB）

3 个答案: