如何让CommandButton与SpinButton一样控制文本框中数字连续变化

lagssl

【求助修改代码】如何让CommandButton与SpinButton一样控制文本框中数字连续变化？

使用SpinButton可以让textbox中的数字按一定的规则连续变化（单击时变化一次），如果把SpinButton替换成CommandButton，怎样才能达到一样的效果？（单击CommandButton时变化一次，代码没有问题。需要按住CommandButton时，数字连续变化的代码应该怎么写？）



1234.zip (20.24 KB, 下载次数: 0)

2024-9-11 11:11 上传

点击文件名下载附件

大灰狼1976

不是很简单，下面是简单示例，放到同一个窗体模块里，建一个命令按钮和一个文本框测试。

1. Public b As Boolean
   
2. 
   
3. Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
4. b = False
   
5. Delay 0.05
   
6. Do While b = False
   
7.   TextBox1 = Val(TextBox1) + 1
   
8.   Delay 0.05
   
9. Loop
   
10. End Sub
    
11. 
    
12. Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
13. b = True
    
14. End Sub
    
15. 
    
16. Sub Delay(T As Single)
    
17. Dim T1 As Single
    
18. T1 = Timer
    
19. Do
    
20.   DoEvents
    
21. Loop While Timer - T1 < T
    
22. End Sub

复制代码

lagssl

感谢大灰狼版主的回复，我学习一下。