hooks es lo mejor para esto, busca sobre eso que hay bastante y creo que aca en el foro ya se posteo.
saludos.
saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Eternal Idol en 21 Noviembre 2011, 00:25 AM
Oh no
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
MsgBox getTimePassed
End Sub
Public Function getTimePassed() As String
Dim lngHour As Long
Dim lngMinute As Long
Dim lngSeconds As Long
lngHour = Int(GetTickCount / 1000 / 60 / 60)
lngMinute = Int((GetTickCount / 1000 / 60)) - lngHour * 60
lngSeconds = Int((GetTickCount / 1000)) - lngMinute * 60 - lngHour * 3600
getTimePassed = Trim(Str(lngHour) & ":" & sGetWideTimeString(lngMinute) & ":" & sGetWideTimeString(lngSeconds)) & vbNullChar
End Function
Public Function sGetWideTimeString(ByVal btInputNumb As Byte) As String
Dim sTemp As String
sTemp = Trim(Str(btInputNumb))
If Len(sTemp) = 1 Then sTemp = "0" & sTemp
sGetWideTimeString = sTemp
End Function
Cita de: birdez en 20 Noviembre 2011, 22:03 PM
pro eso de los espacios donde lo pongo porque estoy intenando aprender visual pro no tengo mucha idea xD
si me lo pudierais explicar de la forma ams sencilla os lo agradeceria