投稿日 | : 2003/10/02(Thu) 12:27 |
投稿者 | : Lantern |
Eメール | : |
URL | : |
タイトル | : Re^4: コンボボックスの表示 |
予想ですが・・・
Label1.Caption = Left(Combo1.List(Combo1.ListIndex), 6)
を
Combo1.Text = Left(Combo1.List(Combo1.ListIndex), 6)
としてやってるんじゃないかな?
それと、意図はCombBoxで選択時のみCombBoxに3項目表示で、選択後はCombBoxに
先頭項目だけ表示なのだと思うので、下の様にしてみたら?
Option Explicit
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii% = 0
End Sub
Private Sub Form_Load()
Combo1.AddItem "NEC001 PC-9801 NEC"
Combo1.AddItem "IBM001 Aptiva770 IBM"
Combo1.AddItem "DEL001 8200 DEL"
Combo1.Text = Left(Combo1.List(0), 6)
End Sub
Private Sub Combo1_Click()
Combo1.Text = Left(Combo1.List(Combo1.ListIndex), 6)
End Sub