国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設計 > 正文

在VB中設計倒計時程序

2019-11-18 17:52:48
字體：大 中 小
來源：轉載
供稿：網友
在程序設計時，經常需要用倒計時，倒計時程序一般不能用時間函數(shù)來進行設計，常用的方法是在計時器的觸發(fā)過程中設置計數(shù)
變量來進行控制，程序如下：
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，它們分別代表初始的小時、分鐘、秒，可根據(jù)情況在程序中指定，也可配合文本框在程序開始運行時輸入，程序中用到一個計時器，它每秒鐘被觸發(fā)一次，程序運行時在窗體的標題欄動態(tài)地顯示倒計時，當計時完畢則顯示對話框提示，同時結束程序的運行。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 临夏市| 东阿县| 龙川县| 杨浦区| 峨边| 六安市| 黎川县| 安远县| 新密市| 永嘉县| 井陉县| 宝鸡市| 贞丰县| 合阳县| 贞丰县| 富宁县| 焉耆| 从化市| 汽车| 怀柔区| 方山县| 绥中县| 乌拉特中旗| 巴林左旗| 和政县| 深圳市| 双辽市| 邻水| 马山县| 公主岭市| 定结县| 连江县| 紫阳县| 建湖县| 儋州市| 兴仁县| 凤阳县| 博野县| 眉山市| 洞头县| 营山县|