Access 2016中能否用Alt+Tab切换已打开的窗体？

嗨Tjay，我明白你想让常用的2-3个窗体能通过Alt+Tab快速切换的需求——毕竟频繁点击切换太影响效率了，这个需求完全可行！我给你整理几个靠谱的实现思路，你可以按需尝试：

方案一：调整窗体基础属性（最简单的方法） #

很多时候窗体没出现在Alt+Tab列表里，是因为默认属性设置把它标记成了“非独立窗口”。你可以直接修改两个关键属性：

• 找到窗体的ShowInTaskbar属性，设置为True，让每个窗体在任务栏显示独立条目；
• 把BorderStyle（边框样式）改成Sizable或Fixed Single这类带标准窗口框架的样式，确保系统识别它为独立应用窗口。

设置完成后重启窗体，Alt+Tab里应该就能看到这些窗体了，直接切换就行。

方案二：用代码强制让系统识别窗体（适合特殊窗体） #

如果你的窗体是MDI子窗体、无框架自定义窗体，单纯改属性可能没用，这时候可以通过系统API强制注册窗口到Alt+Tab列表。以VBA为例（比如Access/Excel窗体场景），给每个目标窗体添加这段代码：

Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr

Private Const GWL_EXSTYLE = -20
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_EX_TOOLWINDOW = &H80

Private Sub Form_Load()
    Dim exStyle As LongPtr
    exStyle = GetWindowLongPtr(Me.hwnd, GWL_EXSTYLE)
    exStyle = exStyle And Not WS_EX_TOOLWINDOW '移除工具窗口标记（会隐藏Alt+Tab）
    exStyle = exStyle Or WS_EX_APPWINDOW '添加应用窗口标记（让系统识别）
    SetWindowLongPtr(Me.hwnd, GWL_EXSTYLE, exStyle)
    Me.ShowInTaskbar = True
End Sub

把代码放到窗体的Form_Load事件里，启动窗体后就能在Alt+Tab里看到它了。

方案三：用第三方工具辅助（不想改代码的话） #

要是你不想折腾代码，也可以用AutoHotkey这类窗口管理工具，写个简单脚本绑定快捷键来循环切换你的目标窗体。比如你的窗体标题是“客户表窗体”“订单表窗体”，脚本可以这么写：

!Tab::
    WinActivate, 客户表窗体
    WinActivate, 订单表窗体
    return

按Alt+Tab的时候就会循环激活这几个指定窗体，注意要准确填写窗体的标题哦。

小提醒：如果你的窗体是某个主程序的内嵌标签页（比如ERP系统里的子页面），系统默认Alt+Tab只能切换主程序窗口，这时候可以试试主程序自带的内部切换快捷键（比如Ctrl+Tab），或者联系开发者做自定义设置。

内容的提问来源于stack exchange，提问作者Tjay