excel - 如何检测用户窗体控件是否因鼠标单击或选项卡而失去焦点/兴奋

Question

背景

我有一个包含多页、一个文本框和一个命令按钮的用户表单。每个多页还具有多个文本框。我希望能够通过制表符(向前和向后)从第一页上的最后一个文本框移动到第二页上的第一个文本框，等等，...，以及从最后一页上的最后一个文本框移动到文本框在多页下方。

我认为我已经为此创建了一个解决方案(如下所示)；但是，我的解决方案不允许用户(鼠标)单击非下一个选项卡或多页对象下方的文本框来中断选项卡顺序。相反，他们必须在多页对象中全程使用 Tab 键，这可能涉及大量不必要的 Tab 键操作。

尝试

我最初尝试在每次 Multipage_Exit 运行结束时将全局变量 tabDirect 重置为 NonTab。结果是第一次单击(到不同页面或多页面对象外部)被视为选项卡，而第二次实际上被视为鼠标单击。

我还尝试在用户窗体中的每个鼠标单击事件中将 tabDirect 更改为 NonTab。但是，当前页面之外的控件的 mouseclick 事件从未发生过。

经过研究，看起来当鼠标单击多页下方的文本框时，事件是:

1. 留下多页
2. 输入文本框
3. TextBox_MouseDown

MouseDown 事件之后还有其他事件吗？或者另一种方法来判断在退出事件期间是否单击了鼠标或按下了哪些键？

注释

我知道另一个建议，通过插入一个命令按钮来完成页面切换，当切换到该命令按钮时，将“翻转页面”，可以说，到多页面对象中的下一页。我希望有一条看起来更干净的路线；因此，multipage_exit 子中的代码。

我也完全意识到我的问题的答案可能最终是“不可能”。然而，人们有时会想出令人惊奇的解决方案来解决难题，我想我希望这就是其中之一。

也就是说，我也愿意接受其他关于在多页面对象的页面上进行选项卡切换的建议/推荐。

初始代码

全局变量

Public tabDirect As tabbing

Public Enum tabbing
    [_First] = 1
    NonTab = 1
    Forwards
    Backwards
    [_Last] = 3
End Enum

用户表单子(monad)

Private Sub Multipage_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim counter As Integer
    Dim cnt As Integer

    If tabDirect <> NonTab Then 'If not tabbing, skip to end of sub
        ' determines value of next page
        If tabDirect = Backwards Then
            counter = Multipage.Value - 1
        ElseIf tabDirect = Forwards Then
            counter = Multipage.Value + 1
        End If

        'If tabbing backwards while on the first page,
        'the counter would have a value of -1 here
        If counter < 0 Then '
            counter = Multipage.Pages.Count - 1
        End If

        'Only way for counter to equal Multipage.Pages.Count,
        'is if tabbing forward off of last page.
        'Desired result is to leave the multipage
        If counter <> Multipage.Pages.Count Then
            'Tabbing forwards: want first textbox, tabbing backwards: want last
            If tabDirect = Backwards Then
                cnt = Multipage.Pages(counter).Controls.Count - 2 ' skip over label
            Else
                cnt = 0
            End If

            Multipage.Value = counter

            With Multipage.Pages(counter).Controls(cnt)
                .SetFocus
                .SelStart = 0
                .SelLength = Len(.Value)
            End With

            'Fixing scollbar
            If tabDirect = Backwards Then
                Multipage.Pages(counter).ScrollTop = Multipage.Pages(counter).ScrollHeight
            Else
                Multipage.Pages(counter).ScrollTop = 0
            End If

            'Don't want to cancel when leaving first page backwards
            If tabDirect <> Backwards Or counter <> Multipage.Pages.Count - 1 Then
                Cancel = True
            End If
        Else
            Multipage.Value = 0
            Multipage.Pages(0).ScrollTop = 0
        End If
    End If
End Sub

表单上每个文本框的文本框类中的代码

Private Sub Textbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    'KeyCode 9 = tab
    If KeyCode = 9 And Shift = 1 Then
        tabDirect = Backwards
    ElseIf KeyCode = 9 Then
        tabDirect = Forwards
    Else
        tabDirect = NonTab
    End If
End Sub

用户窗体上每个控件的 MouseDown 事件中的代码

Private Sub Control_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    tabDirect = NonTab
End Sub

Answer 1

虽然我无法找到区分 Tab 键切换和鼠标单击的方法，但我确实找到了另一种方法来确定多页是否退出，而不是切换到下一个文本框。

我假设如果多页退出事件是由 Tab 键切换触发的，则最近输入的文本框将是页面上的第一个(向后 Tab 键切换)或最后一个(向前 Tab 键切换)文本框。因此，如果当前文本框的名称与我正在查看的名称(第一个或最后一个，视情况而定)匹配，则多页应该继续到下一页(根据我之前的逻辑)。因此，我做了如下所示的更改。

更改代码

添加了全局变量

Public enteredBox As String

添加到每个 KeyDown 和 MouseDown 事件的代码

enteredBox = Control.Name

编辑退出事件，新代码如下所示

-----------
|  New Code
-----------

:

Private Sub Multipage_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim counter As Integer
    Dim cnt As Integer
-----------------------------------
|   Dim idWanted As Long
|   Dim temp As Integer
|   Dim endCount As Integer
-----------------------------------

    If tabDirect <> NonTab Then 'If not tabbing, skip to end of sub
        If tabDirect = Backwards Then
            counter = Multipage.Value - 1

            If counter < 0 Then
                counter = Multipage.Pages.Count - 1
            End If

            cnt = Multipage.Pages(counter).Controls.Count - 2
-------------------------------------------------------------
|           idWanted = 2
|           endCount = Multipage.Value - 1
-------------------------------------------------------------
        ElseIf tabDirect = Forwards Then
            counter = Multipage.Value + 1
            cnt = 0
-------------------------------------------------------------
|           idWanted = 1
|           endCount = Multipage.Value
-------------------------------------------------------------
        End If

---------------------------------------------------------------------------
|       For temp = 0 To endCount
|           idWanted = idWanted + Multipage.Pages(temp).Controls.Count / 2
|           'Division by two since each page has an associated label for each textbox
|       Next temp
|
|       'textArr is an array of textboxes on the form
|       'where textboxes were added in the order they appear on each page
|       If textArr(idWanted).Name = enteredBox Then
---------------------------------------------------------------------------

            'Only way for counter to equal Multipage.Pages.Count,
            'is if tabbing forward off of last page.
            'Desired result is to leave the multipage
            If counter <> Multipage.Pages.Count Then
                'Tabbing forwards: want first textbox, tabbing backwards: want last
                If tabDirect = Backwards Then
                    cnt = Multipage.Pages(counter).Controls.Count - 2 ' skip over label
                Else
                    cnt = 0
                End If

                Multipage.Value = counter

                With Multipage.Pages(counter).Controls(cnt)
                    .SetFocus
                    .SelStart = 0
                    .SelLength = Len(.Value)
                End With

                'Fixing scollbar
                If tabDirect = Backwards Then
                    Multipage.Pages(counter).ScrollTop = Multipage.Pages(counter).ScrollHeight
                Else
                    Multipage.Pages(counter).ScrollTop = 0
                End If

                'Don't want to cancel when leaving first page backwards
                If tabDirect <> Backwards Or counter <> Multipage.Pages.Count - 1 Then
                    Cancel = True
                End If
            Else
                Multipage.Value = 0
                Multipage.Pages(0).ScrollTop = 0
            End If
--------------------
|       End If
--------------------
    End If
End Sub