1樓：網友
private sub form_load()= 60000 '設定檢測時間為1分鐘。
trueend sub
private sub timer1_timer()dim xx as integer, aa as integer, bb as integer
xx = weekday(now)
aa = hour(now)
bb = minute(now)
if xx = 2 and aa = 10 and bb = 20 then
執行另外乙個程式。
end if
end sub
2樓：網友
用時間控制項一直在判斷了。每分鐘進行一次判斷。
3樓：網友
這用什麼vb程式設計啊，直接用系統自帶的任務計劃還好呢。
vb顯示當前程式執行時間
4樓：網友
需新增乙個timer控制項。
private sub form_load()= 100
end sub
private sub timer1_timer()now
end sub
完成後時間將在窗體左上角顯示當前時間。
vb設定指定某段時間執行程式..
5樓：白木道人
關機那是不可能的。因為你的**執行監視系統時間後臺還可以執行，關機那就肯定不行，除非寫成開機啟動，那麼他一開機這段**就會執行，從而實現關機。
private sub form_load()end sub
private sub timer1_timer()label1=now
if label1="##" then
if label1="##" then
end sub
6樓：網友
其實我是想寫一程式限制一下別人使用我的電腦啦。等他在這段時間一開機就關啦。
就不需要讓窗體顯示，加在啟動項，到時倒計時關機，如果是自已用，在執行框shutdown -a取消，或者做熱鍵撥出。
private sub form_load()= true
end sub
private sub timer1_timer()if hour(now) <7 or hour(now) >= 23 then
shell " -s -t 60"
endend if
end sub
vb中怎樣實現在指定時間執行指定程式
7樓：網友
timer只能是相對時間，等多長時間做什麼事情。
想按日期的話用api來做吧。
其實可以用計劃任務，比你用vb做效果好。
真用vb的話就設定乙個timer，觸發函式內檢測日期時間，到點就呼叫你需要執行的程式就可以了。
8樓：網海1書生
private sub form_load()= 60000
trueend sub
private sub timer1_timer()if hour(now) = 18 and minute(now) = 30 then
shell "", vbnormalfocusend if
end sub
以上**是在每天的18:30執行「記事本」
9樓：網友
將timer控制項時差設為1000，用if語句判定你設定的時間＝now
注意，你設定的時間要精確到秒。
如何用vb實現軟體使用時間限制
10樓：
第一種方法：在程式中設定一下固定時間，在程式啟動的時候和系統當前時候做一下比較，根據判斷結果決定程式繼續執行或退出。不過這種方法很容易通過修改系統當前時間來繞過去。
第二種方法：是在程式初次安裝或執行時，在登錄檔或磁碟上乙個隱蔽的檔案中，記錄下程式的執行次數，每執行一次程式，將次數加1，然後根據程式執行次數決定程式是否執行。
11樓：網友
加密後用api寫在登錄檔裡然後每天-1就ok啦。
vb裡的時間控制項，在執行除錯的時候就會啟動，怎樣讓他在下乙個週期的時候啟動？
12樓：吹花
private sub form_load()= 5000
falseend sub
private sub command1_click()= true
end sub
private sub timer1_timer()call option1_click
end sub
樓上寫錯了乙個單詞，已修正，又增加了timer控制項的**。
思路很簡單，timer控制項的enabled屬性預設是開著的，程式啟動時自然開始工作，所以需要在窗體load事件裡新增 = true語句，當然也可以手動設定。
command1做計時器啟動按鈕，自然是改變其enabled 屬性為true
如果需要實現單擊此按鈕完全控制計時器執行（單擊一次開始，單擊二次停止，迴圈），可以這樣寫。
private sub command1_click()static n as integer
n = n + 1
if n mod 2 = 1 then
true "停止"
else false
開始"end if
end sub
13樓：網友
沒看到**，所以不知道你具體要實現什麼，先寫一下下面的。。
private sub form_load()end sub
private sub command1_click()end sub
vb計算程式執行時間
14樓：飝快de時間
你把你的**發來看一下，描述不太清楚。
for i = 1 to 1000000
if < 1000000 then
end if
你是寫在乙個過程裡，當然是順序接著向下走的，如果你要進度條一秒一次就改成。
時鐘**和按鈕**是分開走的。
15樓：
dim a 』把這個定義為全體程式都能使用的變數private sub timer1_timer()a = a + 1
aend sub
vb問題！ 怎麼設定按下按鈕一定時間（如10秒）後執行某段**？
16樓：我是小柊
用兩種方法，一種是建立timer，設定按下按鈕後觸發timer計時，十秒後執行**。
第二種是使用api：sleep，在宣告之後只要在執行**前加一句sleep 10000就可以了。
個人推薦第一種，因為第二種在vb單執行緒狀態下容易造成無響應情況，但也可以通過一定方法解決。
用vb怎麼在text框中顯示系統當前時間並執行時自動重新整理時間
17樓：網友
用vb的timer控制項的timer事件可隨時更新textbox文字框中顯示的當前時間。
timer 控制項，通過引發 timer 事件，timer 控制項可以有規律地隔一段時間執行一次**。
timer 事件，在乙個 timer 控制項的預定的時間間隔過去之後發生。該間隔的頻率儲存於該控制項的。
interval 屬性中，它以千分之一秒為單位指定時間的長度。
private sub form_load()= 500
trueend sub
private sub timer1_timer()if <>cstr(time) then= time
end if
end sub
vb設定指定某段時間執行程式，VB設定指定某段時間執行程式
玫瑰為你盛開 在窗體1里加個timer private sub form load timer1.enabled truetimer1.interval 100end sub private sub timer1 timer if hour now 7 or hour now 23 then for...
怎麼設定VB列表框多行顯示，VB列表框multiselect屬性設定問題？求解
超人影視娛樂 要在list的屬性視窗設定 multiselect 多選屬性 基值可為 0 每次只選一個 1 同時選多個 2 可用shift連選，ctrl不連續選擇應該將mulstiselect設為1。問題2 在 中實現 private sub command1 click for i 0 to li...
用VB做程式，顯示所用時間，用VB做一個程式，顯示所用時間
1.新建窗體，在窗體上新增兩個按鈕，一個標籤，一個計時器2.按鈕1的 如下 private sub 按鈕1 click label1.caption 0 timer1.interval 1000 timer1.enable true end sub 3.按鈕2的 如下 private sub 按鈕2...