
22/10/2008, 01:41
|
Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 2 meses Puntos: 37 | |
Respuesta: Ayuda con Unload Cita:
Iniciado por punketo17 Hola tengo una duda, soy nuevo en esto de la programacion, he empezado a usar visual basic 6.0 y tengo una ventana de presentacion que se me cierra despues 4 segundos, el codigo es el siguiente
Private Sub Timer1_Timer()
Timer1.Enabled = False
Unload Form1
frm_login.Show
End Sub
ahora he empezado a trabajar en vb2008 y no existe la propiedad Unload, como puedo hacer para que haga algo similar en vb2008? Hola, prueba con algo como esto:
Código:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer
If i = 4 Then
Timer1.Enabled = False
Me.Hide()
frm_login.Show()
Else
i += 1
End If
End Sub
|