1樓:vb妮可
form1的**,新增一個timer.. 如果不需要顯示,則去掉cls和下面的print這2行:
(思路不太對呵,調整一下)
dim startime
private sub form_load()
timer1.enabled = true
timer1.interval = 1000
startime = timer
end sub
private sub timer1_timer()
dim endtime
endtime = startime + (1800 + 60) - timer
clsprint "還剩下"; dateadd("s", endtime, 0)
if endtime < 0 then
startime = timer
form2.hide
end if
if endtime < 60 and endtime > 0 then form2.show
end sub
2樓:盒飯加個蛋
新增時間控制元件
設定time interval = 1800000
在時間事件中 寫上邏輯**
有幾道vb的題目,希望高手給解答下
1.根據優先順序的等價為 a b and not c a or c b and c a b 2和3其實是一個問題,數字預設都是整型,整型和整型計算結果還是整型,integer最大取值32767,所以溢位了,但是只要有一個數的型別範圍更大,計算結果就會以大的資料型別為準,print 20000 cln...
wow dz請高手給殺怪的技能順序
戰鬥賊給你個我個人的偏方 怪分散不容易引到得話 用投擲 或者弓箭槍開 因為戰鬥z無起手多星的優勢 而且偷襲費能量 鎖喉太慢 遠端開怪怎麼說都是輸出吧 怪到你面前可以打2下左右 然後就影襲 注意你每科星剔骨的傷害 不要太注重幾星剔骨 什麼時候能結束戰鬥才是重點。自己摸索殺怪的經驗很有樂趣。啥天賦?戰鬥...
請高手給建議 8000 9000的筆記本
華碩a8jr ibmr60 建議你選asus和hp,ibm不要選.至於型號你可以選華碩 a8h53jr sl華碩 a8h52jr sl 產品不錯.你看一下吧.挺不錯的.我給我朋友買了一個.看來真的也適合你了.本人從事本本維修.我的群37042692 我想買一臺8000到9000的膝上型電腦,請問各位...