---

Er der nogle der ved hvordan man kan se hvilken linier i en Form1.List1 boks
der er selected

Når man benytter Form1.Multiselect = 2 - Extended.



Problemet kan være at hvis man nu har 20 linier i sin List boks og det er
værd anden der er selected.

Hvordan ser jeg hvilken af de 10 der er selected.



For A = 1 To Form1.List1.ListCount

If Form1.List1.List(A - 1) = True Then MsgBox Form1.List1.List(A - 1)

Next A



Findes der en kommando til det ?



Jeg har set at der er en der fortæller hvor cursoren er sidst placeret

Form1.List1.ListIndex men man kan ikke bare tælle op/ned efter den da det
kan være værd anden der er selected.



HJÆLP

--------------------------------------------
(¯`·.¸¸.-=[ WebTime ]=-.¸¸.·´¯)
--------------------------------------------
http://webtime.adr.dk
--------------------------------------------

---

Jørgen Holdt skrev:
> Er der nogle der ved hvordan man kan se hvilken linier i en Form1.List1
boks
> der er selected
[snip]

' Viser markerede elementer i List1:
Dim i As Long
For i = 0 To Form1.List1.ListCount - 1
If Form1.List1.Selected(i) Then
MsgBox Form1.List1.List(i)
End If
Next i

Det skulle virke ...

Mvh. Bjarke

---

Virker Perfekt...

Tak for den hurtige hjælp
----------------------------------
"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:3d05427c$0$71646$edfadb0f@dspool01.news.tele.dk...
> Jørgen Holdt skrev:
> > Er der nogle der ved hvordan man kan se hvilken linier i en Form1.List1
> boks
> > der er selected
> [snip]
>
> ' Viser markerede elementer i List1:
> Dim i As Long
> For i = 0 To Form1.List1.ListCount - 1
> If Form1.List1.Selected(i) Then
> MsgBox Form1.List1.List(i)
> End If
> Next i
>
> Det skulle virke ...
>
> Mvh. Bjarke
>
>