ラジオボタンをチェック後、combobox表示を消したい。

Question

##ソースコード

Imports System.Globalization
 Private ReadOnly list As New Dictionary(Of String, Integer)
 
foam_load
            list.Add("(なし)",0)'ラジオボタン１を押すと（なし）表示
            list.Add("A",0)'ラジオボタン２を押すとA~F表示
            list.Add("B",0)
            list.Add("C"0)
            list.Add("D",0)
            list.Add("E",0)
            list.Add("F",0)
            list.Add("G",0)’ラジオボタン３を押すとG~L表示
            list.Add("H",0)
            list.Add("I"0)
            list.Add("J",0)
            list.Add("K",0)
            list.Add("L",0)

        ComboBox1.DisplayMember = "key"
            ComboBox1.ValueMember = "value"
            ComboBox1.DataSource = New BindingSource(list, Nothing)
            ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
            TextBox1.Enabled = False
end sub
 Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
'ラジオボタン２と３のcomboboxの表示は消える
 If RadioButton1.Checked = True Then
    RadioButton1.Checked = True
RadioButton2.Checked = False
RadioButton3.Checked = False
            ComboBox1.SelectedIndex = 0
end if
if RadioButton1.Checked = False Then
list.Clear()
end if
 end sub
 Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
 If RadioButton2.Checked = True Then
    RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
            ComboBox1.SelectedIndex = 1'A~
end if
if RadioButton2.Checked = False Then
list.Clear()
end if
end sub  
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
 If RadioButton3.Checked = True Then
    RadioButton1.Checked = False
RadioButton2.Checked = False
            ComboBox1.SelectedIndex = 7'G~
end if
if RadioButton3.Checked = False Then
list.Clear()
end if
end sub

コードは作成中のものです。
##わからない事
修正してみましたが解決しませんでした。
具体的には

ラジオボタン１を有効「（なし）」表示され「２，３の表示を消す」
ラジオボタン２を押すとAF表示され「１と３の表示を消す」
ラジオボタン３を押すとGL表示され「１，２の表示を消す」

すいません、いろいろ試しに検索したりしても解決しませんでした。

##開発バージョン
visual studio 2019
OS windows 10

Answer 1

選んだRadioButtonによって、ListBoxの選択しを変更したいということですよね？
まず、RadioButtonは同一コンテナに配置されているRadioButtonのうち１つのみチェックがつくコントロールです。
ですので、

 If RadioButton1.Checked = True Then
    RadioButton1.Checked = True
    RadioButton2.Checked = False
    RadioButton3.Checked = False
end if

という感じの選ばれた他のRadioButtonのCheckdをFalseにすることは自動で行われるので必要はありません。

本題のListBoxの選択肢の変更ですが、
まず、ComboBox1.SelectedIndexは選択されているインデックスを変更するプロパティです。
ですので、これでは何番目のアイテムが選択されているかが変更されるだけです。
楽なのは、RadioButton1が選択された時に表示するアイテムのList、RadioButton2が選択された時に表示するアイテムのListという感じで
別々のListを作成して切り替える形なのではないかと思います。

Private ReadOnly list1 As New Dictionary(Of String, Integer)
Private ReadOnly list2 As New Dictionary(Of String, Integer)
Private ReadOnly list3 As New Dictionary(Of String, Integer)

list1.Add("(なし)",0)'ラジオボタン１を押すと（なし）表示
list2.Add("A",0)'ラジオボタン２を押すとA~F表示
list2.Add("B",0)
list2.Add("C"0)
list2.Add("D",0)
list2.Add("E",0)
list2.Add("F",0)
list3.Add("G",0)’ラジオボタン３を押すとG~L表示
list3.Add("H",0)
list3.Add("I"0)
list3.Add("J",0)
list3.Add("K",0)
list3.Add("L",0)


Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
    If RadioButton1.Checked = True Then
        ComboBox1.DataSource = New BindingSource(list1, Nothing)
    end if
end sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
    If RadioButton2.Checked = True Then
        ComboBox1.DataSource = New BindingSource(list2, Nothing)
    end if
end sub

といった感じです。

Comments

[退会済みユーザー]

YAmaGNZさん
わかりやすい内容でできました。
勉強になりました。ありがとうございました。

Answer 2

VisualStudioを使ってるなら、任意の行でブレークポイントを設定して実行を止めることができます
そして、変数の内容を見ることもでき、そこから１行づつ実行することもできます。
そうやって動作を確認していってみてはどうでしょうか