コンボボックスでマウスカーソルの位置の内容を取得
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
コンボボックスの項目をクリックせずにマウスカーソルの位置の内容を取得する (217)
　　　 フォームにタイマー (Timer) コントロールとコンボ ボックス (ComboBox) コントロールを
貼り付けて下さい。

Option Explicit　　 'SampleNo=217　WindowsXP VB6.0(SP5) 2002.10.04


Private Sub Combo1_GotFocus()
　　Timer1.Interval = 100
End Sub


Private Sub Combo1_LostFocus()
　　Timer1.Interval = 0
End Sub


Private Sub Form_Load()
　　Combo1.AddItem "1　あいうえお"
　　Combo1.AddItem "2　かきくけこ"
　　Combo1.AddItem "3　さしすせそ"
　　Combo1.AddItem "4　たちつてと"
　　Combo1.AddItem "5　なにぬねの"
　　Combo1.AddItem "6　はひふへほ"
　　Combo1.AddItem "7　まみむめも"
End Sub


Private Sub Timer1_Timer()
　　Label1.Caption = Combo1.ListIndex
　　Label2.Caption = Combo1.List(Combo1.ListIndex)
End Sub
　
これで、コンボボックスの項目をいちいちクリックせずにマウスカーソルの位置の内容を取得する
事ができます。 （掲示板で質問があったので作って見ました。）　　　　　





2002/11/21