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

在此之后，您当前的代码将起作用。

如何检查所选项目

1 个答案: