title image


Smiley Re: Listbox mit Mehrfachauswahl




      

Private Sub Command1_Click()

   Dim i As Long

   'Alle gesetzten Items auswählen:

   For i = 0 To List1.ListCount - 1

      If List1.Selected(i) Then

         MsgBox "Item " & CStr(i) & " ist selektiert!"

      End If

   Next

End Sub



Private Sub Form_Load()

   Dim i As Long

   'Ein paar Einträge in die LB

   For i = 0 To 10

      List1.AddItem "Item " + CStr(i)

   Next

   

   'Erstes Item selektieren:

   'ACHTUNG: 0 basiert!

   List1.Selected(0) = True

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: