扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
学习使用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); 挂起当前进程
//另一部分指令……
如果你用控制台应用程序，这样就可以了。如果你用窗体应用程序且在窗体主线程下运行，则需要用到计时器或多线程等。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网