| ありがとうございます。
あと、スライダーが最大と最小位置にある時の座標を知りたいのですが、
TBM_GETTICPOSでうまくいくかと思ったのですが、 なぜか少しずれた位置になってしまいます。
いま、トラックバーの最大値と最小値に10000と0が設定してあるのですが、
Dim hhh2 As Integer = CInt(SendMessage(Me.Handle, TBM_GETTICPOS, 0, Nothing)) は正常な位置が取得できるのですが、
Dim hhh As Integer = CInt(SendMessage(Me.Handle, TBM_GETTICPOS, 10000, Nothing)) とすると-1が出力されます。 Dim hhh As Integer = CInt(SendMessage(Me.Handle, TBM_GETTICPOS, 9998, Nothing)) とすると、366などの数値は出力されるのですが、 実際のスライダーが動ける最大位置よりも-2程度ずれた位置になっています。
どうすれば、正確な座標を取得することができますか? |