|
-
Aug 8th, 2000, 03:46 PM
#1
Thread Starter
New Member
I found that:
Declare Function GetTickCount& Lib "kernel32" ()
Private Sub cmdWinRun_Click()
MsgBox GetTickCount
End Sub
But what i want to do,is 3 textbox.
1 testbox for the hours
1 for min
and 1 for sec.
it is possible????
-
Aug 8th, 2000, 04:04 PM
#2
Just divide the result:
Code:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
'Seconds
Text1 = GetTickCount / 1000
'Minutes
Text2 = (GetTickCount / 1000) / 60
'Hours
Text3 = (GetTickCount / 10000 / 60) / 60
End Sub
-
Aug 8th, 2000, 04:32 PM
#3
Thread Starter
New Member
thanks alot, i searching and trying so many thing..but i see your code and it was easy..good i suck sometime..
-
Aug 8th, 2000, 05:03 PM
#4
Sorry, I just found a mistake. Change this line:
Text3 = (GetTickCount / 10000 / 60) / 60
To this line:
Text3 = (GetTickCount / 1000 / 60) / 60
[Edited by Megatron on 08-08-2000 at 06:08 PM]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|