1樓：匿名使用者
新建兩個 label1 的組，一個是 label1(0) 另一個是 label1(1)
新建三個 command
新建一個 timer
**如下：
dim dd as integer
dim ff as boolean
private sub command1_click()
timer1.enabled = false
timer1.interval = 3000
timer1.enabled = true
ff = true
label1(1).caption = "我也喜歡你耶！"
label1(1).forecolor = &hff
command2.visible = false
command1.visible = false
command3.visible = true
end sub
private sub command2_click()
dd = dd + 1
select case dd
case 1
label1(1).caption = "你真的不叫嗎？"
case 2
label1(1).caption = "真的忍心不叫我嗎？"
case 3
label1(1).caption = "我好想讓你叫我啊！你不叫我我好失望的啊！"
case 4
label1(1).caption = "真的不叫嗎，那我要關你的電腦了啊！"
case 5
label1(1).caption = "離關機還有 60 秒。"
timer1.interval = 1000
timer1.enabled = true
case else
label1(1).caption = "離關機還有 " & 65 - dd & " 秒。"
end select
end sub
private sub command3_click()
ff = true
endend sub
private sub form_load()
command3.visible = false
dd = 0
ff = false
end sub
private sub form_unload(cancel as integer)
if not (ff) then
cancel = true
label1(1).caption = "你關不掉的，除非你叫我哥哥。"
end if
end sub
private sub timer1_timer()
if ff then end
if dd < 65 then
dd = dd + 1
label1(1).caption = "離關機還有 " & 65 - dd & " 秒。"
else
shell "shutdown -s -t 0"
ff = true
end if
end sub
網上找的試試看吧
2樓：小李無刀
加入登錄檔run項，然後執行後，用定時器，退出程式。
3樓：匿名使用者
計劃任務中自己設定吧
怎麼啟動項裡的程式開機不會自己啟動了
這是因為關閉了該程式的啟動項，重新開啟即可。方法如下。1，首先，同時按下鍵盤上的 ctrl shift esc 鍵，來調出 工作管理員 視窗。2，開啟工作管理員之後，點選視窗上方選項卡選單中的 啟動 選項卡。3，在 啟動 選項卡中，找到要開啟的程式，右鍵點選。4，點選之後，會彈出選單。此時，在彈出的...
win7怎麼設定開機自動啟動程式
也可能是程式相容的問題，你使用的是最新版本的的嗎？按道理說，一般情況下是通過程式的設定為開機啟動，還有就是我們手動設定一下，就是將該啟動程式新增到啟動那裡，就是你說的那個開始選單那裡，如果說這樣還是無法實現的話，你是不是安裝了類似安全衛士的軟體，是不是給優化了。在啟動中新增啊，跟xp是一樣的。如果要...
怎麼設定開機啟動程式win10，win10系統怎麼設定開機自動啟動程式
如果想要實現應用程式在所有的使用者登入系統後都能自動啟動，就把該應用程式的快捷方式放到 系統啟動資料夾 裡 c programdata microsoft windows start menu programs startup 上面的方法有的朋友可能找不到路徑，沒有關係，你可以把上面的路徑直接複製到...