コンボボックスを連動させるには？

解決

kei 2003-10-23 18:47:14 No: 109356

ふたつのコンボボックスを連動させたいと思い、以下のように書いてみました。
しかしCombo2の中身が変わってくれません。
何が間違っているのでしょうか？
ついでにお聞きしますが、コンボボックスに新規の項目を入力させたくありません。
どうすれば入力をさせないようにすることができるのでしょうか？

Private Sub Combo1_Change()
    Select Case Combo1.ListIndex
        Case 0:
            Combo2.Clear
            Combo2.AddItem "あ0", 0
            Combo2.AddItem "あ1", 1
            Combo2.ListIndex = 0
        Case 1:
            Combo2.Clear
            Combo2.AddItem "い0", 0
            Combo2.AddItem "い1", 1
            Combo2.ListIndex = 0
        Case 2:
            Combo2.Clear
            Combo2.AddItem "う0", 0
            Combo2.AddItem "う1", 1
            Combo2.ListIndex = 0
        Case Else:
            Combo2.Clear
    End Select
End Sub

Private Sub Form_Load()
    Combo1.AddItem "あ", 0
    Combo1.AddItem "い", 1
    Combo1.AddItem "う", 2
    Combo1.ListIndex = 0
    Combo2.AddItem "あ0", 0
    Combo2.AddItem "あ1", 1
    Combo2.ListIndex = 0
End Sub

ei 2003-10-23 19:45:11 No: 109357

イベントが違うと思います。
Combo1_Clickでやってみて下さい。

kei 2003-10-23 20:06:48 No: 109358

ありがとうございます。
Clickでうまくいきました！
引き続き、コンボボックスに新規の項目を入力させない方法をお願いします。

ei 2003-10-23 20:45:20 No: 109359

Styleプロパティを2にすればいいですよ。

注意：
人に頼ってばかりじゃ、いけません。
自分で調べてから聞きましょう。

kei 2003-10-23 20:59:04 No: 109360

ありがとうございます。
色々とプロパティを弄ったりヘルプで探してみたりしたのですが
どうも情報を見つけられなくて・・・。