برداشتن Focus از روی ListBox

[alizanganeh]

سلام
میخوام وقتی کار برنامه تموم شد ، حالت انتخاب آبی رنگ رو از روی لیست باکس برداره و هیچ رکوردی از لیست باکس در حالت انتخاب نباشه
چه کنم ؟
ممنون

[سپهر-111]

سلام
میخوام وقتی کار برنامه تموم شد ، حالت انتخاب آبی رنگ رو از روی لیست باکس برداره و هیچ رکوردی از لیست باکس در حالت انتخاب نباشه
چه کنم ؟
ممنون
با دستور ست فوکس ، فکوس را به یک شئی دیگه بده

[Veteran]

List1.ListIndex = -1

[محسن واژدی]

سلام علیکم
اگر خاصیت multi-select فرم انتخاب نشده کد جناب Vateran یا قرار دادن متد Selected=False کافی هست، از کد زیر هم میتوانید استفاده کنید: Private Sub Command1_Click()
Dim i, iT
With List1
If .MultiSelect = 0 Then
.Selected(.ListIndex) = False Else
iT = .SelCount
For i = 0 To .ListCount - 1
If .Selected(i) Then
.Selected(i) = False
iT = iT - 1
If iT = 0 Then Exit For
End If
Next 'i
End If
End With
End Sub


موفق باشید

[alizanganeh]

با دستور ست فوکس ، فکوس را به یک شئی دیگه بده



این نمیشه
ممنون

[alizanganeh]

با همون List1.ListIndex = -1 درست شد
البته نمیدونم چرا ولی همین کد رو قبلا هم زده بودن ولی نشده بود
شاید جای خوبی نبود کد
بازم ممنون از همه:قلب: