VB如何編寫計時器，到時間后關(guān)閉指定EXE文件.
-
計時器時間到了， 就馬上執(zhí)行關(guān)閉指定文件. 而且窗體內(nèi)要顯示時間，比如Text標(biāo)簽內(nèi)顯示數(shù)字.或者List顯示數(shù)字.
全部評論(5條)
-
- 易水寒的春天 2013-07-27 00:00:00
- 有控件?。?！自己拖啊?。?
-
贊(2)
回復(fù)(0)
-
- *上次那家 2013-07-27 00:00:00
- 關(guān)閉自身程序上面已經(jīng)說了，就不多寫了關(guān)閉其他指定程序可以用taskkill函數(shù)shell "taskkill /f /im exe文件名"
-
贊(5)回復(fù)(0)
-
- 張彥成365 2013-07-27 00:00:00
- Dim a As Long Private Sub Form_Load() a = 10 Timer1.Interval = 1000 End SubPrivate Sub Timer1_Timer() a = a - 1 If a = 0 Then Timer1.Enabled = False Shell ("taskkill /f /im qq.exe")End If Text1.Text = a End Sub借用樓上的，你可以把qq.exe改成你要關(guān)閉的。EXE文件進(jìn)程名即可。你試下
-
贊(13)回復(fù)(0)
-
- carsonhr 2013-07-27 00:00:00
- 兩個控件 一個timer 一個text Dim a As Long '聲明變量 Private Sub Form_Load() a = 100 '假設(shè)一百秒后 Timer1.Interval = 1000 'timer1 1秒刷新一次 1000是毫秒數(shù) 如果timer1.interval=100就是0.1秒刷新一次 End SubPrivate Sub Timer1_Timer() a = a - 1 'timer1 刷新一次A-1 If a <= 0 Then '如果A小于等于0 MsgBox "時間到"， 0， "提示" '就顯示提示 End '這是關(guān)閉自身程序，如果要關(guān)閉其他程序要APP函數(shù) End If Text1.Text = a ' text1顯示數(shù) End Sub
-
贊(8)回復(fù)(0)
-
- 熱情的龍逸 2013-07-27 00:00:00
- 在窗體上加入兩個text控件，text1用來接收用戶希望關(guān)閉應(yīng)用程序的時間，text2用來記錄用戶希望關(guān)閉應(yīng)用程序的程序名。一個timer控件，一個Label控件用于顯示，一個command控件用于確定。進(jìn)入代碼編輯：
-
贊(6)回復(fù)(0)
熱門問答
- VB如何編寫計時器，到時間后關(guān)閉指定EXE文件.
- 計時器時間到了， 就馬上執(zhí)行關(guān)閉指定文件. 而且窗體內(nèi)要顯示時間，比如Text標(biāo)簽內(nèi)顯示數(shù)字.或者List顯示數(shù)字.
2013-07-26 02:15:13
471
5
- c# 計時器 如何到指定時間停下來
2010-09-26 01:03:39
558
2
- 在VB中如何編寫使計時器中的時間歸零重新開始計時
2014-12-10 14:09:58
423
2
- VB如何用計時器控制窗體的顯示時間
2013-11-23 06:40:40
429
3
- vb 如何重置計時器
- vb 如何重置計時器
2010-09-06 07:36:56
489
1
- VB 用計時器顯示日期時間上下午
2011-11-21 19:02:09
440
2
- 用C#時間怎么編寫一個計時器...!
- 如題..\ 我要用c#時間怎么編寫一個計時器，.. 要求從0開始. 到100秒停止！ 用代碼怎么實現(xiàn)．
2008-09-29 02:30:25
367
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 如何讓計時器重新計時
- 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計時器，想要顯示現(xiàn)在時間，然后點擊開始，時間開始跳動。
- 就是與當(dāng)前時間同步。 PrivateSub Command1_Click() Text1.Text= Time Timer1.Enabled= True End Sub PrivateSub Command2_Click() Timer1.Enabled= False End Sub PrivateSub Timer1_Timer() 這一塊要怎么寫？？ End Sub
2013-11-11 11:50:32
470
2
- 急急急，vb：編寫器
- 要求：單擊“開始”按鈕，標(biāo)簽中的數(shù)字為60，每隔一秒減1，當(dāng)標(biāo)簽中的數(shù)字為0時，則停止減1，標(biāo)簽中顯示“時間到”
2011-06-13 00:25:07
439
2
- Vb如何實現(xiàn)兩個計時器同時運行
2014-11-11 23:30:23
508
1
- VB計時器怎么用
2009-11-24 00:38:51
480
3
- VB 計時器 與 進(jìn)度條
- 我想把進(jìn)度條弄成7秒，然后打開窗口form2 代碼該怎樣寫？
2018-12-04 10:37:13
516
0
- 如何關(guān)閉iphone手機計時器？謝謝
2010-01-11 12:17:28
370
2
- 光電開關(guān)如何控制時間計時器
2016-08-03 02:39:05
530
1
- vb計時器設(shè)計圖片左右往復(fù)運動vb代碼
2013-06-28 02:23:36
469
1
- 求vb計時器編程代碼
- 編寫程序，用計時器按秒計時。在窗體上畫一個計時器控件和一個標(biāo)簽，運行程序后，在標(biāo)簽內(nèi)顯示經(jīng)過的秒數(shù)，并響鈴
2018-02-26 21:39:20
502
1
4月突出貢獻(xiàn)榜
推薦主頁
最新話題
滬公網(wǎng)安備 31011502008050號
參與評論
登錄后參與評論