| ありがとうございます。
つまり、最小値は
Dim hhh2 As Integer = CInt(SendMessage(Me.Handle, TBM_GETTICPOS, 0, Nothing))
で得られたものから-1するものが正しく、
最大値は、
Dim hhh As Integer = CInt(SendMessage(Me.Handle, TBM_GETTICPOS, 9998, Nothing))
で得られたものから+1するものが正しい
という意味でしょうか？
ただ、試してみると、最小値は正しく
最大値の方だけ-2する必要がある気がしますが、
これは何か確認ミスでしょうか？ |