投稿日 | : 2004/08/03(Tue) 17:30 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: コンボボックスについて |
下記ではどうでしょうか。
同様の処理をここのリストボックスで色々しております。
Private Sub Form_Load()
Combo1.FontName = "MS ゴシック"
Combo1.FontSize = 12
Combo1.AddItem (10000 & Space$(5) & "りんご")
Combo1.AddItem (20000 & Space$(5) & "ばなな")
Combo1.AddItem (30000 & Space$(5) & "みかん")
End Sub
Private Sub Command1_Click()
Debug.Print Left$(Combo1.Text, 5)
End Sub