[ناجي إبراهيم]

السلام عليكم...

انقر نقراً مزدوجاً على كل من Check2 (عنوانه rabat) و Check3 (عنوانه fes) و Check4 (عنوانه casa) و اكتب الأكواد التالية كما هو مبين:

كود :

Private Sub Check2_Click()
    Dim AName As String
    Dim AItem As ListItem
  
    AName = UCase$(Check2.Caption)
  
    For Each AItem In ListView1.ListItems
        If UCase$(AItem.SubItems(4)) = AName Then AItem.Checked = (Check2.Value = vbChecked)
    Next AItem
End Sub

Private Sub Check3_Click()
    Dim AName As String
    Dim AItem As ListItem
  
    AName = UCase$(Check3.Caption)
  
    For Each AItem In ListView1.ListItems
        If UCase$(AItem.SubItems(4)) = AName Then AItem.Checked = (Check3.Value = vbChecked)
    Next AItem
End Sub

Private Sub Check4_Click()
    Dim AName As String
    Dim AItem As ListItem
  
    AName = UCase$(Check4.Caption)
  
    For Each AItem In ListView1.ListItems
        If UCase$(AItem.SubItems(4)) = AName Then AItem.Checked = (Check4.Value = vbChecked)
    Next AItem
End Sub

نرجو الاستفادة و السلام.