Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net VB中的复选框问题_Vb.net_Visual Studio 2010_Checkbox - Fatal编程技术网

Vb.net VB中的复选框问题

Vb.net VB中的复选框问题,vb.net,visual-studio-2010,checkbox,Vb.net,Visual Studio 2010,Checkbox,我试图只显示特定国旗下的所需国家。但是,当我更改单选按钮并更改复选框的选择时,它不起作用,在第一次选择后,它将显示所有国家的名称 //Code for Option Buttons Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKFlag.CheckedChanged

我试图只显示特定国旗下的所需国家。但是,当我更改单选按钮并更改复选框的选择时,它不起作用,在第一次选择后,它将显示所有国家的名称

//Code for Option Buttons

Public Class Form1
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKFlag.CheckedChanged
          PakFlag.Visible = PKFlag.Checked
    End Sub

//Code for Check Boxes

    Private Sub CH_KW_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CH_KW.CheckedChanged
        If KuwaitFlag.Checked = True And CH_KW.Checked = True Then
            LBL_KW.Visible = True
        Else
            LBL_KW.Visible = False
        End If
    End Sub

尝试创建如下子对象:

Private Sub AdjustVisibleName()
  LBL_KW.Visible = (KuwaitFlag.Checked = True AndAlso CH_KW.Checked = True)
  'Exactly the same for the other countries
End Sub
然后在CheckedChanged事件处理程序中,为每个复选框和单选按钮调用此函数。
这样,您可以确保显示的名称始终是最新的

嗯,首先。尽量给控件起有意义的名字。@Steve我怎样才能给控件起有意义的名字?