VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

Access風コンボボックス(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/07/16 10:49
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[コンボボックス][][]                                                *
* キーワード：ComboBox,書式,スタイル,,,                                           *
***********************************************************************************

元質問：Access風コンボボックス - ぱく　2003/10/29-22:03 No.6441

Accessにあるような　カラム指定はできないのでしょうか？
Accessの場合ＩＤを見えなくしつつ、必要な時にカラムを指定して、ＩＤを取得できたのですが、ＶＢではできないのでしょうか？

-----------------------------------------------------------------------
Re: Access風コンボボックス - 魔界の仮面弁士   2003/10/30-00:36 No.6445
-----------------------------------------------------------------------

> Accessにあるような　カラム指定はできないのでしょうか？
残念ながら、そういう機能は用意されていません。

> Accessの場合ＩＤを見えなくしつつ、必要な時にカラムを指定して
> ＩＤを取得できたのですが、ＶＢではできないのでしょうか？
一覧には名称を表示し、値としてはIDを取得したいという場合には、『DataComboコントロール』を使うという方法があります。

また、IDが整数の場合には、標準ComboBoxの「ItemDataプロパティ」を使う事もできます。

Option Explicit

Private Sub Combo1_Click()
    MsgBox Combo1.ItemData(Combo1.ListIndex)
End Sub

Private Sub Form_Load()

    With Combo1
        .List(0) = "ハト"
        .ItemData(0) = 1

        .List(1) = "キジ"
        .ItemData(1) = 2

        .List(2) = "スズメ"
        .ItemData(2) = 3

        .List(3) = "ハト"
        .ItemData(3) = 4
    End With

End Sub

IDが整数以外(たとえば文字列)の場合にも対応させたいのであれば、IDの一覧を配列かCollectionとして管理し、それらをComboBoxのListIndexにて管理するようにすれば OK でしょう。

別途、下記もご覧下さい。
http://hanatyan.sakura.ne.jp/patio/read.cgi?mode=view2&f=63&no=0