MatchFound 和 MatchRequired 属性、Change 事件、CheckBox 控件示例

以下示例使用 MatchFound 和 MatchRequired 属性来演示 ComboBox 的其他字符匹配。 匹配验证发生在 Change 事件中。

在此示例中，用户指定 ComboBox 的文本部分是否必须与 ComboBox 中的列出项之一相匹配。 用户可以使用 CheckBox 指定是否需要匹配，然后键入 ComboBox 以从其列表中指定项目。

若要使用此示例，请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含：

• 名为 ComboBox1 的 ComboBox 。
• 名为 CheckBox1A 的 CheckBox 。

Private Sub CheckBox1_Click() 
 If CheckBox1.Value = True Then 
 ComboBox1.MatchRequired = True 
 MsgBox "To move the focus from the " _ 
 & "ComboBox, you must match an entry in " _ 
 & "the list or press ESC." 
 Else 
 ComboBox1.MatchRequired = False 
 MsgBox " To move the focus from the " _ 
 & "ComboBox, just tab to or click " _ 
 & "another control. Matching is optional." 
 End If 
End Sub 
 
Private Sub ComboBox1_Change() 
 If ComboBox1.MatchRequired = True Then 
 'MSForms handles this case automatically 
 Else 
 If ComboBox1.MatchFound = True Then 
 MsgBox "Match Found; matching optional." 
 Else 
 MsgBox "Match not Found; matching " _ 
 & "optional." 
 End If 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
Dim i As Integer 
 
For i = 1 To 9 
 ComboBox1.AddItem "Choice " & i 
Next i 
ComboBox1.AddItem "Chocoholic" 
 
CheckBox1.Caption = "MatchRequired" 
CheckBox1.Value = True 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。