| ありがとうございます。
つまり、最小値は 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する必要がある気がしますが、 これは何か確認ミスでしょうか? |