VB中如何编写一个程序，实现如图所示竖直方向的滑块上下运动，带动水平上的滑块左右运动，请高手帮帮忙

如图添加1个Timer控件Timer1 ；1个HScrollBar控件HScroll1 ；1个VScrollBar控件VScroll1

然后复制下列代码到代码框

Private Sub Form_Load()

Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

HScroll1.Max = VScroll1.Max

HScroll1.Min = VScroll1.Min

HScroll1.Value = VScroll1.Max - VScroll1.Value

End Sub

你准备用鼠标拖动竖直滑块还是用一个按钮启动?
你得拉一个timer控件进来,当你的竖直滑块进入运动状态时启动时钟,时钟记录以下两个坐标参数:
上一个tick时滑块(竖)的Y坐标(top值)
上一个tick时滑块(横)的X坐标(left值)

那么关系就出来了,获取当前tick的Y-top,用将其差值(+/-)给x-left加上(+/-).
在滑块(竖)退出运动状态后关闭时钟.时钟的节点可考虑调小一点.但也别弄到 1秒/千..

当然不考虑程序占用资源的话,也可以程序一打开就启动时钟...

这个啊 ，VB有种滑块，就像调音量的那种，拉俩出来，竖的移动量=横的移动量就是了

设x到y长度为c，则x=sqrt(c*c-y*y)
用for循环,
y从c到-c时，step取负值
y从-c到c时，step取正值