[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/10/25(Tue) 16:33
投稿者名：kuma
Ｅメール：
ＵＲＬ　：
タイトル：コンボボックスで
調べてみたのですが、分からなかったので教えてください。

コンボボックスで、名称を表示しています。
その名称に対応するコードをプログラム内で持ちたいのですが、
方法が分かりません。
どなたかお願いします。

For i=0 To rec.RecordCount -1
   cmbPriod.Additem (rec.Fields("PRIOD"))
   red.MoveNext
Next

投稿時間：2005/10/25(Tue) 17:10
投稿者名：るしぇ
Ｅメール：
ＵＲＬ　：
タイトル：Re: コンボボックスで
ボクの場合、コンボボックスへ表示する名称も含めて必要な情報は全て
自分で用意した変数に格納して管理するかな。[VB.NET]なら Item 自体に
構造体とかクラスを格納できますが、[VB6.0]は文字列しか格納できなかった
と思いますので。

コンボボックスは自分で管理する変数内のデータの表示だけに利用して、
データの対応は ListIndex などで。

投稿時間：2005/10/25(Tue) 17:56
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: コンボボックスで
> その名称に対応するコードをプログラム内で持ちたいのですが、

そのコードがどのような物なのかよく解らないのですが、方法は色々あるかと
思います。
その名称に対応するコードを登録した非表示のコンボボックスをもう１個用意
するとか。
そのコードが、レコード番号のようなものなら一緒に登録するとか
cmbPriod.Additem "0123" & "   " & rec.Fields("PRIOD")
のようにして
Left$ 関数 や Mid$ 関数を使って取り出すとか。

投稿時間：2005/10/25(Tue) 19:29
投稿者名：kuma
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: コンボボックスで

有難うございました。
コンボボックス自体には持てないということですね。

１番早そうな方法でやってみます（あまり変わらないと思いますが。。）

投稿時間：2005/10/26(Wed) 13:06
投稿者名：matsu
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: コンボボックスで
>
> 有難うございました。
> コンボボックス自体には持てないということですね。
>
> １番早そうな方法でやってみます（あまり変わらないと思いますが。。）

ItemDataプロパティを使ってみてはどうですか？
Combo1.ItemData(Combo1.ListIndex)とすれば対応するコードを取得できると思います。