請高手給可用的簡短VB時間操作語句內詳

2023-02-04 03:20:04 字數 654 閱讀 2318

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的膝上型電腦,請問各位...