Ver Mensaje Individual
  #4 (permalink)  
Antiguo 22/10/2008, 01:41
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: Ayuda con Unload

Cita:
Iniciado por punketo17 Ver Mensaje
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