הסרה מ-list

[gali1975]

הסרה מ-list

שלום לכולם בניתי list box שיש לי אפשרות בחירה בו איך אני עושה שבלחיצת כפתור ימחקו כל הפריטים שסימנתי ? בתודה מראש

 

[sss1sss1]

כך

If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex End If

 

[טרמפיסט]

בטח התכוונת לזה

Private Sub cmdRemoveSel_Click() Dim i As Integer i = 0 While (i < List1.ListCount) If (List1.Selected(i)) Then List1.RemoveItem i Else i = i + 1 End If Wend End Sub​

כך בלחיצה על הכפתור cmdRemoveSel יוסרו הפריטים שסומנו. הצורך בלולאה "מתחכמת" קיים בגלל העובדה שבכל פעם שמסירים פריט מספר הפריטים משתנה וכך גם הלולאה. לכן יש לקדם את מונה הלולאה רק בתנאי שלא הסרנו אף פריט; אם הסרנו נשאיר אותו במקום כיון שהפריט הבא עבר לתפוס עכשיו את האינדקס הנוכחי.

 

[gonzila]

אפשר גם בלי המונה

פשוט להשתמש ב-List1.SelCount שיחזיר את מספר הפריטים המסומנים. ואז התנאי של הלולאה יהיה While List1.SelCount > 0 ופשוט כל פעם למחוק את List1.Selected.