Visual Basicで困っています

質問

Visual Basic 2010でテキストボックスとコンボボックスを複数設置し
コンボボックスの選択の組み合わせによって消すテキストボックスを決めたいと思っています。
初心者で下記のようなコードしか思いつかないのですが、これを簡略化できませんか？

例)
コンボボックス1で一番目の項目を選択して、コンボボックス2で一番目の項目を選択した場合は
テキストボックス１のテキストを消す
コンボボックス1で一番上の項目を選択して、コンボボックス2で二番目の項目を選択した場合は
テキストボックス2のテキストを消す

みたいな感じです。

コード

If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 1 Then
TextBox1.Clear()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 2 Then
TextBox2.Clear()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 3 Then
TextBox3.Clear()
　　　　ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 4 Then
TextBox4.Clear()
End If

わかりづらい文章で申し訳ないですが、わかる方、回答をお願いします。

回答No.1

redfox63 · ベストアンサー

もう少し簡略化出来そうですよ

ComboBox1はSelectedIndexが0かそれ以外かで処理を振り分ける
ComBoBox2はSelectedIndexで どのTextBoxを選択するのかを決める
ということであれば

dim TargetTextBox as TextBox
If ComboBox1.SelectedIndex = 0 then
　　' ComboBox1の選択が最初の行なら
　　select case ComboBox2.selectedIndex
　　case 1
　　　　TargetTextBox = TextBox1
　　case 2
　　　　TargetTextBox = TextBox2
　　case 3
　　　　TargetTextBox = TextBox3
　　case 4
　　　　TargetTextBox = TextBox4
　　end select
　　if Not TarextBox Is Nothing then
　　　　' 選択が 2行目から5行目の選択なら
　　　　' 該当するTextBoxをクリアする
　　　　TargetTextBox.Clear
　　end if
End if

といった具合です ・・・

お礼

ありがとうございます。
だいぶ簡略化することができました。

回答No.2

uma79

第一条件が共通なら、その中に第２条件を入れるほうが、見やすい。

If ComboBox1.SelectedIndex = 0 Then　
　　If ComboBox2.SelectedIndex = 1 Then　TextBox1.Clear()
　　If ComboBox2.SelectedIndex = 2 Then　TextBox2.Clear()
　　If ComboBox2.SelectedIndex = 3 Then　TextBox3.Clear()
　　If ComboBox2.SelectedIndex = 4 Then　TextBox4.Clear()
End if

構造化と言います。