ورود

View Full Version : اعلام لحظه به لحظه سطرهای انتخاب شده در LisView



pernia
شنبه 14 شهریور 1388, 08:14 صبح
سلام
یه ListView رو در نظر بگیرید که Multiselect=True هست و
حدود 500 تا سطر هم در 15 تا Column بهش اضافه شده.
من میخوام تعداد سطرهای Selected رو در هر لحظه بدونم اما این کد که نوشتم اصلا بهینه نیست و در تعداد سطر زیاد ، خیلی کند میشه !







Dim i As Integer, c As Integer

StatusBar1.Panels(2).Text = "SELECTED:0"

For i = 1 To LV1.ListItems.Count
If LV1.ListItems(i).Selected Then
c = c + 1
End If
Next
StatusBar1.Panels(2).Text = "SELECTED:" & c

کسی پیشنهاد موثری نداره؟

mpmsoft
شنبه 14 شهریور 1388, 14:11 عصر
راه دیگه ای نداره
مگر استفاده از رویداد Item_Checked