Descargar Msgbox en ejecución

[jorevale]

Hola

Saben si existe en vb6 la posibilidad de descargar (cerrar) un Msgbox en tiempo de ejecución sin que el usuario interactúe con él?

Me explico. Me interesa mostrarle al usuario un msgbox por un tiempo determinado de segundos y luego que se cierre automáticamente. En FoxPro, por ejemplo, existe la instrucción Wait, que detiene la ejecución del programa. En vb lo he probado con sleep, para aguantar el mensaje en pantalla, pero me convendría cerrar el msgbox automáticamente.

Salu2

[marcocho2005]

mmmmmmmmmmmm
como sugerencia, en lugar de utilizar el msgbox, poque no utilizas un frame que simule un mensaje y utilizas una rutina para que el programa espere x segundos, luego de que la rutina termine su ejecución pues pones visible=false al frame y sigues con el programa.

aca te mando el código que utilizo para esperar x segundos, espero que te sea útil
'Procedimiento para esperar X segundos

'Si se quiere usar de forma GLOBAL, insertarlo en un Módulo BAS
'y declararlo como público

Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub

[5v5]

ok..te voy a pasar el codigo, lo encontre en la web, no me acuerdo de donde, pero no lo he analizado.......espero que tu lo analices y despues nos comentes su logica....ok

en el modulo introduce esto

Public Const NV_CLOSEMSGBOX As Long = &H5000&
Public Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc&)
Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function LockWindowUpdate& Lib "user32" (ByVal hwndLock&)
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hWnd&)
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" (ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Public Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&)
Public Const API_FALSE As Long = 0&
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

y en el form

SetTimer hWnd, NV_CLOSEMSGBOX, 4000&, AddressOf TimerProc
Call MessageBox(hWnd, "Este mensaje desaparecerá en 4 segundos","AutoCerrado", MB_ICONQUESTION Or MB_TASKMODAL)

espero te sirva....

[jorevale]

La variante que propone marcocho2005 parece más sencilla y la emplearé de inmediato.

La variante de 5v5 la pondré en prueba también, pero un poco más adelante, porque ahora ando liado con el dichoso sistemita que me piden para ayer . Ya te comentaré sin falta

Gracias a ambos

[haggenx]

Iniciado por 5v5

ok..te voy a pasar el codigo, lo encontre en la web, no me acuerdo de donde, pero no lo he analizado.......espero que tu lo analices y despues nos comentes su logica....ok

en el modulo introduce esto

Public Const NV_CLOSEMSGBOX As Long = &H5000&
Public Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc&)
Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function LockWindowUpdate& Lib "user32" (ByVal hwndLock&)
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hWnd&)
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" (ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Public Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&)
Public Const API_FALSE As Long = 0&
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

y en el form

SetTimer hWnd, NV_CLOSEMSGBOX, 4000&, AddressOf TimerProc
Call MessageBox(hWnd, "Este mensaje desaparecerá en 4 segundos","AutoCerrado", MB_ICONQUESTION Or MB_TASKMODAL)

espero te sirva....

fantastico, funciona muy bien