Søg
Avatar billede pissed_squirrel Nybegynder
19. februar 2004 - 16:48 Der er 3 kommentarer og
1 løsning

Arrangere listbox indhold med op/ned knapper

Jeg har en listbox som jeg godt kunne tænke mig at arrangere som jeg lyster

Derfor havde jeg tænkt lidt på 2 knapper, 1 som flytter det markerede element op og 1 som flytter den ned

Jeg kan ikke helt se hvor jeg skal starte henne med dette, derfor har jeg brug for jeres hjælp

Listboxen hedder bare List1 og knapperne hedder up og down


Tak for hjælpen
Avatar billede kabbak Professor
19. februar 2004 - 21:16 #1
Private Sub CmdNed_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
A = List1.List(i)
List1.List(i) = List1.List(i + 1)
List1.List(i + 1) = A
End If
Next
End Sub

Private Sub CmdOp_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
A = List1.List(i)
List1.List(i) = List1.List(i - 1)
List1.List(i - 1) = A
End If
Next
End Sub
Avatar billede kabbak Professor
19. februar 2004 - 21:32 #2
nu følger selected med også

If List1.Selected(I) Then
A = List1.List(I)
List1.List(I) = List1.List(I + 1)
List1.List(I + 1) = A
List1.Selected(I + 1) = True
Exit Sub
End If
Next
End Sub

Private Sub CmdOp_Click()
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
If I = 0 Then Exit Sub
A = List1.List(I)
List1.List(I) = List1.List(I - 1)
List1.List(I - 1) = A
  List1.Selected(I - 1) = True
  Exit Sub
End If
Next
End Sub
Avatar billede pissed_squirrel Nybegynder
19. februar 2004 - 22:07 #3
Det virker jo fint !!

Mange tak for det :D
Avatar billede kabbak Professor
19. februar 2004 - 22:36 #4
tak for point ;-))
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 16:05 Samsung Galaxy vil ikke ud af "Sikker tilstand" Af ErikHg i Mobiltelefoner
I går 12:15 morf bilede Af knuldefar1942 i Fri debat
07/0822:13 Gemme største værdi Af Lemming@privat.dk i Excel
07/0821:39 Kvindelig journalist ved DR - hvad er hendes navn. Af ErikHg i Fri debat
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
White papers
Flere white papers »