17. februar 2002 - 12:24Der er
10 kommentarer og 1 løsning
Flytte teksten rundt i listbox'en
Jeg har lavet en Knap, en Textbox og en Listbox. Jeg har skrevet:
Private Sub Command1_Click() List1.AddItem Text1.Text End Sub
Når jeg skriver text i textboxen og trykker på command1 kommer teksten i listboxen, og nu vil jeg have om nogen kan fortælle mig hvordan jeg kan flytte rundt på teksten inde i listboxen.
Hvis du mener om du kan flytte eksempelvis nr 2 frem og være nr. 1 istedet. Så ja. Her nedenfor følger et eksempel.
Private Sub moveUP_Click() Dim str As String str = List1.List(List1.ListIndex) List1.List(List1.ListIndex) = List1.List(List1.ListIndex - 1) List1.List(List1.ListIndex - 1) = str End Sub
Øhhh, nååååå det gjorde den for 10 minutter siden da jeg prøvede herhjemme :-)) Hvad siger den problemet er? Du skal jo huske du skal have en knap der hedder moveUP() for at udføre denne kode stump. Samtidig skal du også have en listebox der hedder List1
ja den virker, men det var ikke lige menningen at den skal rykke en takt op. Kan jeg ikke bare tage teksten med en mus klik og placere den hvor jeg vil have den. F.eks. Jeg har 100 navne i en listboxen og jeg vil have navn nr. 99 placeret på plads nr. 3, så kan du nok forstå at din metode tager ret lang tid om at få flyttet nr. 99 til plads nr. 3. håber du forstår hvad jeg mener.
Uhaaaaa, jeg kan nu huske jeg har siddet og rodet med det før!! Jeg er squ egentlig ikke sikker på det kan løses med en simpel kode stump. Jeg tror vi skal have andre eksperter på banen her!!
nåh det var ærgeligt, men som tak for hjælpen vil jeg alligevel gerne give dig de her 10 point hvis du vis have det. Hvis du vil pointerne skal du sende mig et svar som svar og ikke kommentar.
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.
