1樓:不懷好心
private i as integer
private sub command1_click()i = 10
timer1.interval = 1000 '每秒執行一次timer事件
end sub
private sub timer1_timer()i = i - 1
command1.caption = i
if i = 0 then end
end sub
建立一個按鈕和timer控制元件,然後把**複製執行就可以了稍微修改了一下,這樣就顯示倒計時了
2樓:匿名使用者
timer1控制元件一個
comaand1控制元件一個
private sub command1_click()timer1.interval = 10000timer1.enabled = trueend sub
private sub timer1_timer()unload me
endend sub
VB中,簡單的問題 高手幫幫,VB中,一個簡單的問題 高手幫幫
你要的其實就是模擬按鍵 使用keybd event api就能完成。函式vb申明 public declare sub keybd event lib user32 byval bvk as byte,byval bscan as byte,byval dwflags as long,byval d...
求設計個簡單的VB程式,求一個最簡單的JAVA程式
主要 private sub command1 click d inputbox 請輸入圓的直徑 s 3.1415926 4 d 2l 3.1415926 d msgbox 圓的面積 s vbcrlf 圓的周長 l end sub private sub command2 click r input...
VB程式求幫忙,求大神幫忙一個超級簡單VB程式程式碼編寫 跪求!
用timer控制元件,設interval 1000然後在事件處理過程中檢查 if second now 0 then 0秒 end if if minute now 59 then 59分 end if 如果用do迴圈,會霸佔cpu資源,結果就想當於死迴圈.dim mytime mytime tim...