复选框和标签连接

Question

我正在生成各种数量的复选框 1-x 和标签 1-x：

WithEvents lb_cislozakazky As Windows.Forms.Label
WithEvents check_m As Windows.Forms.CheckBox

For i = 1 To x
        check_m = New Windows.Forms.CheckBox
        check_m.Name = "check_manual" & i
        check_m.Top = i * 20 - 19
        check_m.Left = 35
        check_m.Width = 20
        check_m.Height = 20
        Panel2.Controls.Add(check_m)   
 next

现在我想将一个复选框与一个标签连接起来。例如：当你检查chckbox1时，label1会变成红色。

Answer 1

在将CheckStateChanged 事件添加到面板之前，您需要将event handler 添加到您的复选框中。然后在事件处理函数中，只需作用于名称中的 i 值，就可以用对应的 i 值改变标签的属性。

WithEvents lb_cislozakazky As Windows.Forms.Label
WithEvents check_m As Windows.Forms.CheckBox

For i = 1 To 10
    check_m = New Windows.Forms.CheckBox
    check_m.Name = "check_manual" & i
    check_m.Top = i * 20 - 19
    check_m.Left = 35
    check_m.Width = 20
    check_m.Height = 20
    lb_cislozkzky = New Windows.Forms.Label
    select case (i)
        case 1 : lb_cislozakazky.Caption = "My caption for label 1"
        case 2 : lb_cislozakazky.Caption = "My caption for label 2"
        ...
    end select
    'do sizing positioning of label here:
    lb_cislozakazky.Name = "lb_cislozakazky" & i
    AddHandler lb_cislozakazky.CheckStateChanged, AddressOf CheckBox_CheckStateChanged
    Panel2.Controls.Add(lb_cislozakazky)
    Panel2.Controls.Add(check_m)   
next


Private Sub CheckBox_CheckStateChanged(sender as Object, e as EventArgs)
Dim index as integer
Dim msg as string

    if not integer.tryparse(((CheckBox)sender.Name.Remove(0, 15)), index) then index = -1

    if index <> -1 Then
        msg = "You pressed button " & index &", which is next to lb_cislozakazky_" & index & " and the label caption is: " & yourArrayOfLabelCaptions(index)

    Else
        msg = "Error - unable to determine index, check the name: " & (CheckBox)sender.Name & vbcrlf & " and try again!"    
    End If
    MessageBox.Show(msg)
end Sub

如您所见，我使用您现有的伪代码来实现所有这些。您没有指定数组名称，因此您需要将 yourArrayOfLabelCaptions 替换为您的数组。