VB.NET.中，设一个总控VScrollBar，它怎样带动其他VScrollBar整体上下移动

[xiaobayi95]

[threenewbee]

完整代码：https://download.csdn.net/download/caozhy/12104973

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 20
            Dim vscr = New VScrollBar()
            With vscr
                .Left = i * 30 + 20
                .Width = 20
                .Height = Panel1.Height - 80
                .Top = 40
                .Name = "vs" & i
                .Visible = True
                .Maximum = 200
                .Minimum = 0
                .SmallChange = 1
                .Value = Int(Math.Sin(2 * 3.1416 / 20 * i) * 50 + 100)
            End With
            Panel1.Controls.Add(vscr)
        Next
        VScrollBar1.Minimum = 0
        VScrollBar1.Maximum = 200
        VScrollBar1.SmallChange = 1
        oldval = 100
        VScrollBar1.Value = 100
    End Sub

    Private oldval As Integer

    Private Sub VScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged
        Dim vb1 As Integer = VScrollBar1.Value
        For Each vs As VScrollBar In Panel1.Controls.OfType(Of VScrollBar)()
            Dim newval As Integer = vb1 - oldval + vs.Value
            If newval > vs.Maximum Then newval = vs.Maximum
            If newval < vs.Minimum Then newval = vs.Minimum
            vs.Value = newval
        Next
        oldval = VScrollBar1.Value
    End Sub
End Class

[xiaobayi95]

引用 2 楼 贵阳老马马善福专业维修游泳池堵漏防水工程 的回复:

完整代码：https://download.csdn.net/download/caozhy/12104973

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 20
            Dim vscr = New VScrollBar()
            With vscr
                .Left = i * 30 + 20
                .Width = 20
                .Height = Panel1.Height - 80
                .Top = 40
                .Name = "vs" & i
                .Visible = True
                .Maximum = 200
                .Minimum = 0
                .SmallChange = 1
                .Value = Int(Math.Sin(2 * 3.1416 / 20 * i) * 50 + 100)
            End With
            Panel1.Controls.Add(vscr)
        Next
        VScrollBar1.Minimum = 0
        VScrollBar1.Maximum = 200
        VScrollBar1.SmallChange = 1
        oldval = 100
        VScrollBar1.Value = 100
    End Sub

    Private oldval As Integer

    Private Sub VScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged
        Dim vb1 As Integer = VScrollBar1.Value
        For Each vs As VScrollBar In Panel1.Controls.OfType(Of VScrollBar)()
            Dim newval As Integer = vb1 - oldval + vs.Value
            If newval > vs.Maximum Then newval = vs.Maximum
            If newval < vs.Minimum Then newval = vs.Minimum
            vs.Value = newval
        Next
        oldval = VScrollBar1.Value
    End Sub
End Class

再请教一下，我想把每个滑轮的值分开输进去，改变后再导出来，应该怎么改代码呢

[xiaobayi95]

像我发的图片的那种样式

[xiaobayi95]

引用 7 楼 贵阳老马马善福专业维修游泳池堵漏防水工程 的回复:

[quote=引用 6 楼 xiaobayi95 的回复:]
像我发的图片的那种样式

你结贴后重新开一个问题，我写给你[/quote]
在吗在吗

[xiaobayi95]

引用 7 楼 贵阳老马马善福专业维修游泳池堵漏防水工程 的回复:

[quote=引用 6 楼 xiaobayi95 的回复:]
像我发的图片的那种样式

你结贴后重新开一个问题，我写给你[/quote]
好了

[threenewbee]

引用 6 楼 xiaobayi95 的回复:

像我发的图片的那种样式

你结贴后重新开一个问题，我写给你

[xiaobayi95]

引用 7 楼 贵阳老马马善福专业维修游泳池堵漏防水工程 的回复:

[quote=引用 6 楼 xiaobayi95 的回复:]
像我发的图片的那种样式

你结贴后重新开一个问题，我写给你[/quote]
panel里怎么区分不同的滑轮呢