投稿日 | : 2003/02/21(Fri) 17:45 |
投稿者 | : クリーム |
URL | : |
タイトル | : コンボボックスのリスト |
「地域」コンボボックスに「北海道、東北、関東・・・」とAddItemし、同じフォーム上に「都道府県」コンボボックスを設け、「関東」を選択しているときは「東京」「神奈川」「千葉」・・・というようにAddItemされるようなプログラムを作っています。
Private Sub cboPrefecture_GotFocus()
cboPrefecture.Clear
With cboPrefecture
Select Case cboArea.Text
Case "北海道"
.AddItem "ナイショ"
.AddItem "北海道"
.ListIndex = Pre
Case "東北"
.AddItem "ナイショ"
.AddItem "宮城"
.AddItem "福島"
.AddItem "山形"
.AddItem "青森"
.AddItem "岩手"
.AddItem "秋田"
.ListIndex = 0
Case "関東"
.AddItem "ナイショ"
.AddItem "東京"
.AddItem "神奈川"
.AddItem "埼玉"
.AddItem "千葉"
.AddItem "茨城"
.AddItem "群馬"
.AddItem "栃木"
.ListIndex = 0
Case "甲信越"
.AddItem "ナイショ"
.AddItem "新潟"
.AddItem "山梨"
.AddItem "長野"
.ListIndex = 0
Case "北陸"
.AddItem "ナイショ"
.AddItem "富山"
.AddItem "石川"
.AddItem "福井"
.ListIndex = 0
Case "東海"
.AddItem "ナイショ"
.AddItem "愛知"
.AddItem "静岡"
.AddItem "岐阜"
.AddItem "三重"
.ListIndex = 0
Case "近畿"
.AddItem "ナイショ"
.AddItem "大阪"
.AddItem "兵庫"
.AddItem "京都"
.AddItem "奈良"
.AddItem "和歌山"
.AddItem "滋賀"
.ListIndex = 0
Case "中国・四国"
.AddItem "ナイショ"
.AddItem "広島"
.AddItem "岡山"
.AddItem "山口"
.AddItem "徳島"
.AddItem "香川"
.AddItem "愛媛"
.AddItem "高知"
.AddItem "鳥取"
.AddItem "島根"
.ListIndex = 0
Case "九州"
.AddItem "ナイショ"
.AddItem "福岡"
.AddItem "佐賀"
.AddItem "長崎"
.AddItem "熊本"
.AddItem "大分"
.AddItem "宮崎"
.AddItem "鹿児島"
.AddItem "沖縄"
.ListIndex = 0
End Select
End With
End Sub
上記のコードで成功はしたのですが、コンボボックスにFocusするとLinstIndexが0に戻ってしまいます。
この他、cboArea(「地域」コンボボックス)_Changeイベントで試したのですが「都道府県」コンボボックスは変化しませんでした。Focusを受けてもListIndexが選択されたままにするにはどうしたらいいのでしょうか?