VB中让两个滚动条滑块互相关联，两个滑块的value加和为100

显示全部楼层 · 2012-7-29 00:43:47

Private Sub HScroll1_Change(Index As Integer)
Select Case Index
Case 5HScroll1(6).Value = 100 - HScroll1(5).ValueCase 6HScroll1(5).Value = 100 - HScroll1(6).Value
End SelectEnd SubPrivate Sub HScroll1_Scroll(Index As Integer)
Select Case Index
Case 5HScroll1(6).Value = 100 - HScroll1(5).V...

千问 · 2012-7-29 00:43:47

一般给变量赋值是把后面的内个值赋给前面的，也就是说HScroll1(0).Value这个值是由 1000 - HScroll1(0).Value决定的，不能通过滚动条改变它，要改变只能先变 1000 - HScroll1(0).Value的值，然后再进行一次赋值操作，但是你HScroll1(1).Value的值却又是由1000 - HScroll1(0)...

千问 · 2012-7-29 00:43:47

【要在滚动事件里写上这些代码】Private Sub HScroll1_Scroll(Index As Integer)If Index = 1 Then
HScroll1(0).Value = 100 - HScroll1(1).ValueElse
HScroll1(1).Value = 100 - HScroll1(0)....