如何终止子窗体加载前的代码执行？避免导航控件跳转空白页

要阻止导航控件加载空白页，核心是取消该选项卡的默认导航行为，下面给两个靠谱的实现方案：

方案一：用导航控件的BeforeNavigate事件（推荐） #

这个方法能从源头阻止导航动作，不会有任何闪烁：

1. 确保你的导航控件有明确的命名（比如NavigationMain）
2. 打开导航控件的BeforeNavigate事件代码窗口，输入以下代码：

Private Sub NavigationMain_BeforeNavigate(ByVal Key As String, ByVal Page As Object, Cancel As Integer)
    ' 匹配你要设置成按钮的选项卡名称（navOpenSO）
    If Key = "navOpenSO" Then
        ' 打开目标网页
        Shell "explorer ""https://stackoverflow.com/"""
        ' 取消默认的导航跳转
        Cancel = True
    End If
End Sub

当点击navOpenSO选项卡时，事件会先触发，判断到是目标选项卡后，打开网页并直接取消导航，完全不会加载空白页。

方案二：在Click事件中强制切回原页面 #

如果不想用BeforeNavigate事件，也可以在点击时记录当前页面，打开网页后切回去：

Public Sub navOpenSO_Click()
    ' 先记录当前选中的选项卡
    Dim originalTabKey As String
    originalTabKey = Me.NavigationMain.CurrentKey
    
    ' 打开网页
    Shell "explorer ""https://stackoverflow.com/"""
    
    ' 强制切回原来的选项卡
    Me.NavigationMain.CurrentKey = originalTabKey
End Sub

这个方法可能会有极短暂的空白页闪烁，但也能达到需求。

为什么你之前的方法没用？ #

你用End语句是终止整个VBA程序，根本不是阻止导航动作；而且Enter/GotFocus事件触发时，导航跳转的指令已经在执行队列里了，所以这些代码没法终止导航流程，反而可能导致程序异常。

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