Блог

Использование 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
  

Приведенный выше код работает, но я хочу знать, какое значение listbox выбрано.

Условие

 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

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

Для этого вы можете добавить этот код:

 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
  

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