Autor Tema: Problema Con Formularios (Leído 2548 veces)

ROBER.29 · « **en:** Jueves 3 de Junio de 2004, 16:41 »

Hola,

Mi problema es el siguiente, tengo una aplicación que se ejecuta minimizada en la barra de tarea de windows, simplemente una vez arrancada aparece un icono al lado del reloj de windows y el problema es que cuando se produce un error abro un formulario con el mensaje de error pero si por ejemplo el usuario esta navegando por internet, o está con el bloc de notas o cualquier otra aplicación, el formulario se keda abierto detrás de dicha aplicación y me gustaria que cuando se abriera el formulario que muestra el mensaje de error se mostrara por encima de todas las aplicaciones que el usuario tiene abiertas para que se enterara de que se aproducido un error y que la aplicación se a parado de ejecutar.

Por que por ejemplo si esta con el navegador abierto y está navegando por internet y se produce un error el usuario ahora mismo no se entera de que mi aplicación ha dado un error hasta que cierre el navegador o lo minimice y vea el formulario con el error.

Espero que me hayais entendido.

Un saludo.

Brroz · « **Respuesta #1 en:** Jueves 3 de Junio de 2004, 18:15 »

Hola Rober.29.

Una vez que abres el form con el error (en el evento Load del mismo, por ejemplo) realiza una llamada a la función del api SetWindowPos algo así:

En el form que muestras con el error...

Código: Text

 
.
.
.
 
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
 
Private Declare Function SetWindowPos Lib &#34;user32&#34; (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
.
.
.
 
Private Sub Form_Load()
.
.
.
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, SWP_FLAGS
.
.
.
End Sub
 
 

Con esto debería ser suficiente.

Chao.

ROBER.29

Muchas gracias.

Al final ayer consegui hacerlo de la siguiente forma:

Este código en un módulo.

Código: Text

 
'Posicionar formulario (Declaraciones Públicas de API)
Declare Function SetWindowPos Lib &#34;user32&#34; (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public SWP_NOACTIVATE As Boolean
Public SWP_SHOWWINDOW As Boolean
 
 
'Proecedimientos públicos
Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)
    Dim lflag As Integer
    'Mantener el formulario siempre visible
    If SetOnTop Then
        lflag = HWND_TOPMOST
    Else
        lflag = HWND_NOTOPMOST
    End If
    SetWindowPos myfrm.hwnd, lflag, _
    myfrm.Left / Screen.TwipsPerPixelX, _
    myfrm.Top / Screen.TwipsPerPixelY, _
    myfrm.Width / Screen.TwipsPerPixelX, _
    myfrm.Height / Screen.TwipsPerPixelY, _
    SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
 
 

Y el evento Load del formulario:

Código: Text

 
Private Sub Form_Load()
    AlwaysOnTop Me, True
End Sub

Un saludo.

SoloCodigo

Autor Tema: Problema Con Formularios (Leído 2548 veces)

ROBER.29

Problema Con Formularios

Brroz

Re: Problema Con Formularios

ROBER.29

Re: Problema Con Formularios