Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Listbox-Problem
Autor: smither
Datum: 26.10.05 11:03
hi, ich würde nicht über den index gehen sondern mit itemdata arbeiten da kannst du selbst bestimmen was drin steht und da ändert sich auch nichts: list1.AddItem "Rot" list1.itemdata(list1.newindex) = 1 list1.AddItem "Grün" list1.itemdata(list1.newindex) = 2 list1.AddItem "Gelb" list1.itemdata(list1.newindex) = 3 dann speicherst du immer den eindeutigen wert in itemdata in dein db und beim aufrufen einfach folgende funktion verwenden: setLstTextByID list1, 2 'um gelb zu setzen Function SetLstTextByID(lst As ListBox, lID As Long) On Error Resume Next Dim i As Integer Dim bExist As Boolean For i = 0 To lst.ListCount - 1 If lst.ItemData(i) = lID Then bExist = True lst.ListIndex = i lst.Selected(i) = true Exit For End If Next i If lst.ListCount > 0 And bExist = False Then lst.ListIndex = 0 End Function das gleiche funktioniert auch mit einer combobox. hoffe das hilft weiter

Listbox-Problem	848	SpeedyWien	25.10.05 15:48
Re: Listbox-Problem	636	smither	26.10.05 11:03
Re: Listbox-Problem	507	SpeedyWien	26.10.05 12:38
Re: Listbox-Problem	527	SpeedyWien	28.10.05 11:59

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