21. januar 2002 - 14:23Der er
3 kommentarer og 1 løsning
Sammenbinde listindex og text efter valg af sorted
Jeg har følgende liste: private sub form_load() list1.additem item:= hans og grethe list1.additem item:= rødhætte og ulven osv 100 items Private sub list1_click() if list1. listindex = 1 then text1.text = eventyr osv Der skal nu tilføjes et item og listen skal sorteres. List1.listindex bliver nu ikke = 1 men 47. Og jeg kan lave samtlige teksthenvisninger om. Er der en måde at holde sammen på( indexnr. + tekst)når man tilføjer eller fjerner items fra en bestående liste?
Private Sub Form_Load() \'List1.Sorted = True List1.AddItem \"hans og grethe (1)\" List1.ItemData(List1.NewIndex) = 1
List1.AddItem \"rødhætte og ulven (2)\" List1.ItemData(List1.NewIndex) = 2
List1.AddItem \"Sven og Bent (3)\" List1.ItemData(List1.NewIndex) = 3
List1.AddItem \"Niels og Sune (4)\" List1.ItemData(List1.NewIndex) = 4 End Sub
Private Sub List1_Click() Dim Msg As String Msg = List1.ItemData(List1.ListIndex) & \" \" Msg = Msg & List1.List(List1.ListIndex) Me.Caption = Msg End Sub
Jeg var drønsikker på, at dette ikke kunne lade sig gøre, derfor satte jeg 30 point af. Dit svar er en kæmpehjælp for mig, så jeg forhøjer lidt. Tusind tak!
men gem heller dine point (Jeg skal nok få den på en eller anden måde) ha..ha..ha..
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
