/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Form1.List1=Multiselect HJÆLP
Fra : Jørgen Holdt


Dato : 10-06-02 22:03

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
--------------------------------------------



 
 
Bjarke Walling Peter~ (11-06-2002)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 11-06-02 01:20

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



Jørgen Holdt (11-06-2002)
Kommentar
Fra : Jørgen Holdt


Dato : 11-06-02 18:11

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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste