コンボボックスのクリア方法について教えて下さい（vb6.5）

質問

コンボボックスのクリア方法について教えて下さい（vb6.5）

ComboBox1で選択したものによって、
ComboBox2で表示するものを変えたいと思っています。

ただ、一度ComboBox1で選択した後にComboBox2を開くと、
ComboBox2は前回のものがどんどん足されていきます。

コンボボックスのクリア方法について、
どの様にすればよいかご教示のほど、
宜しくお願い致します。

Private Sub ComboBox1_Change()

UserForm1.ComboBox2.RemoveItem (0)

If ComboBox1.Text = 1 Then

UserForm1.ComboBox2.AddItem "A"
UserForm1.ComboBox2.AddItem "B"
UserForm1.ComboBox2.AddItem "C"

ElseIf ComboBox1.Text = 2 Then

UserForm1.ComboBox2.AddItem "D"
UserForm1.ComboBox2.AddItem "E"
UserForm1.ComboBox2.AddItem "F"

Else

UserForm1.ComboBox2.AddItem "G"
UserForm1.ComboBox2.AddItem "H"
UserForm1.ComboBox2.AddItem "I"

End If

End Sub
--------------------------------------
Private Sub UserForm_Initialize()

UserForm1.ComboBox1.AddItem "1"
UserForm1.ComboBox1.AddItem "2"
UserForm1.ComboBox1.AddItem "3"

End Sub

回答No.1

wareware7 · ベストアンサー

If ComboBox1.Text = 1 Then　の後に

ComboBox2.Clear ------------------>この行を追加してみて下さい。
UserForm1.ComboBox2.AddItem "A"
UserForm1.ComboBox2.AddItem "B"
UserForm1.ComboBox2.AddItem "C"

If ComboBox1.Text = 2 Then
If ComboBox1.Text = 3 Then　の場合も同様です。

お礼

うまく出来ました。
早々にご教示有難うございました。

回答No.2

wareware7

UserForm1.ComboBox2.Clear

ですね。
失礼しました。