1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
UpDown1.Min = 0
UpDown1.Max = 99
Set UpDown1.BuddyControl = Text1
UpDown1.BuddyProperty = "text"
UpDown1.Value = UpDown1.Min
End Sub
Private Sub UpDown1_DownClick()
Text1 = Val(Text1) - 1
End Sub
Private Sub UpDown1_UpClick()
Text1 = Val(Text1) + 1
End Sub