全部評論(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)
回復(fù)(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)回復(fù)(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)回復(fù)(0)
熱門問答
- vb 計時器 使label隔一秒增加一
2012-06-25 08:13:26
647
3
- vb停止計時器
- 我想做一個程序，讓計時器隨機取一個數(shù)并可以讓計時器過5秒后自動停止下來。 已編寫代碼： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值為10 誰能幫我完成過“5秒后自動停止下來”這個... 我想做一個程序，讓計時器隨機取一個數(shù)并可以讓計時器過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
298
1
- 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
411
2
- VB計時器interval
- 我把interval的屬性調(diào)到10，定義一個靜態(tài)變量t，Timer1.Timer事件為t=t+1，結(jié)果一秒內(nèi)t自加100。但我把interval設(shè)為1，結(jié)果一秒內(nèi)t自加甚至不到1，這是什么情況？如何解決？
2010-06-13 08:45:36
366
4
- VB計時器怎么用
2009-11-24 00:38:51
480
3
- vb 如何重置計時器
- vb 如何重置計時器
2010-09-06 07:36:56
491
1
- VB 計時器 與 進度條
- 我想把進度條弄成7秒，然后打開窗口form2 代碼該怎樣寫？
2018-12-04 10:37:13
516
0
- vb計時器設(shè)計圖片左右往復(fù)運動vb代碼
2013-06-28 02:23:36
471
1
- 請問一vb題目，用計時器安秒計時，在窗體畫一計時器控件和一標簽程序
- 請問一vb題目，用計時器安秒計時，在窗體畫一計時器控件和一標簽程序運行后，在標簽內(nèi)顯示經(jīng)過秒數(shù)并響鈴，代碼怎么寫啊
2018-11-21 18:41:31
378
0
- 求vb計時器編程代碼
- 編寫程序，用計時器按秒計時。在窗體上畫一個計時器控件和一個標簽，運行程序后，在標簽內(nèi)顯示經(jīng)過的秒數(shù)，并響鈴
2018-02-26 21:39:20
502
1
- 怎樣用VB做一個秒表計時器
- 兩個按鈕，一個開始鍵 一個清零鍵 ，想要點擊開始鍵以后 開始鍵變成 結(jié)束 文本也改成結(jié)束 按清零鍵后變回開始 還想添加一個開始的鍵盤快捷鍵（開始和結(jié)束能夠公用這個快捷鍵） 求大神指教
2018-11-28 05:21:49
390
0
- vb計時器每秒產(chǎn)生一個數(shù)，并把這些數(shù)累加出來？
2012-09-02 01:00:18
499
3
- 在VB中如何編寫使計時器中的時間歸零重新開始計時
2014-12-10 14:09:58
423
2
- 如何用VB程序做計時器？
2017-11-23 14:26:59
517
1
- vb怎么設(shè)計簡單的計時器
- 用vb中的timer控件，設(shè)計計時器。用三個命令按鈕，分別為：開始、暫停、結(jié)束。再用一個標簽或者文本框顯示就好了。 各位大俠教教，我初學(xué)。
2011-05-23 14:16:03
368
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
556
4
- VB 用計時器顯示日期時間上下午
2011-11-21 19:02:09
440
2
- 關(guān)于 VB 計時器 Z大允許時間的問題
- 我想做一個古代時辰的程序， 一共12個時辰，我計劃用12張圖片輪番顯示，可是計時器Z大只能記時65535毫秒，我想讓圖片2小時（7200秒）換一張，需要怎么來實現(xiàn)??？ 請高手指教！
2014-01-07 22:07:23
406
1
- vb 計時器怎么控制隨機數(shù)的產(chǎn)生
- 題目是：程序運行是，單擊“開始”按鈕，每秒鐘產(chǎn)生3個1到6的隨機數(shù)字 單擊“暫停”按鈕，終止隨機數(shù)的產(chǎn)生。 隨機數(shù)的代碼我會，但不知道計時器的代碼怎么寫 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10)... 題目是：程序運行是，單擊“開始”按鈕，每秒鐘產(chǎn)生3個1到6的隨機數(shù)字 單擊“暫?！卑粹o，終止隨機數(shù)的產(chǎn)生。 隨機數(shù)的代碼我會，但不知道計時器的代碼怎么寫 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
493
4
- Vb如何實現(xiàn)兩個計時器同時運行
2014-11-11 23:30:23
508
1
4月突出貢獻榜
推薦主頁
最新話題
滬公網(wǎng)安備 31011502008050號
參與評論
登錄后參與評論