Tema: Saludos
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 30/06/2007, 22:39
Avatar de piojoman
piojoman
 
Fecha de Ingreso: enero-2005
Ubicación: Argentina
Mensajes: 224
Antigüedad: 20 años, 3 meses
Puntos: 3
Re: Saludos

Hola Juan Jose, dejame darte una alternativa al codigo de Antonio y agregarle una linea mas a su codigo.

Debajo de Form2.Show agregale Timer1.Interval = 1000.
De esta formas "normalizas" al control Timer a que funcione a un seg.

Si queres una alternativa más para pensar escribi esta de abajo, aunque aclaro que son iguales en funcionalidades.

'-------------------------
Dim Cont As Byte 'Declaramos a la variable gral.
Private Sub Form_Load()
Timer1.Interval=1000
Cont = 1 'Le damos un valor inicial
End Sub
Private Sub Timer1_Timer()
If Cont = 5 Then
'Form2.Show 'Hace que se vea el formulario 2
Unload Form1 'Hace que se cierre el form 1
End If
Cont = Cont + 1 ' Actualiza la variable
End Sub
'-------

La diferencia radica en que un codigo se basa en modificar propiedades del control y la otra en uso de variables, algo bien barato en programacion.!!!

Saludos y suerte con VB!!!!