将鼠标移入文本框或组合框时使单位可见

Question

我有一个需要输入各种文本框和组合框的用户表单。输入用于测量并具有与之关联的单位。当您单击每个特定的文本/组合框时，我希望用户窗体显示预期使用哪些单位。

目前，我的代码适用于文本框，但无法识别组合框。这是我的代码。

Private Sub TextboxActions_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If InStr(1, TextboxActions.Name, "OD") > 0 Then
    UserForm1.inUnit.Visible = True
    UserForm1.mmUnit.Visible = False
    UserForm1.eaUnit.Visible = False

ElseIf InStr(1, TextboxActions.Name, "CE") > 0 Then
    UserForm1.inUnit.Visible = False
    UserForm1.mmUnit.Visible = True
    UserForm1.eaUnit.Visible = False

Else
    UserForm1.inUnit.Visible = False
    UserForm1.mmUnit.Visible = False
    UserForm1.eaUnit.Visible = True
End If
End Sub

使用它，当用户单击文本框时，它将显示单位 in、mm 或 ea。我希望组合框也是如此，但目前单击组合框时没有任何反应。

Answer 1

使用 3 个 Enter() 事件对我有用：

Private Sub ComboBox1_Enter()

UserForm1.Label1.Visible = True
UserForm1.Label2.Visible = False
UserForm1.Label3.Visible = False

End Sub
Private Sub ComboBox2_Enter()

UserForm1.Label1.Visible = False
UserForm1.Label2.Visible = True
UserForm1.Label3.Visible = False

End Sub
Private Sub ComboBox3_Enter()

UserForm1.Label1.Visible = False
UserForm1.Label2.Visible = False
UserForm1.Label3.Visible = True

End Sub

在 ComboBoxes 中单击的示例（在顶部用户窗体 ComboBox1 处于活动状态，在第二个用户窗体 ComboBox3 处于活动状态等）

Answer 2

首先，我会使用Enter 事件而不是Mouse up 事件，因此当您使用 Tab 键进入控件时也会发生同样的事情。对于每个控件的Enter 事件，只需调用此 ShowUnit 函数并为其提供控件名称。

Private Sub CE2_Enter()
    Call ShowUnit(CE2)
End Sub

Private Sub OD1_Enter()
    Call ShowUnit(OD1)
End Sub

Private Sub ShowUnit(ByRef oControl As Control)
    If InStr(1, oControl.Name, "OD") > 0 Then
        UserForm1.inUnit.Visible = True
        UserForm1.mmUnit.Visible = False
        UserForm1.eaUnit.Visible = False

    ElseIf InStr(1, oControl.Name, "CE") > 0 Then
        UserForm1.inUnit.Visible = False
        UserForm1.mmUnit.Visible = True
        UserForm1.eaUnit.Visible = False

    Else
        UserForm1.inUnit.Visible = False
        UserForm1.mmUnit.Visible = False
        UserForm1.eaUnit.Visible = True
    End If
End Sub

编辑：更改了控件的名称以说明如何使用代码并从我的测试值返回 instr() 函数中的“OD”和“CE”。

如需进一步说明，请参见下图以了解发生了什么。蓝色是您如何使用 GUI 来确保您正在引用控件事件。红色表示我们将完整的控制权传递给 ShowUnit 函数。 Purple 显示我们正在读取 Controls Name 属性以搜索“OD”或“CE”注意，这些是区分大小写的，不使用 instr(1, UCASE(oControl.Name), "OD") > 0，因此如果您的控件名称是 odSomeName，它不会生成 inUnit 标签可见。