Question

我正在陈述VB，因为它非常接近VBScript我一直很开心。但是现在我遇到了＃34; Checkboxlist＆＃34;。

我的老板看到我制作一个Windows窗体应用程序并要求我为他的一个批处理文件创建一个界面（GUI）。在批处理中，您首先选择第1行到第10行，然后完成剩下的工作。所以我制作了一个Checkboxlist并将复选框从1改为10。现在我不知道如何告诉它当我单击一个按钮时，if语句会查看已检查的内容并采取适当的操作。

我想我想从

开始

If CheckedListBox1.Items() = True then

但我知道这不起作用。任何事情都会有所帮助。谢谢。

Answer 1

听起来你正在寻找ItemCheck事件。当项目的已检查状态发生变化时，将触发此事件。

Private Sub HandleCheckedListBox1ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck

    Dim item As Object = Me.CheckedListBox1.Items.Item(e.Index)
    Dim text As String = Me.CheckedListBox1.GetItemText(item)

    Select Case e.CurrentValue
        Case CheckState.Unchecked
            '...
        Case CheckState.Checked
            '...
        Case CheckState.Indeterminate
            '...
    End Select

End Sub

或迭代所有选中的项目：

Private Sub HandleButton1Click(sender As Object, e As EventArgs) Handles Button1.Click

    For Each item As Object In Me.CheckedListBox1.CheckedItems
        Dim text As String = Me.CheckedListBox1.GetItemText(item)
        '...
    Next

End Sub

Checkboxlist应用If语句

1 个答案: