1

さて、私はそのようなことを試みています：

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
    Dim scv As Int32 = TrackBar1.Value
    Dim uni As [String] = "ms"

    Select Case scv
        Case Is > 1000
            scv = scv \ 1000
            uni = "s"
            sender.SmallChange = 1000
        Case Is > 100
            sender.SmallChange = 50
        Case Is > 50
            sender.SmallChange = 50
        Case Is > 25
            sender.SmallChange = 25
        Case Is > 10
            sender.SmallChange = 15
    End Select

    Label4.Text = (scv & uni).ToString
End Sub

しかし、矢印キー<および>でのみ動作しますが、マウスの移動またはマウスのスクロール ホイールで試しても動作しません。そして...左から右に移動した場合にのみ機能します...

私がしなければならないこと？:(

4

2 に答える 2

1

TrackBar は絶対に使用しないでください..しかし、私はそれがこのようにすべきだと思います..

Dim Trb as TrackBar = CType(sender,TrackBar)

Trb.SmallChange = 1000 

'and so on ..
于 2013-07-04T16:14:39.700 に答える