Public X As Integer
Private Sub Form_Load()
Timer1.Interval = 150
End Sub
Private Sub Timer1_Timer()
X = X + 1
If X = 3 Then
INGRESAR.Show
Unload Me
End If
End Sub
alguien me podria explicar para que sirve esto en el codigo
X = X + 1
If X = 3 Then
solo quiero saber para que sirve .el codigo si funciona pero quiero saber que significa esa parte
Tienes un control Timer, el cual ejecutara el evento timer (osea, llamará a la funcion Timer1_Timer()) cada 150 milisegundos.
Lo que hace la funcion es incrementar una variable (X) en 1 cada vez que se ejecuta la funcion. Luego, si la variable (X) es igual a 3, muestra un formulario (INGRESAR) y descarga (cierra) el formulario donde esta ejecutandose el codigo.
En resumen, el formulario INGRESAR se mostrara luego de 450 milisegundos de activado el Timer1.
Saludos!
muchas gracias como quien dice 150 se multiplica x3 xD
Algo asi. En realidad, la sub Timer1_Timer() se ejecuta 3 veces.