从品牌网站建设到网络营销策划,从策略到执行的一站式服务
学习使用Timer组件,这个控件可以计时,且本身就是异步多线程的。
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了钦南免费建站欢迎大家使用!
VB显示当前程序运行的时间长短,需要添加一个Timer控件来实现,代码如下:
Dim Tim As String, B As Long, H As Integer, M As Integer, S As Long
//窗体加载时候方法
Private Sub Form_Load()
Label1.Caption = ""
Tim = Time
Timer1.Interval = 100
End Sub
//Timer控件方法
Private Sub Timer1_Timer()
s = DateDiff("s", Tim, Time)
If s 60 Then
B = s
M = B \ 60
s = B Mod 60
If M 60 Then
B = M
H = B \ 60
M = B Mod 60
End If
End If
If H = 0 Then
If M = 0 Then
Label1.Caption = "已经运行了 " s " 秒 "
Else
Label1.Caption = "已经运行了 " M " 分 " s " 秒 "
End If
Else
Label1.Caption = "已经运行了 " H " 小时 " M " 分 " s " 秒 "
End If
End Sub
//一部分指令……
int duration = 1000; //设定进程挂起时间,单位毫秒
System.Threading.Thread.Sleep(duration); 挂起当前进程
//另一部分指令……
如果你用控制台应用程序,这样就可以了。如果你用窗体应用程序且在窗体主线程下运行,则需要用到计时器或多线程等。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图