Как проверить выбранные товары

Question

Использование VB6

В форме у меня есть 2 списка в виде lstDivison, lstDepartment

код

    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

Над кодом работает, но я хочу знать, какое значение списка выбрано.

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...

Код вроде этого ...

If lstDivison.selected = true then

some code

ElseIf lstDeartment.Selected = true then

some code

Else

Some code

End If

Как это сделать.

Нужна помощь по коду VB6

Answer 1

Один из способов решения этой проблемы - убедиться, что только один из элементов управления списком имеет выбранное значение каждый раз, позволяя спискам очищать выбор из другого списка, когда он выбран.Это несколько упрощает понимание пользователем того, какие значения следует ожидать от фильтра, поскольку в один список будут одновременно выбираться только значения.

Для этого можно добавить следующий код:

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

После этого ваш текущий код будет работать.