tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
コンボボックスの表示について(VB6.0) ( No.0 )  [親スレッドへ]
日時: 2007/07/16 10:48
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[コンボボックス][][]                                                *
* キーワード:Access風コンボボックス ,書式,スタイル,ComboBox,,                    *
***********************************************************************************

元質問:コンボボックスの表示について - みつお  2003/08/06-16:36No.5259

cbofruit.AddItem "リンゴ"
cbofruit.ItemData(cbofruit.NewIndex) = 1
cbofruit.AddItem "イチゴ"
cbofruit.ItemData(cbofruit.NewIndex) = 2
cbofruit.AddItem "ブルーベリー"
cbofruit.ItemData(cbofruit.NewIndex) = 3

このようなコンボボックスがあります。このときたとえば1か2か3の情報をもらいその情報から1だったらcbofruit.textに"リンゴ"という風に表示させるにはどうすればよいでしょうか



------------------------------------------------------------------------------------
Re^3: コンボボックスの表示について - 魔界の仮面弁士  2003/08/06-22:22 No.5271
------------------------------------------------------------------------------------

> > ItemDataプロパティはそのような使い方できないかと思います。
> > ListIndex プロパティを使用するか
> 簡単に出来ると思ったんですが、無理なんですね。

Forループで、ItemDataを列挙するしかないでしょうね。


> 1,3,4のようにとびとびだったり規則性はないです。

重複する番号が使われないのであれば、Dictionaryが使えます。

Option Explicit
Private Dic As Object

Private Sub Form_Load()
    Set Dic = CreateObject("Scripting.Dictionary")
    
    Combo1.AddItem "ストロベリー"
    Dic("1") = Combo1.NewIndex
    Combo1.AddItem "ラズベリー"
    Dic("2") = Combo1.NewIndex
    Combo1.AddItem "ブルーベリー"
    Dic("4") = Combo1.NewIndex
    
    Text1.Text = "2"
End Sub

Private Sub Command1_Click()
    If Dic.Exists(Text1.Text) Then
        Combo1.ListIndex = Dic(Text1.Text)
    Else
        Combo1.ListIndex = -1
        MsgBox "該当データ無し"
    End If
End Sub


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

-------------------------------------------------------
実行結果の画像を添付しておきます。
(画像をクリックすると元のサイズで見られます)
      --- by 花ちゃん ---
-------------------------------------------------------



 [スレッド一覧へ] [親スレッドへ]