elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  comparar un label con la hora del sistema (solucionado)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: comparar un label con la hora del sistema (solucionado)  (Leído 934 veces)
pedraosone

Desconectado Desconectado

Mensajes: 90


Ver Perfil
comparar un label con la hora del sistema (solucionado)
« en: 5 Octubre 2015, 15:11 pm »

Hola, tengo un label con el siguiente caption:
label1.caption = "23:00:00" ' esta hora se la asigna una variable
y quiero que un timer me la compare con la hora del sistema
he usado este codigo:

Private Sub Timer1_Timer()
Dim procID As Integer
If Time$ = Label1.Caption Then
procID = Shell("C:\Users\PITU\Desktop\PISQUITOAVISO1.exe", vbMaximizedFocus)
End if
End Sub

si en lugar de poner label1.caption pongo directamente la hora asi "23:00:00" si que funciona y probe a poner directamente el nombre de la variable que asigna el caption al label pero tampoco me funciona espero que alguien me ayude
gracias a todos

ya encontre la solucion, de todos modos gracias  a todos aqui dejo como lo solucione por si le sirve a alguien:

Private Sub Timer1_Timer()
Dim procID As Integer

If Hour(Time$) = Val(Text1.Text) And Minute(Time$) = Val(Text2.Text) And Second(Time$) = 0 Then
     
       procID = Shell("C:\Users\PITU\Desktop\PISQUITOAVISO1.exe", vbMaximizedFocus)
       
    End If

End Sub



« Última modificación: 5 Octubre 2015, 21:36 pm por pedraosone » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines