スプレッドの制御

質問

VB6.0について質問です。
スプレッドでマウスのカーソルがあたっている行のバックカラーを変えたいのですがうまくいきません。
MouseMoveイベントでやっています。
以下のソースで実行しており通常だと問題なく実行できるのですが
強制的にマウスカーソルが何行目にあるかを計算していますので
スプレッドをスクロールするとスクロールした行だけズレが生じてしまいます。
表示されている行だけを認識する方法はないでしょうか？

Private Sub spdlist_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim actrow

With spdlist
.Col = -1
actrow = Int(y / 400)
.Row = actrow
.BackColor = vbred
End With

End Sub

回答No.1

otto0001otto · ベストアンサー

一番上の行番号は
TopRowでわかります。