全部评论(3条)
-
- 6627359 2012-06-26 00:00:00
- private sub form_load() dim n as integer timer1.interval=1000 end sub private sub timer1_timer() n=n+1 label1.caption=n end sub
-
赞(20)
回复(0)
-
- Nqfxcr 2012-06-26 00:00:00
- yiyiarrow 的问题出在变量n的声明，局部变量n在 form_load()中声明的，在timer1_timer()里是不能使用的． 橡皮树的博客 采用的方法，巧妙的避开了使用变量的问题． 我的代码是声明窗体级变量n Option Explicit Private n As LongPrivate Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = 0 End SubPrivate Sub Timer1_Timer() n = n + 1 Label1.Caption = n End Sub
-
赞(13)回复(0)
-
- 岁月无恙哦哦 2018-03-29 17:44:03
- 窗体上放一个label1标签控件和time1时钟控件，粘贴代码： private sub form_load() Timer1.Interval = 1000 end sub private sub timer1_timer() Label1 = Val(Label1.Caption) + 1 end sub
-
赞(5)回复(0)
热门问答
- vb 计时器 使label隔一秒增加一
2012-06-25 08:13:26
558
3
- VB计时器interval
- 我把interval的属性调到10，定义一个静态变量t，Timer1.Timer事件为t=t+1，结果一秒内t自加100。但我把interval设为1，结果一秒内t自加甚至不到1，这是什么情况？如何解决？
2010-06-13 08:45:36
274
4
- vb正计时器
- 做一个这样的格式的 00:00:00 往上计时 dim a as date a=format(00:00:00 AM) text1.text=a timer.interval=1000 a=a+1 我纯新手 只知道大概是这样一个格式 请帮忙修改下。 Z好每句后面加上说明 Z好修改我这上面的吧
2011-11-04 04:28:53
347
2
- vb停止计时器
- 我想做一个程序，让计时器随机取一个数并可以让计时器过5秒后自动停止下来。 已编写代码： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值为10 谁能帮我完成过“5秒后自动停止下来”这个... 我想做一个程序，让计时器随机取一个数并可以让计时器过5秒后自动停止下来。 已编写代码： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值为10 谁能帮我完成过“5秒后自动停止下来”这个步骤啊！ 不要手动停止（什么timer1.enabled=false的）。 我是vb6.0的 展开
2013-10-02 11:50:40
212
1
- VB 计时器 与 进度条
- 我想把进度条弄成7秒，然后打开窗口form2 代码该怎样写？
2018-12-04 10:37:13
427
0
- vb 如何重置计时器
- vb 如何重置计时器
2010-09-06 07:36:56
401
1
- VB计时器怎么用
2009-11-24 00:38:51
391
3
- vb计时器设计图片左右往复运动vb代码
2013-06-28 02:23:36
404
1
- 请问一vb题目，用计时器安秒计时，在窗体画一计时器控件和一标签程序
- 请问一vb题目，用计时器安秒计时，在窗体画一计时器控件和一标签程序运行后，在标签内显示经过秒数并响铃，代码怎么写啊
2018-11-21 18:41:31
320
0
- 怎样用VB做一个秒表计时器
- 两个按钮，一个开始键 一个清零键 ，想要点击开始键以后 开始键变成 结束 文本也改成结束 按清零键后变回开始 还想添加一个开始的键盘快捷键（开始和结束能够公用这个快捷键） 求大神指教
2018-11-28 05:21:49
309
0
- 求vb计时器编程代码
- 编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，运行程序后，在标签内显示经过的秒数，并响铃
2018-02-26 21:39:20
399
1
- vb计时器每秒产生一个数，并把这些数累加出来？
2012-09-02 01:00:18
425
3
- 在VB中如何编写使计时器中的时间归零重新开始计时
2014-12-10 14:09:58
373
2
- VB 如何让计时器重新计时
- Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End S... Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer start End Sub Private Sub Timer1_Timer() a = a + 1 Text1 = a End Sub 展开
2010-06-12 12:32:41
487
4
- vb怎么设计简单的计时器
- 用vb中的timer控件，设计计时器。用三个命令按钮，分别为：开始、暂停、结束。再用一个标签或者文本框显示就好了。 各位大侠教教，我初学。
2011-05-23 14:16:03
281
2
- 如何用VB程序做计时器？
2017-11-23 14:26:59
432
1
- 用vb的timer做一个计时器程序
- 包括开始、停止、重置，共3个按钮 计时单位精确到0.01秒 重置后，再按开始是从0开始重新计时的 计时中会溢出错误？ 请高手写一下代码，特别是重置后，我自己做的时候不能重新从0开始计时，而是又接着停止时的时间继续下去!!!
2014-07-15 03:29:59
488
2
- Vb如何实现两个计时器同时运行
2014-11-11 23:30:23
431
1
- vb 计时器怎么控制随机数的产生
- 题目是：程序运行是，单击“开始”按钮，每秒钟产生3个1到6的随机数字 单击“暂停”按钮，终止随机数的产生。 随机数的代码我会，但不知道计时器的代码怎么写 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10)... 题目是：程序运行是，单击“开始”按钮，每秒钟产生3个1到6的随机数字 单击“暂停”按钮，终止随机数的产生。 随机数的代码我会，但不知道计时器的代码怎么写 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10) Debug.Print x For i = 1 To 6 If i = x Then Exit For End If Next i Next l Label1.Caption = Int((Rnd * 6) + 1) Label2.Caption = Int((Rnd * 6) + 1) Label3.Caption = Int((Rnd * 6) + 1) End Sub Private Sub Timer1_Timer() End Sub 谁能帮写下代码啊 展开
2009-12-12 01:28:18
427
4
- 关于 VB 计时器 Z大允许时间的问题
- 我想做一个古代时辰的程序， 一共12个时辰，我计划用12张图片轮番显示，可是计时器Z大只能记时65535毫秒，我想让图片2小时（7200秒）换一张，需要怎么来实现啊？ 请高手指教！
2014-01-07 22:07:23
340
1
沪公网安备 31011502008050号
参与评论
登录后参与评论