投稿日	： 2003/08/06(Wed) 22:22
投稿者	： 魔界の仮面弁士
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: コンボボックスの表示について

> > 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

★ - コンボボックスの表示について - みつお 08/06-16:36No.5259
• Re: コンボボックスの表示について - 花ちゃん 08/06-20:32 No.5268
  • Re^2: コンボボックスの表示について - みつお 08/06-21:28 No.5270
    • Re^3: コンボボックスの表示について - 魔界の仮面弁士 08/06-22:22 No.5271
      • Re^4: コンボボックスの表示について - みつお 08/07-08:32 No.5273