1樓：玫瑰為你盛開
在窗體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
form1.hide
form2.show
else
form1.show
form2.hide
end if
end sub
2樓：白木道人
關機那是不可能的。因為你的**執行監視系統時間後臺還可以執行，關機那就肯定不行，除非寫成開機啟動，那麼他一開機這段**就會執行，從而實現關機。
private sub form_load()timer1.enabled=false
timer1.inteval=1000
end sub
private sub timer1_timer()label1=now
if label1="#2009-6-12 23:00:00 #" then form2.show:me.hide
if label1="#2009-6-13 07:00:00 #" then form1.show:form2.unload
end sub
3樓：匿名使用者
其實我是想寫一程式限制一下別人使用我的電腦啦...等他在這段時間一開機就關啦...
就不需要讓窗體顯示,加在啟動項，到時倒計時關機，如果是自已用，在執行框shutdown -a取消,或者做熱鍵撥出
private sub form_load()timer1.enabled = truetimer1.interval = 100me.hide
end sub
private sub timer1_timer()if hour(now) < 7 or hour(now) >= 23 then
shell "shutdown.exe -s -t 60"
endend if
end sub
c每隔一段時間執行一次函式
1.在頁面使用timer控制元件.2.設定屬性 interval 步長.即每隔多長時間執行enabled 預設為false,需要時執行objtmr.start 或關閉計時objtmr.stop 如果設定為true,則窗體開啟時自動計時.3.在timer.tick 中定義執行的語句或呼叫方法.priv...
VB中怎樣製作計時器？能夠設定倒計時的時間，並進行倒計時
1 開啟vb6.0，新建一個工程，在窗體中新增三個命令按鈕，caption分別改為 設定倒計時 啟動倒計時 繼續 將窗體form1的caption屬性改為 倒計時 新增一個計時器控制元件，新增一個文字框。2 將文字框的text屬性清空，將字型font屬性調整為小四，便於觀察，將背景色屬性backco...
sql中如何計算得到一段時間內指定日期中有多少個休息日和節假
這個問題的前題是需要建立一個表 存放休息日和節假日 holidays,裡面存放了所有休息日等 sql中提供了一些日期計算函式如dateadd,可對日期進行遞增操作。基本 如下 declare startdate datetime 2015 9 10 declare enddate datetime ...