PDA

View Full Version : list box



S_O_S1982
شنبه 03 بهمن 1388, 00:15 صبح
سلام

دوستان من به برنامه ام یک لیست باکس اضافه کردم و بر اساس تنظیماتی که انجام دادم نمایش آیتم های اون به صورت چک باکس هست
به محص کلیک کردن بر روی این لیست باکس رویداد itemcheck اجرا می شه و اگه چک باکس انتخاب نشده باشه قبلا تیک اون رو می زنه و اگه انتخاب شده باشه تیک اون رو ور می داره ،
حالا من می خواستم کاری کنم وقتی که کلیک می کنم روی این لیست باکس اگه شرطی برقرار بود ، تیک اون عنصر لیست باکس رو برداره یا بزاره ... ، برای همین تو رویداد item check شرط های لازم رو اضافه می کنم ، اما باز هم مشکل من حل نشده ، یعنی هنگامی که رویداد Item check اجرا می شه ، صد در صد باعث تغییر وضعیت قبلی آیتم ها میشه ، یعنی اگه تیک خورده باشه ، اون رو ور می داره ، اگه نداشته باشه تیکش رو می زاره ، می خواسنم بدونم میشه کاری کرد که جلوی این کار رو گرفت ؟

parselearn
شنبه 03 بهمن 1388, 00:55 صبح
اين كد در حدي كه من تست كردم درست بود



Private Sub Form_Load()
For i = 0 To 5
List1.AddItem i
Next i
End Sub

Private Sub List1_ItemCheck(Item As Integer)
List1.Selected(List1.ListIndex) = Not List1.Selected(List1.ListIndex)
If List1.List(List1.ListIndex) = "3" Then
List1.Selected(List1.ListIndex) = Not List1.Selected(List1.ListIndex)
End If
End Sub