サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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 花ちゃん ---
-------------------------------------------------------
 |
