Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ComboBox
Autor: Eddie
Datum: 05.12.02 22:57
Hi an alle Ich habe auf meiner Form zB.: 20 Comboboxen,die ich mit dem selben Inhalt zur Laufzeit füllen und speichern möchte. Hier ein Beispiel mit 5 ComboBoxen *********************************************************** 'Form1 Private Sub Form_Load() ListeEinlesen Combo1, App.Path & "\MeineListe.dat" ListeEinlesen Combo2, App.Path & "\MeineListe.dat" ListeEinlesen Combo3, App.Path & "\MeineListe.dat" ListeEinlesen Combo4, App.Path & "\MeineListe.dat" ListeEinlesen Combo5, App.Path & "\MeineListe.dat" End Sub _____________________________________________ 'Form2 Private Sub Command1_Click() With Form1 .Combo1.AddItem Text1.Text .Combo2.AddItem Text1.Text .Combo3.AddItem Text1.Text .Combo4.AddItem Text1.Text .Combo5.AddItem Text1.Text ListeSpeichern .Combo1, App.Path & "\MeineListe.dat" ListeSpeichern .Combo2, App.Path & "\MeineListe.dat" ListeSpeichern .Combo3, App.Path & "\MeineListe.dat" ListeSpeichern .Combo4, App.Path & "\MeineListe.dat" ListeSpeichern .Combo5, App.Path & "\MeineListe.dat" Text1.Text = "" Text1.SetFocus End With End Sub _____________________________________________ Private Sub Command2_Click() With Form1 ListeEinlesen .Combo1, App.Path & "\MeineListe.dat" ListeEinlesen .Combo2, App.Path & "\MeineListe.dat" ListeEinlesen .Combo3, App.Path & "\MeineListe.dat" ListeEinlesen .Combo4, App.Path & "\MeineListe.dat" ListeEinlesen .Combo5, App.Path & "\MeineListe.dat" End With Unload Me End Sub ____________________________________________________________________ Es funktioniert alles prima,aber gibt es eine andere Lösung um den Code etwas zu verkürzen, denn die ComboBoxen 20mal in den Code hineinschreiben ,da wird er so langsam unübersichtlich. Hätte irgendwer da draußen einen Vorschlag für mich????? Ich bedanke mich schon im Vorraus. Eddie

ComboBox	403	Eddie	05.12.02 22:57
Re: ComboBox	247	unbekannt	05.12.02 23:10
Re: ComboBox	270	Eddie	05.12.02 23:35
Re: ComboBox	251	unbekannt	05.12.02 23:38
Und Problem erkannt:	250	unbekannt	05.12.02 23:49
Re: Und Problem erkannt:	233	Eddie	06.12.02 00:05
Re: Und Problem erkannt:	242	unbekannt	06.12.02 00:15
Nämlich das Symtom!	252	unbekannt	06.12.02 00:08
Re: Nämlich das Symtom!	236	Eddie	07.12.02 01:28
Re: ComboBox	38	Mr. NoName	06.12.02 12:49
Re: ComboBox	249	Eddie	07.12.02 01:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen