マウスでコロコロしたいんですが…

質問

いつもお世話になっております。
VB6.0でピクチャーボックスとスクロールバーを使って
手動でスクロールさせるプログラムを作りました。

しかし、マウスのローラー
(っていうんですか？コロコロまわせるやつ)で
スクロールさせたいのですが、できますでしょうか？
方法をご存知の方教えてください。お願いします！

回答No.1

todo36 · ベストアンサー

コンボボックスならマウスホイールが効きます。
そこで、スクロールバーをダミーなコンボボックスと連動させれば出来ます。

-form1.frm-
Private Busy As Boolean

Private Sub Form_Load()

Dim i As Integer

Busy = True
Combo1.Clear
Combo1.Top = -999 '画面から消す
For i = VScroll1.Min To VScroll1.Max
Combo1.AddItem i
Next
Busy = False
End Sub

Private Sub VScroll1_GotFocus()
Combo1.SetFocus
End Sub

Private Sub Picture1_GotFocus()
Combo1.SetFocus
End Sub

Private Sub Combo1_GotFocus()
Busy = True
Combo1.ListIndex = VScroll1.Value - VScroll1.Min
Busy = False
End Sub

Private Sub Combo1_Click()

If (Busy) Then Exit Sub
VScroll1.Value = Val(Combo1.Text)
End Sub

お礼

おおお！！すんばらしいッ！！スクロールしてる！
感動しましたぁぁぁ～(TOT)
なんとお礼をいっていいやらわかりませんが本当に助かりました！
さすがVBマスター！ありがとうございました(^-^)