VB中的复选框问题

Question

我试图只显示特定国旗下的所需国家。但是，当我更改单选按钮并更改复选框的选项时，它不起作用，并在首次选择后显示所有国家/地区名称..

//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

Answer 1

尝试创建一个像这样的子：

Private Sub AdjustVisibleName()
  LBL_KW.Visible = (KuwaitFlag.Checked = True AndAlso CH_KW.Checked = True)
  'Exactly the same for the other countries
End Sub

然后在每个复选框和单选按钮的CheckedChanged事件处理程序中调用此函数。 这样，您可以确保显示的名称始终是最新的。