Visual Basic - COMO MUESTRO MENSAJE??

Life is soft - evento anual de software empresarial
 
Vista:

COMO MUESTRO MENSAJE??

Publicado por Héctor (37 intervenciones) el 07/03/2002 10:00:17
Hola y gracias por la ayuda.
Tengo que sacar un informe que tarda 10 minutos, en ese lapso quiero mostrar un mensaje en la parte superior derecha, que diga PROCESANDO......, (como un formulario pequeño). Cuando termine el proceso que desaparezca. Yo intenté con el msgbox pero le tengo que poner aceptar o cancelar
muchas gracias
Héctor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMO MUESTRO MENSAJE??

Publicado por Antonio (34 intervenciones) el 08/03/2002 15:05:24
PODRIAS HACER ESTO CON UN MSGBOX DECLARAS LAS APIS SGITES EN MODULO
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&
LUEGO ESTA FUNCION PARA CERRAR EL MSGBOX
Public Sub TimerProc(ByVal hWnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
KillTimer hWnd, idEvent
Dim hMessageBox&

hMessageBox = FindWindow("#32770", "AUTO CERRADO Message Box")
If hMessageBox Then
Call SetForegroundWindow(hMessageBox)
SendKeys "{enter}"
End If
Call LockWindowUpdate(API_FALSE)
End Sub
Y POR ULITMO EN UN BOTON PONES ESTO
SetTimer hWnd, NV_CLOSEMSGBOX, 4000&, AddressOf TimerProc
Call MessageBox(hWnd, "ESTE MENSAJE CERRRARA DESPUES DE 4 SEGUNDOS", _
"AUTO CERRADO Message Box", MB_ICONQUESTION Or MB_TASKMODAL)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

GRACIAS POR TU AYUDA

Publicado por Héctor (37 intervenciones) el 09/03/2002 09:40:35
Muchas gracias
Saludos
Héctor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar