title image


Smiley Re: Das ist sehr einfach...
Hallo



Vorausgesetzt dass das Command1 schon in der IDE den Wert Disabled hat und auch List1 schon in der IDE den Wert MultiSelect hat:



Private Sub Form_Load()

Dim i As Integer

For i = 0 To 100

List1.AddItem "Test #" & Format(i, "000")

Next i

End Sub



Private Sub List1_Click()

If List1.SelCount > 0 Then

Command1.Enabled = True

Else

Command1.Enabled = False

End If

Debug.Print "Element #" & Format(List1.ListIndex, "000") & " wurde gewählt."

Debug.Print "Es sind nun #" & Format(List1.SelCount,"000") & " Elemente makiert."

End Sub



Gruss THORAX



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: