
30/06/2007, 22:39
|
 | | | 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!!!! |