国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 大冶市| 上思县| 连山| 桦甸市| 东乡族自治县| 万源市| 昭平县| 丰原市| 肥城市| 拉萨市| 黄浦区| 新蔡县| 南宁市| 新闻| 循化| 盐城市| 广平县| 罗甸县| 邵阳市| 拉孜县| 江永县| 汾西县| 改则县| 榆林市| 银川市| 齐齐哈尔市| 手游| 文安县| 那曲县| 高台县| 贵溪市| 平湖市| 南京市| 黄大仙区| 门头沟区| 大港区| 芷江| 黄浦区| 白城市| 临城县| 康平县|