VB-Homepage Tipp 239
Alle Comboboxauswahlen zurücksetzen
Wenn Sie in Ihren Programmen mit vielen Comboboxen arbeiten, dann kann es für Sie recht hilfreich sein, dem User eine Funktion anzubieten, der alle seine Auswahlen zurücksetzt, dabei aber keineswegs die Auswahlvorgaben der Comboboxen löscht.
Natürlich können Sie auch jede einzelne Box anfassen und zurücksetzen, haben Sie aber mehrere davon, ist folgendes sicher besser für das Handling.

Fügen Sie für einen Test x-beliebig viele Comboboxen in Ihr Projekt ein und füllen Sie diese zum Programmstart mit der ADDITEM Funktion mit Einträgen auf.

Definieren Sie nun unter Allgemein/Deklarationen folgendes
Private Sub CombosLeeren(frmForm As Form)

Dim ComboObjekte As Object
On Error Resume Next

For Each ComboObjekte In frmForm.Controls
   ComboObjekte.Text = ""
   ComboObjekte.ListIndex = -1
   DoEvents
Next ComboObjekte

End Sub

Außerdem fügen Sie noch einen Commandbutton hinzu, der die Zurücksetz Aktion auslösen soll.
Dieser bekommt in die CLICK Aktion folgenden Code.

Call CombosLeeren(Form1)

Es wird also lediglich der Formname übergebe, auf der alle Comboboxen zurückgesetzt werden sollen.
Das war es schon und Sie können nun Ihr Projekt testen.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite