ビジュアルベーシック2008について

質問

ビジュアルベーシック2008について

現在リストボックスとコンボボックスを使い、リストから選択したものをボタンを押すとコンボボックスに表示させるという練習の課題を作っています。（例：例えばリストから”ピザ”を選択した後、ボタンを押すとコンボボックスにピザ、と表示される）

それの応用として、リストボックスとシンプルコンボボックス、そしてラジオボタンを使う課題に取り組んでいます。詳しく言えば、”月曜日－パスタ”、”火曜日－ピザ”と2つの欄があるリストボックス、”月曜日”、そして”火曜日”と2つのラジオボタン、そしてシンプルコンボボックスを作ります。そしてもしユーザーが月曜日のラジオボタンを押した場合、自動的にシンプルコンボボックスにパスタ、と表示させたいのですが、コードが全くわかりません。ヤフーや教科書で探してみてはいるのですが一向に解決しません。また月曜日のラジオボタンを選択し、パスタ、とコンボボックスに表示されてる後、火曜日のラジオボタンを押すと”パスタ”という文字が消えてピザ、と自動的に表示されるようにしたいのです。自分なりにも色々頑張ってみますが、どうぞお知恵をお貸しください。

回答No.1

Wendy02 · ベストアンサー

>（例：例えばリストから”ピザ”を選択した後、ボタンを押すとコンボボックスにピザ、と表示される）

　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　ComboBox1.Items.Add(ListBox1.Text)
　　End Sub

　　Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　　　ListBox1.Items.Add("Pizza")
　　　　ListBox1.Items.Add("Pasta")
　　　　ListBox1.Items.Add("Hot Dog")
　　　　ListBox1.Items.Add("Humberger")
　　　　ListBox1.Items.Add("Donuts")
　　　　ListBox1.Items.Add("Fish and Chips")
　　End Sub

ボタンを押しても、表示はされませんが、ComboBox1 の中のItemに入っています。

>”月曜日”、そして”火曜日”と2つのラジオボタン、そしてシンプルコンボボックスを作ります。
>そしてもしユーザーが月曜日のラジオボタンを押した場合、自動的にシンプルコンボボックスに
>パスタ、と表示させたい

ラジオボタンは、RadioButton1 とRadioButton2 になっています。

　　Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
　　　　ComboBox1.Items.Clear()
　　　　If RadioButton1.Checked Then
　　　　　　ComboBox1.Items.Add("Pasta")
　　　　　　'ComboBox1.SelectedIndex = 0
　　　　End If
　　End Sub
　　Private Sub RadioButton2_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
　　　　ComboBox1.Items.Clear()
　　　　If RadioButton2.Checked Then
　　　　　　ComboBox1.Items.Add("Pizza")
　　　　　　'ComboBox1.SelectedIndex = 0
　　　　End If
　　End Sub

同じく、ダウンボタンを押してみれば、中に入っています。もし、クリックした時に表示したければ、
　　　　　　'ComboBox1.SelectedIndex = 0
「'」の apostrophe を外してください。最初の質問も同様です。ただし、最初の問題は、ListBox1の選択のひとつを選んで、ComboBox1 に入りますが、ダブリを省くようには作られていません。

ところで、学校の授業のHomework のようですが、TextBook はあるのですか？ひとつ詳しいものを手に入れると良いと思います。

お礼

詳しいコードまで本当にありがとうございます！
しかし各ラジオボタンにComboBox1.Items.Clear()をつけると、他のリストで既にコンボボックスに表示された物まで全てオールクリアになってしまうので、自分なりにも色々調べてみますがまだこの回答を見ていらっしゃりお答え頂けるのでしたら本当にうれしいです。

Textbookはありますが、必要な情報が少ないのと全て英語なので、Textbookでつまった時に自分で日本語のホームページで調べるという事が難しい状態です…。