コンボボックスの値を連動させたい

質問

コンボボックスの値が変わらずに悩んでいます。
.listindexではプロパティしか確かめられないことがわかりました。

.Textだと直接記述しないといけません。

Select Case ◎◎.ListIndex
Case 0 To 5
××.ボックス.******
Case 6 To 7
××.ボックス.******
End Select

*****のところを別のに変えればなんとかなりそうなんですが、どうすればよいのでしょうか？直接値を代入しない方法で簡単な方法があれば教えてください。

回答No.1

imogasi · ベストアンサー

Form1にコンボとテキストボックスを貼りつけました。
コンボのアイテムを１つクリックすると、選んだものが
テキストにセットされる。こんなことですか。
Private Sub Form_Load()
Form1.Combo1.AddItem "京都"
Form1.Combo1.AddItem "大阪"
Form1.Combo1.AddItem "神戸"
End Sub
Private Sub Combo1_Click()
'Form1.Text1.Text = Form1.Combo1.Text
Form1.Text1.Text = Form1.Combo1.List(ListIndex)
End Sub
で「大阪」をクリックすると、テキストに「大阪」とセットされます。
Form1.Text1.Text = Form1.Combo1.Text
でも同じになりました。
問題の意味を誤解していたら済みません。

お礼

回答ありがとうございました。
やはりコードに直接リストの内容を記入しないといけないんですか。リストに選択肢を入れるにはAddItemを使わないといけないんですね。