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

2020-01-15 04:13:09 391 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别色差！用Python+TCS34725颜色传感器实现精准色彩还原（附完整校准代码）本文详细介绍了如何利用Python和TCS34725颜色传感器实现专业级色彩还原方案。通过双阶校准法（白光校准和黑电平校准）和进阶的光照自适应技术，解决传感器原始数据不准的问题，并提供完整的校准代码和实战案例，帮助开发者实现ΔE<3的高精度色彩识别。阅读详情

...全文

Open-Sora代码详细解读(1)：解读DiT结构目前开源的DiT视频生成模型不是很多，Open-Sora是开发者生态最好的一个，涵盖了DiT、时空DiT、3D VAE、Rectified Flow、因果卷积等Diffusion视频生成的经典知识点。本篇博客从Open-Sora的代码出发，深入解读背后的原理。阅读详情

xiaobayi95

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

xiaobayi95 2020-01-18

打赏
举报

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

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

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

threenewbee 2020-01-18

打赏
举报

引用 6 楼 xiaobayi95 的回复:

像我发的图片的那种样式

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

xiaobayi95 2020-01-18

打赏
举报

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

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

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

xiaobayi95 2020-01-18

打赏
举报

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

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

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

xiaobayi95 2020-01-17

打赏
举报

像我发的图片的那种样式

xiaobayi95 2020-01-17

打赏
举报

引用 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

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

threenewbee 2020-01-15

打赏
举报

完整代码：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

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

相关推荐