全部評論(1條)
-
- heliangdong123 2013-06-29 00:00:00
- Private Sub Form_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Picture1.Left = Picture1.Left - 100 If Picture1.Left <= -Picture1.Width Then Picture1.Left = Form1.Width End If End Sub
-
贊(16)
回復(fù)(0)
熱門問答
- vb計(jì)時器設(shè)計(jì)圖片左右往復(fù)運(yùn)動vb代碼
2013-06-28 02:23:36
469
1
- 求vb計(jì)時器編程代碼
- 編寫程序，用計(jì)時器按秒計(jì)時。在窗體上畫一個計(jì)時器控件和一個標(biāo)簽，運(yùn)行程序后，在標(biāo)簽內(nèi)顯示經(jīng)過的秒數(shù)，并響鈴
2018-02-26 21:39:20
502
1
- vb怎么設(shè)計(jì)簡單的計(jì)時器
- 用vb中的timer控件，設(shè)計(jì)計(jì)時器。用三個命令按鈕，分別為：開始、暫停、結(jié)束。再用一個標(biāo)簽或者文本框顯示就好了。 各位大俠教教，我初學(xué)。
2011-05-23 14:16:03
368
2
- vb停止計(jì)時器
- 我想做一個程序，讓計(jì)時器隨機(jī)取一個數(shù)并可以讓計(jì)時器過5秒后自動停止下來。 已編寫代碼： Private Sub Timer1_Timer() Randomize s = Int(Rnd * 16 + 24) Text1.Text = s End Sub 嗯~~interval的值為10 誰能幫我完成過“5秒后自動停止下來”這個... 我想做一個程序，讓計(jì)時器隨機(jī)取一個數(shù)并可以讓計(jì)時器過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正計(jì)時器
- 做一個這樣的格式的 00:00:00 往上計(jì)時 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計(jì)時器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計(jì)時器怎么用
2009-11-24 00:38:51
480
3
- vb 如何重置計(jì)時器
- vb 如何重置計(jì)時器
2010-09-06 07:36:56
489
1
- VB 計(jì)時器 與 進(jìn)度條
- 我想把進(jìn)度條弄成7秒，然后打開窗口form2 代碼該怎樣寫？
2018-12-04 10:37:13
516
0
- 怎樣用VB做一個秒表計(jì)時器
- 兩個按鈕，一個開始鍵 一個清零鍵 ，想要點(diǎn)擊開始鍵以后 開始鍵變成 結(jié)束 文本也改成結(jié)束 按清零鍵后變回開始 還想添加一個開始的鍵盤快捷鍵（開始和結(jié)束能夠公用這個快捷鍵） 求大神指教
2018-11-28 05:21:49
390
0
- 如何用VB程序做計(jì)時器？
2017-11-23 14:26:59
517
1
- VB 如何讓計(jì)時器重新計(jì)時
- 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設(shè)計(jì)一款數(shù)據(jù)庫軟件
2016-12-06 00:28:54
438
2
- VB 用計(jì)時器顯示日期時間上下午
2011-11-21 19:02:09
438
2
- 關(guān)于 VB 計(jì)時器 Z大允許時間的問題
- 我想做一個古代時辰的程序， 一共12個時辰，我計(jì)劃用12張圖片輪番顯示，可是計(jì)時器Z大只能記時65535毫秒，我想讓圖片2小時（7200秒）換一張，需要怎么來實(shí)現(xiàn)??？ 請高手指教！
2014-01-07 22:07:23
404
1
- vb 計(jì)時器怎么控制隨機(jī)數(shù)的產(chǎn)生
- 題目是：程序運(yùn)行是，單擊“開始”按鈕，每秒鐘產(chǎn)生3個1到6的隨機(jī)數(shù)字 單擊“暫?！卑粹o，終止隨機(jī)數(shù)的產(chǎn)生。 隨機(jī)數(shù)的代碼我會，但不知道計(jì)時器的代碼怎么寫 Private Sub Command1_Click() Cls Dim a(3) As Integer For l = 1 To 3 x = Int(Rnd * 10)... 題目是：程序運(yùn)行是，單擊“開始”按鈕，每秒鐘產(chǎn)生3個1到6的隨機(jī)數(shù)字 單擊“暫停”按鈕，終止隨機(jī)數(shù)的產(chǎn)生。 隨機(jī)數(shù)的代碼我會，但不知道計(jì)時器的代碼怎么寫 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如何實(shí)現(xiàn)兩個計(jì)時器同時運(yùn)行
2014-11-11 23:30:23
506
1
- 用vb的timer做一個計(jì)時器程序
- 包括開始、停止、重置，共3個按鈕 計(jì)時單位精確到0.01秒 重置后，再按開始是從0開始重新計(jì)時的 計(jì)時中會溢出錯誤？ 請高手寫一下代碼，特別是重置后，我自己做的時候不能重新從0開始計(jì)時，而是又接著停止時的時間繼續(xù)下去!!!
2014-07-15 03:29:59
578
2
- vb是什么
2006-11-10 06:33:16
861
4
- vb 循環(huán)器
- 會做了，但是如何循環(huán)呢？ text1 輸入，label1顯示，點(diǎn)擊按鈕開始，比如text1的值是10，怎樣才能讓程序10到0然后執(zhí)行某個功能，text1的值又變成10，再。如此循環(huán)
2011-12-26 04:52:19
409
3
4月突出貢獻(xiàn)榜
推薦主頁
最新話題
滬公網(wǎng)安備 31011502008050號
參與評論
登錄后參與評論