Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen und combo 2 aktivieren?
Autor: Gamer20
Datum: 24.05.03 14:50
Ich mach dies bei der ersten box mit einer Listbox. Der Code müßte ohne die Abfrage sein, ob Wert in combo 2 vorhanden ist und wenn nicht hinzufügen. Er ist auf jeden Fall drin. Private Sub list1_Click() Vname1 = List1 ' hier übergeb ich die Auswahl an eine Variable A=Split(Vname1," ") VName2=A(1):' Jetzt haben wir die Nummer Fund=0 or 10 or 100 ' so müßt es sein, ist die schreibweise korrekt? wie schreib ich dis bei Wörtern? mit"klein" bestimm oder? For i=0 to Combo2.listcount-1 if Combo2.list(i)=Vname2 then fund=i Exit for End if Next If Fund=False then combo2.aditem Vname2 Combo2.Text=Vname2 Else Combo2.text=combo2.list(i) End if Combo2_Click() ich muß es ja in die klickprozedur schreiben. da es sonst nicht klappt. hier der gesamte Code des Programms. Dim Vname1 As String Dim Vname2 As String Dim i As Long Dim A As Variant Dim Fund As Long Private Sub list1_Click() Vname1 = List1 A = Split(Vname1, " ") Vname2 = A(1): ' Jetzt haben wir die Nummer Fund = 0 Or 10 Or 100 For i = 0 To Combo2.ListCount - 1 If List1.List(i) = Vname2 Then Fund = i Combo2_Click() = Fund End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0 Combo3.ListIndex = 0 Combo4.ListIndex = 0 Case 1 Combo3.ListIndex = 1 Combo4.ListIndex = 2 End Select End Sub Private Sub Form_Load() Dim Zeile As String Open "liste.txt" For Input As #1 Do While Not EOF(1) Line Input #1, Zeile List1.AddItem Zeile Loop Close 1 Combo2.AddItem "0" Combo2.AddItem "10" Combo2.AddItem "100" Combo3.AddItem "klein" Combo3.AddItem "mittel" Combo3.AddItem "groß" Combo4.AddItem "dick" Combo4.AddItem "normal" Combo4.AddItem "schlank" End Sub

combo1 auswahl (2 Wörter) an variable,1 wert auslesen und co...	474	Gamer20	24.05.03 07:49
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	309	dbayer	24.05.03 08:10
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	310	Gamer20	24.05.03 10:12
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	319	dbayer	24.05.03 10:48
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	348	Gamer20	24.05.03 14:50
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	331	dbayer	24.05.03 15:23
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	345	Gamer20	24.05.03 19:48
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	316	Gamer20	25.05.03 08:38
Re: combo1 auswahl (2 Wörter) an variable,1 wert auslesen un...	299	Gamer20	25.05.03 09:09

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