学习使用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); 挂起当前进程
//另一部分指令……
如果你用控制台应用程序,这样就可以了。如果你用窗体应用程序且在窗体主线程下运行,则需要用到计时器或多线程等。