VB6でコンボボックスのスクロールの利用法を教えてください

質問

VB6でコンボボックスのスクロールの受け取り方が分かりません。
つまり、スクロールキーを動かしたときそれに合わせて他の動作をさせたいのですが、やり方がわかりません。
私が分からないのは、スクロールキーを動かすとPrivate Sub Combo1_Scroll()にコントロールが移ります。しかし、そこでどうやれば、スクロールキーを減らしたことをつかめるか分からないのです。
動かした回数をカウントすると増加はつかめますが、減少させられません。どうすれば減少を受け取ることができるのでしょうか？

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

たびたびWizard_Zeroです。

すみません。質問の内容が完全に理解できません。

> スクロールキーを動かしたときそれに合わせて他の動作をさせたい
スクロールバーを動かしたときに・・・と読み替えました。
また「スクロールキーを減らした」というのは「スクロールバーが上方向に移動した」と読み替えてよろしいでしょうか。

スクロールバーの位置を取得することは（普通の方法では）できませんが、ドロップダウンリストに表示されている最初のインデックスは「Combo1.TopIndex」で取得できます。
この値を監視して、インデックスが減ったらスクロールバーが上方向に移動した、と判断できると思います。

Private intBeforeTopIndex As Integer

Private Sub Combo1_Scroll()

If Combo1.TopIndex > intBeforeTopIndex Then
Label1.Caption = "下方向に移動"

Else
Label1.Caption = "上方向に移動"

End If

intBeforeTopIndex = Combo1.TopIndex

End Sub

お礼

Combo1.TopIndexがあるのですね。どうも勉強不足でした。
利用例まで付けていただきありがとうございました。
たびたびご援助いただき、感謝申し上げます。