国产成人AV一区二区三区在线_国产成人精品无码免费看_国产成人无码无卡在线观看_国产精品成人A区在线观看_国产日韩精品欧美一区_国产亚洲精品自在久久蜜TV_久草热久草热线频97精品_久久久噜噜噜久久中文福利_久久婷婷五月综合色国产免费观看_日日狠狠久久偷偷色综合0,九一桃色在线观看,久久97精品久久久久久久不卡,国产成人精品亚洲精品

window7電腦怎樣設(shè)倒計(jì)時(shí)

訪客2024-12-02 06:46:391

設(shè)置什么倒計(jì)時(shí),?

打開(kāi)c:windowssystem32cmd.exe,就是輸入win+r然后輸cmd,,會(huì)彈出來(lái)一個(gè)窗口

輸入

at 10:00 cmd.exe

然后在10點(diǎn)時(shí)就會(huì)彈窗cmd出來(lái),。

vb做法:

新建一個(gè)工程,,添加一個(gè)label1與timer1,在timer1中輸代碼:

public a

private sub timer1_timer()

on error resume next

if a="" then

a=inputbox("輸入將來(lái)時(shí)間:(精確到秒)")

end if

if a="" then

msgbox"不得為空,!",16+4096,"err"

exit sub

end if

b=time

b=replace(b,":","")

a=replace(a,":","")

b1=left(b,2)

b1=b1 * 3600

b2=mid(b,3,4)

b2=b2*60

b3=right(b,2)

b=b1+b2+b3 '統(tǒng)計(jì)為秒

a1=left(a,2)

a1=a1 * 3600

a2=mid(a,3,4)

a2=a2*60

a3=right(a,2)

aadd=a1+a2+a3

if aadd<b then

aadd=aadd+24 * 3600

end if

***.caption="距離時(shí)間到還有:" & aadd-b & " 秒"

end sub

別忘了設(shè)置timer那個(gè)i開(kāi)頭的屬性,,0無(wú)法工作,設(shè)100好了

看你自己會(huì)寫(xiě)VB不,?這個(gè)可以用VB自制一個(gè)

文章評(píng)論