MatchFound 和 MatchRequired 属性以及 Change 事件、复选框控件示例

下例用 MatchFound 和 MatchRequired 属性来演示组合框的附加的字符匹配。匹配验证发生于 Change 事件中。

在这个例子中，用户指定组合框的文本部分是否必须与组合框中的列表项之一匹配。
用户可以利用复选框来指定是否要求匹配，然后在组合框中键入条件，指定列表中的一项。

窗体包含：

• 名为 ComboBox1 的组合框。
• 名为 CheckBox1 的复选框。

示例

Sub UserForm_CheckBox1_Click()
    If UserForm_CheckBox1.Value = True Then
        UserForm_ComboBox1.MatchRequired = True
        MsgBox "To move the focus from the ComboBox, you must match an entry in the list or press ESC."
    Else
        UserForm_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

Sub UserForm_ComboBox1_Change()
    If UserForm_ComboBox1.MatchRequired = True Then
    'MSForms 自动处理这种情况
    Else  
        If UserForm_ComboBox1.MatchFound = True Then
            MsgBox "Match Found; matching optional."
        Else
            MsgBox "Match not Found; matching optional."
        End If
    End If
End Sub

Sub UserForm_Initialize()
	Dim i
 	
	For i = 1 To 9 
 		UserForm_ComboBox1.AddItem "Choice " & i 
	Next
	UserForm_ComboBox1.AddItem "Chocoholic"

	UserForm_CheckBox1.Caption = "MatchRequired"
	UserForm_CheckBox1.Value = True
End Sub