在vb6.0中怎么让一个数字的最大值为60到达60后就归0,后继续增加。

发布网友发布时间：2024-09-29 10:30

共2个回答

热心网友时间：2024-09-29 17:33

向窗体上添加一个文本框Text1，将其文本清空，再添加一个定时器Timer1，设置Timer1的Interval属性为1000，然后在定时器的Timer事件过程中编写以下代码：
Text1.Text = (Val(Text1.Text) + 1) Mod 61
这样文本框的的内容就会每隔1秒变化一个值。到60后自动回0

热心网友时间：2024-09-29 17:33

'拉一个textbox，一个timer，复制以下代码：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Second(Time)
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com