necesito ejecutar una

[[D4N93R]]

Por qué no creas un tread, lo lanzas apenas se abre la aplicación y en ese tread haces el sleep?

[raul338]

No tengo la menor idea que intentas hacer, pero a mi me funciona perfecto

con el goto erro, se cierra el form2 y se vuelve a abrir.

pero el timer hacia q se cierre y se abra todo el tiempo (porq daba error, n encontraba unas cosas.. osea el error es normal, pero NO TENDRIA PORQ SAR ERROR SI EL TIMER ESTUBIERA DESACTIVADO

Pero es normal cuando tienes errores de logica
Cuando se cierra y se habre el form... adiviina, el Timer vuelve a estar en True!!!

[Petro_Boca]

No tengo la menor idea que intentas hacer, pero a mi me funciona perfecto

con el goto erro, se cierra el form2 y se vuelve a abrir.

pero el timer hacia q se cierre y se abra todo el tiempo (porq daba error, n encontraba unas cosas.. osea el error es normal, pero NO TENDRIA PORQ SAR ERROR SI EL TIMER ESTUBIERA DESACTIVADO

Pero es normal cuando tienes errores de logica
Cuando se cierra y se habre el form... adiviina, el Timer vuelve a estar en True!!!

el programa hace esto:

se logea, y nada mas , pero con el timer..

pones los datos, abre el from2, a los 5 segundos se logea, si hay error se reinicia el form2..

pero ami me hace esto:

pones los datos, abre el from2, a los 5 segundos se logea, se vuelve a logear (proboca error), y se reinicia la apli.-, y entra en unna "Bola" de reinicios   

[BlackZeroX]

.
Sleep() no es faltible ya que lo que hace es Dormir X tiempo al hilo actual xS!¡.

aqui tienes una optativa!¡.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function WaitMessage Lib "user32" () As Long

Enum eTime
   Horas = 3600
   Minutos = 60
   Segundos = 1
End Enum

Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
   vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
   Do While vDateE > Time
       Call WaitMessage
       If Not UseAllProc Then DoEvents
   Loop
End Sub



Uso:

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
   Call MsgBox("segundos")
   Call Wait(5, Segundos, False)
   Call MsgBox("minutos")
   Call Wait(1, Minutos, True)
   Call MsgBox("Fin")
End Sub



Dulces Lunas!¡.

[BlackZeroX]

Si quieren borren esto

Porque demonios Citas el mensaje anterior Petro_Boca... Se entiende claro a quien respondes!¡.

Dulces Lunas!¡.