| ありがとうございます。
あと、スライダーが最大と最小位置にある時の座標を知りたいのですが、
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程度ずれた位置になっています。
どうすれば、正確な座標を取得することができますか？ |