Programación General > VBA

 Colocar Formularios Por Encima De Cualq Programa

(1/1)

ldvgsmca:
Necesito saber si existe algun programa que este colocado por encima de mi formulario, si es asi necesito colocar mi formulario siempre por encima



se que esto tiene que ver con una funcion de la API

aicrag:
claro que existe, y tenés razón tiene que ver con API:


--- Código: Text --- Public Declare Function SetWindowPos Lib "User32" (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 SWP_NOSIZE = &H1Public Const SWP_NOMOVE = &H2Public Const SWP_NOACTIVATE = &H10Public Const SWP_SHOWWINDOW = &H40Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE  
ahora solo tenés que pasarle el Hwnd de la ventana que querés tener por encima de las demás..

p.ej.. en el Load de un formulario hacés esto:

--- Código: Text --- SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS  
y con esto tenés tu formulario por encima de todos los demás....  B)

ldvgsmca:

--- Cita de: "aicrag" --- claro que existe, y tenés razón tiene que ver con API:


--- Código: Text --- Public Declare Function SetWindowPos Lib "User32" (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 SWP_NOSIZE = &H1Public Const SWP_NOMOVE = &H2Public Const SWP_NOACTIVATE = &H10Public Const SWP_SHOWWINDOW = &H40Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE  
ahora solo tenés que pasarle el Hwnd de la ventana que querés tener por encima de las demás..

p.ej.. en el Load de un formulario hacés esto:

--- Código: Text --- SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS  
y con esto tenés tu formulario por encima de todos los demás....  B)
--- Fin de la cita ---
gracias, realmente eso es lo que necesito y funciona muy bien




.......



mientras mas veo mas aprendo

_Edwin90:
:comp:  ke bien esta funcion la estuve buscando desde hace mucho gracias..
 B)

Navegación

[0] Índice de Mensajes