在visual basic 10中获取自己的控件值

Question

我正在寻找一种方法来获取轨迹栏内部的控制数据（在本例中为轨道栏）。

我明白了：

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
    Label1.Text = TrackBar1.Value
End Sub

但我想替换“trackBar1”。像

这样的东西

    Label1.Text = THIS_CONTROL.Value

这可能在Vb10吗？

由于

Answer 1

使用sender参数：

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
    Dim THIS_CONTROL As TrackBar = DirectCast(sender, TrackBar)
    Label1.Text = THIS_CONTROL.Value
End Sub