Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim a As Integer For i = 0 To Me.Lstcap.ListCount - 1 If Me.Lstcap.Selected(i) Then a = a + 1 Me.lblsay.Caption = a End If Next If a = 0 Then Me.lblsay.Caption = a End If End Sub
Yapılan herbir seçimi bir label’a yazmış olduk……
MouseUp event’ına neden kod yazdık? Ehli anlar 🙂