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

解決

kei  2003-10-23 09:47:14  No: 109356  IP: [192.*.*.*]

ふたつのコンボボックスを連動させたいと思い、以下のように書いてみました。
しかし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 10:45:11  No: 109357  IP: [192.*.*.*]

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

編集 削除
kei  2003-10-23 11:06:48  No: 109358  IP: [192.*.*.*]

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

編集 削除
ei  2003-10-23 11:45:20  No: 109359  IP: [192.*.*.*]

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

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

編集 削除
kei  2003-10-23 11:59:04  No: 109360  IP: [192.*.*.*]

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

編集 削除