VB获取系统运行时间

Private Declare Function GetTickCount&amp; 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

阅读：183 评论：0

青锋幽灵

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

评论 More..

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