Freigeben über


Beispiel für MatchFound-, MatchRequired-Eigenschaften, Change-Ereignis, CheckBox -Steuerelement

The following example uses the MatchFound and MatchRequired properties to demonstrate additional character matching for ComboBox. Die Übereinstimmungsüberprüfung erfolgt mit dem Change-Ereignis.

In diesem Beispiel gibt der Benutzer an, ob der Text eines ComboBox -Objekts mit einem der im ComboBox -Objekt aufgeführten Elemente übereinstimmen muss. Der Benutzer kann mithilfe eines CheckBox-Steuerelements angeben, ob ein Abgleich erforderlich ist, und dann in das ComboBox-Feld eingeben, um ein Element aus seiner Liste anzugeben.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Ein Kombinationsfeld-Steuerelement ( ComboBox ) mit der Bezeichnung "ComboBox1".
  • Ein Kontrollkästchen-Steuerelement ( CheckBox ) mit der Bezeichnung "CheckBox1".
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.