Uso del Timer con distintos mensajes ¿? - VB-MUNDO

dares_ · #1 (**permalink**) 29-11-2005, 00:49:14

Hola!
Como puedo hacer para usando un control timer, ir pasando distintos mensajes en una caja de texto y q duren cada uno el tiempo determinado en el timer?
ej:
mensaje 1 "este es el 1er mensaje"
dura 5 segundos y cambia
mensaje 2 "este es el 2do mensaje"
y asi sucesivamente hasta q llega el ultimo mensaje y termina
Gracias
Diego Ares :smt004

Alella · #2 (**permalink**) 29-11-2005, 07:45:15

Hola, que tal.

Mira este truco y adáptalo a tus necesidades.

http://www.vb-mundo.com/verTruco.asp?truco=265

Espero que te sirva.

dares_ · #3 (**permalink**) 29-11-2005, 12:14:58

hola!
lo probe pero no funciona...alguien q pueda checkear la rutina?
es decir me aparece el messege box pero no desaparece automaticamente...no tengo q usar un timer?
alguien checkea los trucos antes de ponerlos en la sección?
diego

juanchojif · #4 (**permalink**) 29-11-2005, 12:30:32

Código:

Dim num As Integer

Private Sub Timer1_Timer()
    Select Case num
        Case 0
            Text1.Text = "este es el 1er mensaje"
            Timer1.Interval = 5000
            num = num + 1
        Case 1
            Text1.Text = "este es el 2do mensaje"
            Timer1.Interval = 5000
            num = num + 1
            
    End Select

End Sub

De esta forma puedes hacerlo, si quieres probarlo crea un formulario y añadele un textbox y un timer.
Saludos.

dares_ · #5 (**permalink**) 29-11-2005, 13:05:03

era justo lo q queria hacer y de manera sencilla...gracias
podria hacer q funcione una barra de porcentaje tipo las de setup q avance a medida q pasen los mensajes? una progresbar digo...
diego

juanchojif · #6 (**permalink**) 29-11-2005, 13:27:04

Código:

Dim num As Integer 

Private Sub Timer1_Timer() 
    progressbar1.value=num
    Select Case num 
        Case 0 
            Text1.Text = "este es el 1er mensaje" 
            Timer1.Interval = 5000 
            num = num + 1 
        Case 1 
            Text1.Text = "este es el 2do mensaje" 
            Timer1.Interval = 5000 
            num = num + 1 
            
    End Select 

End Sub

Recuerda inicializar con el minimo y el maximo la barra cuando cargues el formulario y ya lo tienes.

dares_ · #7 (**permalink**) 29-11-2005, 13:38:59

q referencia tengo q agregar para q me tome la progress bar ?
y me podes explicar un poco mas como es q la tengo q inicializar y finalizar?
gracias nuevamente
diego

Alella · #8 (**permalink**) 29-11-2005, 14:13:41

Hola, que tal.

Efectivamente el truco no funciona. Peri si cambias en el módulo lo siguiente ya funciona perfectamente.

Código:

Public Sub TimerProc(ByVal hWnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
KillTimer hWnd, idEvent
Dim hMessageBox&
hMessageBox = FindWindow("#32770", "AutoCerrado")
If hMessageBox Then
Call SetForegroundWindow(hMessageBox)
SendKeys "{enter}"
End If
Call LockWindowUpdate(API_FALSE)
End Sub

La diferencia radica en esta línea solamente.

hMessageBox = FindWindow("#32770", "AutoCerrado")

Espero que te sirva.

Pirry · #9 (**permalink**) 29-11-2005, 22:45:13

Hola:

Ejemplo sencillo y funcional

Dim mensaje$(1 To 5)
Dim n As Integer

Private Sub Form_Load()
mensaje$(1) = "mensaje 1"
mensaje$(2) = "hola a todos"
mensaje$(3) = "que viva la paz"
mensaje$(4) = "abajo los malinchistas"
mensaje$(5) = "gracias a todos"
n = UBound(mensaje$)
End Sub

Private Sub Timer1_Timer()
Static cuenta
cuenta = cuenta + 1
If cuenta >= n + 1 Then
timer1.interval=0 'para el reloj
Exit Sub
End If
p100! = (cuenta * 100) / n
ProgressBar1 = p100!
Text1.Text = mensaje$(cuenta)

End Sub

dares_ · #10 (**permalink**) 29-11-2005, 23:04:00

muy lindo pero no funciona falta definir algunas cosas como p100 y no entendi muy bien la ultima parte...me lo podes aclarar un poco mas?