複数のコンボボックスに同じデータソースを表示させるには？

解決

かみなり 2005-07-15 19:59:05 No: 123513

複数のコンボボックスに同じデータソースを表示させたいのですが。

Combo1とCombo2を作成し、そこに同じデータを表示させたいのですが。
テーブル等を作成しないで表示できる
書き方はありますでしょうか。

特攻隊長まるるう 2005-07-15 22:11:30 No: 123514

データソースからデータを文字列で抜き出し、
Combo1 と Combo2 に同じように AddItem する。

通ってみた 2005-07-15 23:05:38 No: 123515

Combo1にデータを作成できるのなら、同じ事をするだけだと思うけど・・・
VB6.0なら配列にしたらもっと楽だと思うけど

かみなり 2005-07-16 02:53:12 No: 123516

下記のような同じことを２回書きたくなく、
Combo1にもCombo2にも同様に表示させたいんです。
すいません、配列での書き方、ご教授願えませんでしょうか。
Combo2.AddItem "1"
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo2.AddItem "6"
Combo2.AddItem "7"
Combo2.AddItem "8"
Combo2.AddItem "9"
Combo2.AddItem "10"
Combo2.AddItem "11"
Combo2.AddItem "12"

ree 2005-07-16 03:07:50 No: 123517

コンボボックスにアイテムを追加する処理だけを考えるなら
メソッドを作ってみては？

多分こんな感じ・・・
的を得てなかったらスルーで構いませんorz
Private Sub cboAddItem(cboObje As ComboBox)
    Dim intcnt As Integer
    For intcnt = 1 To 10 Step 1
        cboObje.AddItem CStr(intcnt)
    Next
End Sub

配列を使ってもっと丁寧に書いてみてください。

ガッ 2005-07-16 03:09:10 No: 123518

・動作が同じで代入するデータが違うのなら、それを外部データとして保持する。
・単調な操作の繰り返しはFor-Nextなどのループで代用可能。
…というまとめでおｋ？

かみなり 2005-07-16 03:46:24 No: 123519

出来ました。
combo1をフォーム上でコピペして、配列にして
for-nextで廻したら出来ました。
どうもです。。。。。