VB获取系统运行时间


Private Declare Function GetTickCount& Lib "kernel32" ()   
  
Dim a As Long  
Dim b As Long  
Dim c As Long  
Dim d As Long  
Dim e As Long  
  
Private Sub Form_Load()   
	'   
End Sub  
  
Private Sub Timer1_Timer()   
	a = GetTickCount \ 1000   
	b = GetTickCount \ 1000 \ 60   
	c = GetTickCount \ 1000 \ 60 \ 60   
	d = (a - c * 3600) \ 60   
	e = a - b * 60   
	lblsecond.Caption = e   
	lblminute.Caption = d   
	lblhour.Caption = c   
End Sub 


17年前4月5日 阅读:183 评论:0

青锋幽灵

゛. - 看過世间最冷漠滴眼神,  爱過⒈生最无缘滴人﹎

评论 More..

该页面还没有任何评论,赶快占个沙发吧!

登录 注册

您没有登录,如果还不是会员请先注册

文明上网,理性发帖!


顶部