麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

在VB中設計倒計時程序

2019-11-18 17:52:48
字體：大 中 小
來源：轉載
供稿：網友
在程序設計時，經常需要用倒計時，倒計時程序一般不能用時間函數來進行設計，常用的方法是在計時器的觸發過程中設置計數
變量來進行控制，程序如下：
Dimhh,mm,ss
SubForm_Load()
hh=0:mm=5:ss=0
timer1.Interval=1000
EndSub
SubTimer1_Timer()
s=IIf(ss<10,"0"&ss,""&ss)
m=IIf(mm<10,"0"&mm,""&mm)
h=IIf(hh<10,"0"&hh,""&hh)
t=h&":"&m&":"&s
Me.Caption=t
ss=ss－1
Ifhh=0Andmm=0Andss=－1Then
msg="練習時間已到，按回車鍵結束!"
MsgBoxmsg,48,"注意"
EndIf
Ifss=－1Andmm>0Thenmm=mm－1:ss=59
Ifmm=0Andhh>0Thenhh=hh－1:mm=59
EndSub
程序說明：程序中用到三個窗體級變量hh、mm、ss，它們分別代表初始的小時、分鐘、秒，可根據情況在程序中指定，也可配合文本框在程序開始運行時輸入，程序中用到一個計時器，它每秒鐘被觸發一次，程序運行時在窗體的標題欄動態地顯示倒計時，當計時完畢則顯示對話框提示，同時結束程序的運行。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 亚州精品天堂中文字幕 | 我爱我色成人网 | 日韩一级片一区二区三区 | 91精品国产乱码久久久久 | 黄色电影免费提供 | 精品小视频 | 天天草夜夜骑 | 欧美亚洲免费 | 国产1区2区3区中文字幕 | 久久99精品国产自在现线 | 亚洲成人在线视频网 | 欧美日韩精品一区二区三区不卡 | 国产成人在线观看网站 | 久久国产精品91 | julieann艳星激情办公室 | 国产精品99免费视频 | 日韩午夜一区二区三区 | 精品国产91一区二区三区 | av成人在线电影 | 成人国产在线视频 | 国产一国产一级毛片视频在线 | va视频 | 日本看片一区二区三区高清 | h色视频网站 | 成人三级电影网 | 国产精品免费久久久久久 | 天堂二区 | 欧美一区二区片 | 久久久久久亚洲综合影院红桃 | 午夜精品视频免费观看 | av在线中文 | 一级看片免费视频 | 欧美a级一区二区 | 中国杭州少妇xxxx做受 | 日本高清视频网站www | av电影网站在线 | 精品一区二区三区在线观看视频 | 国产毛片自拍 | 欧美亚洲黄色片 | 国产毛片aaa一区二区三区视频 | 久久精品视频免费观看 |