如何从 TrackBar 中的第二个或第三个刻度开始？

Question

我正在尝试在代码中应用公式。但是，除非我更改 TrackBar 的起始刻度（不更改我的最小刻度值），否则此公式将不起作用。

例如：

TRmin = 1 
Trmax = 10 

我需要从2或3开始，而不是从1开始

Answer 1

你可以使用TrackBar.Scroll event来限制值：

Option Strict On
Option Infer On
' ...
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
    Dim tb = DirectCast(sender, TrackBar)
    tb.Value = Math.Max(3, tb.Value)
    lbTrackBar1Value.Text = tb.Value.ToString()
    lbResult.Text = Calc(tb.Value).ToString()

End Sub

假设您有标签来显示轨迹栏值和某些函数Calc 的结果。

我使用了Dim tb = DirectCast(sender, TrackBar)，因此更容易概括该方法以用于其他轨迹栏。

或者您可以使用TrackBar.ValueChanged Event，它的特点是如果您以编程方式设置值也会被提升，正如 Visual Vincent 所指出的那样。

如果有时在 Scroll 或 ValueChanged 事件上多次调用处理程序很重要，那么您可以防止像这样多次运行代码：

Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar1.ValueChanged
    Static inVC As Boolean = False
    If inVC Then Return
    Dim tb = DirectCast(sender, TrackBar)
    inVC = True
    tb.Value = Math.Max(3, tb.Value)
    inVC = False

End Sub

本地 static variable inVC 仅初始化一次，并在调用之间保持其值。