VB Vscroll1作为数字加减控制

Question

请问现在做需要编一个数字控制程序，用到VSROLL1控件，用text控件显示要控制的数字；例如：按下向上的件时数据将连续增加，在text控件中能看到数据变化，当大于80时，数据变为0又继续加，直到松开按键；同样当按下向下的件时，数据减少，当减少到0时，返回到80，又继续减；请问各位高手该怎么解决呢？谢谢大家了！

Answer 1

设置vsroll的最大值为81,然后在代码中判断当达到最大值时修改vsroll的值回到1,当vsroll的值为1时若再按下减少按钮则将vsroll的值修改为81.text控件的值为vsroll的值减1

Answer 2

我不是显示VSROLL的数字，而是用VSROLL上下按键，来控制一个数加一或减一；比如我现在text里面的数值为120，当我按向上的键时数字加一，当按下向下的键时减一；请帮助，谢谢！

Answer 3

你的问题和2楼的提问好像不一致
按你的问题做的
Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = 10000
End SubPrivate Sub VScroll1_Change()
Text1.Text = VScroll1.Value Mod 81
End Sub

Answer 4

Private Sub Form_Load()
VScroll1.Max = 81
VScroll1.Min = -1
End SubPrivate Sub VScroll1_Change()
x = VScroll1.Value
If x > 80 Then
VScroll1.Value = 0
VScroll1.Refresh
Text1.Text = ""
ElseIf x < 0 Then
VScroll1.Value = 80
VScroll1.Refresh
Text1.Text = ""
Else
Text1.Text = x
End If
End Sub

Answer 5

将你的再改了一下:
Private Sub Form_Load()
VScroll1.Max = 81
VScroll1.Min = -1
End SubPrivate Sub VScroll1_Change()
x = VScroll1.Value
If x > 80 Then
  VScroll1.Value = 0
  VScroll1.Refresh
  Text1.Text = 0
ElseIf x < 0 Then
  VScroll1.Value = 80
  VScroll1.Refresh
  Text1.Text = 80
Else
  Text1.Text = x
End If
End Sub

Answer 6

这个问题用Updown控件最合适
设置一下属性就可以了，不需要额外写事件代码
Private Sub Form_Load()
    With UpDown1
        .BuddyControl = Text1
        .SyncBuddy = True
        .Min = 0
        .Max = 80
        .Value = 0
        .Wrap = True
    End With
End Sub这是个VB自带控件，在microsoft windows common controls-2 6.0里面