Question

VB问题TEXTBOX显示数字

我想让TEXTBOX显示数字，有个按钮控制，数字初值显示500，单击一下按钮数值加1，加到1000就不再加了，就显示1000.按下按钮数值持续增加（别太快），同样也是到1000就行了，怎么编码？再有一个控制减少的，减少到200就不在减了。

Answer 1

Option Explicit
Dim Plus As Boolean
Private Sub Command1_Click()
Text1 = Text1 + 1
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Plus = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Plus = False
End Sub

Private Sub Text1_Change()
If Val(Text1) >= 1000 Then Text1 = 1000
End Sub

Private Sub Timer1_Timer()
If Plus = True Then Text1 = Text1 + 1
End Sub
减法的就自己做吧