Nervt es Sie auch manchmal, immer wieder folgende Code-Anweisungen verwenden zu müssen, um eine Combo-/ bzw. ListBox mit Einträgen zu füllen? ' ComboBox füllen With Combo1 .AddItem "An" .AddItem "An das" .AddItem "An den" .AddItem "Frau" .AddItem "Firma" .AddItem "Herr" End With Solange es sich nur um ein paar Einträge handelt, wäre das ja noch nicht so schlimm. Sollen aber viele Enträge hinzugefügt werden, kann das ewige AddItem schon richtig lästig werden Deshalb folgende Überlegung: Wie wäre es, wenn man zum Füllen der Combo-/ListBox eine Prozedur aufruft, der man alle Einträge als Parameter übergibt. Keine schlechte Idee Aber wie? Es sollen ja beliebig viele Parameter sein! Ein Array? Nein! Denn das Array müsste ja vorher erst deklariert und mit den entsprechenden Elementen gefüllt werden. Also wieder keine "Arbeitserleichterung". Aber wozu gibt es denn das Schlüsselwort ParamArray? Genau! ParamArray legt fest, dass es sich bei dem Parameter einer Prozedur um ein Variant-Datenfeld handelt! Also genau das, was wir brauchen Das ganze sieht dann wie folgt aus: ' Combo/ListBox mit beliebigen ' Werten füllen Public Sub ListBox_FillArray(oControl As Control, _ ParamArray vItems() As Variant) If IsArray(vItems) Then Dim vItem As Variant For Each vItem In vItems oControl.AddItem vItem Next End If End Sub Aufruf: ' Bsp.: ComboBox füllen ListBox_FillArray Combo1, "Herr", "Frau", "Firma ' Bsp.: ListBox füllen ListBox_FillArray List1, 1, 2, 3, 4, 5, 6, 7, 8 Sie sehen schon: Der Prozedur ist es egal, ob Sie ihr String-Parameter oder Integer-Parameter übergeben Dieser Tipp wurde bereits 22.713 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |