blocks|key|2188635|text|如果您也知道要切换的项的名称，请尝试AppActivate函数，在本例中您可能不知道这个名称。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|2188636|否则，尝试如下：|2188637|SendKeys+"%25{TAB}",+True|code-block|syntax|javascript|2188638|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/dyz95fhy%2528v=vs.80%2529.aspx^0|I|B|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|6|7|W|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|X|8|@]|9|@]|C|$I|J]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

Maybe try the <a href="http://msdn.microsoft.com/en-us/library/dyz95fhy%28v=vs.80%29.aspx" rel="nofollow">AppActivate</a> function, if you know the name of the item you are switching too, which you may not know in this case.

Otherwise, try this:

<pre><code>SendKeys "%{TAB}", True
</code></pre>

blocks|key|1398321|text|您能使用Windows将其带回顶部吗？当我在Excel中运行以将记事本带到顶部时，这对我来说是有效的，所以它应该可以工作。您必须在FindWindow调用中替换窗口的名称。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1398322|注意:你真的应该小心一些旗帜，因为如果你做了一些错误的组合，你会得到一些奇怪的行为。|1398323|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|code-block|syntax|javascript|1398324|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Can you use the Windows APIs to bring it back to the top? This works for me when run in Excel to bring the notepad to the top, so it should work. You would have to substitute the name of your window in the FindWindow call.

Note: You should be really carefull with some of the flags because you'll get some weird behaviour if you do some wrong combinations of them.

<pre><code>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 = &amp;H20 'Same as SWP_FRAMECHANGED.
Private Const SWP_FRAMECHANGED = &amp;H20 'Fully redraw the window in its new position.
Private Const SWP_HIDEWINDOW = &amp;H80 'Hide the window from the screen.
Private Const SWP_NOACTIVATE = &amp;H10 'Do not make the window active after moving it unless it was already the active window.
Private Const SWP_NOCOPYBITS = &amp;H100 'Do not redraw anything drawn on the window after it is moved.
Private Const SWP_NOMOVE = &amp;H2 'Do not move the window.
Private Const SWP_NOSIZE = &amp;H1 'Do not resize the window.
Private Const SWP_NOREDRAW = &amp;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 = &amp;H4 'Do not change the window's position in the Z-order.
Private Const SWP_SHOWWINDOW = &amp;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
</code></pre>

blocks|key|2188669|text|ActiveWindow.ActivateNext和可能类似的可能是有用的。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2188670|entityMap^0|0|P|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

<code>ActiveWindow.ActivateNext</code> and possibly similar might be useful.

I'm running a vbs file using a keyboard shortcut. Although the code runs fine, the problem with vbs shortcuts is that the window in the foreground loses its focus as soon as you press the keyboard shortcut. (You can try it for yourself by placing an empty vbs file somewhere, a shortcut to the file in e.g. the start menu folder, a keyboard shortcut assigned to the shortcut and pressing the keyboard shortcut.)

I found that by using ALT+TAB, I could get the foreground window to regain focus. However, I'm unable to repeat this functionality in VBA. Apparently, <code>ShellObject.SendKeys("%{TAB}")</code> doesn't work...

Is there any way to achieve the functionality of ALT+TAB in VBA? Thanks in advance.

EDIT

In the meanwhile, I made a switch to AutoIt to see if it could get me further. This is what I got:

<pre><code>ControlFocus("[CLASS:CabinetWClass]", "", "[CLASS:DirectUIHWND]")
</code></pre>

I noticed that selecting the explorer window (i.e. CabinetWClass), is in some cases not enough. That's why I'm setting focus on the control that actually contains the files/folders.

It's working very well, but I'm still hoping for a VBA solution :)

Set next window as active window (ALT+TAB)

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我正在使用键盘快捷方式运行一个vbs文件。虽然代码运行良好，但vbs快捷方式的问题是，只要按下键盘快捷方式，前台窗口就会失去焦点。(您可以自己尝试，方法是在某个地方放置一个空的vbs文件，在“开始”菜单文件夹中放置该文件的快捷方式，指定给该快捷方式的键盘快捷方式，并按下键盘快捷方式。)我发现通过使用ALT+TAB，我可...

问将下一个窗口设置为活动窗口(ALT+TAB)
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问将下一个窗口设置为活动窗口(ALT+TAB)EN