一个TEXT控件，一个VScrollBar控件，如何根据VScrollBar来改变text里的值？？

[utilguy]

一个TEXT控件，一个VScrollBar控件，如何根据VScrollBar来改变text里的值？
每按向上，TEXT的值就加1
每按向下，TEXT的值就减1

[shixiaoz]

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub



在vscroll里面设置max和min值

[happyhsh]

VScrollBar.value

[capricciososoft]

Dim V0 As Integer

Private Sub Form_Load()
V0 = VScroll1.Value
End Sub

Private Sub VScroll1_Change()
If V0 < VScroll1.Value Then
Text1 = Str(Val(Text1) - 1)
Else
Text1 = Str(Val(Text1) + 1)
End If
V0 = VScroll1.Value
End Sub

[northwolves]

Private Sub Form_Load()
With VScroll1
.min = 100
.Max = 1
.Value = 50
Text1.Text = .Value
End With
End Sub

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub

也可以用UPDOWN 控件

[熊孩子开学喽]

capricciososoft(随想软件) 说的对，
只是把Text1 = Str(Val(Text1) - 1)和Text1 = Str(Val(Text1) + 1)
改成Text1 = Val(Text1) - 1　和Text1 = Val(Text1) + 1吧，VB自己会做这个

鸡蛋里挑骨头，不就是为了捞点分吗。

[ryuginka]

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub

[dongge2000]

我楼上的就可以了，不要这么麻烦。

[reker]

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub
这个不行的
这样做出来以后
按上箭头是减少
下箭头是增加
与楼主的要求正好相反

随想他说的对

ps:随想做的按钮控件挺不错的，强烈推荐