Comment vérifier les éléments sélectionnés

Question

En utilisant VB6

Dans le formulaire, je vais avoir 2 liste nom de la boîte comme lstDivison, lstDepartment

code

For I = 0 To lstDivision.ListCount - 1 
    If lstDivision.Selected(I) = True Then 
     Filter = "" 
     Filter = lstDivision.List(I) 
     Divison 
    Else 
     ViewAll 
    End If 
    Next 


    For I = 0 To lstDepartment.ListCount - 1 
    If lstDepartment.Selected(I) = True Then 
     Filter = "" 
     Filter = lstDepartment.List(I) 
     Department 
    Else 
     ViewAll 
    End If 
    Next 

code ci-dessus fonctionne, mais je veux pour savoir quelle valeur de listbox est sélectionnée.

Conditon

If lstDivison list item is selected then it should not check the lstDepartment, if lstDepartment list item is selected then it should not check the lstDivison... 

code comme ça ...

If lstDivison.selected = true then 

some code 

ElseIf lstDeartment.Selected = true then 

some code 

Else 

Some code 

End If 

Comment faire.

Besoin VB6 code Aide

Answer 1

Une façon de résoudre ce problème est de faire en sorte que seule une des listes déroulantes a une valeur sélectionnée à chaque fois, en laissant les listboxes Annulez la sélection de l'autre ListBox lorsqu'il est sélectionné. Cela permet à l'utilisateur de mieux comprendre les valeurs à attendre du filtre, car il n'y aura que des valeurs sélectionnées dans une liste à la fois.

Pour ce faire, vous pouvez ajouter ce code:

private sub lstDepartment_Click() 
    For I = 0 to lstDivision.ListCount - 1 
    lstDivision.Selected(I) = False 
    Next 
End Sub 

private sub lstDivision_Click() 
    For I = 0 to lstDepartment.ListCount - 1 
    lstDepartment.Selected(I) = False 
    Next 
End Sub 

Après cela, votre code actuel fonctionnera.