SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: ldvgsmca en Jueves 15 de Febrero de 2007, 17:22

Título: Colocar Formularios Por Encima De Cualq Programa
Publicado por: ldvgsmca en Jueves 15 de Febrero de 2007, 17:22
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
Título: Re: Colocar Formularios Por Encima De Cualq Programa
Publicado por: aicrag en Viernes 16 de Febrero de 2007, 00:04
claro que existe, y tenés razón tiene que ver con API:

Código: Text
  1.  
  2. 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
  3.  
  4. Public Const SWP_NOSIZE = &H1
  5. Public Const SWP_NOMOVE = &H2
  6. Public Const SWP_NOACTIVATE = &H10
  7. Public Const SWP_SHOWWINDOW = &H40
  8. Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
  9.  
  10.  

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
  1.  
  2. SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS
  3.  
  4.  

y con esto tenés tu formulario por encima de todos los demás....  B)
Título: Re: Colocar Formularios Por Encima De Cualq Programa
Publicado por: ldvgsmca en Viernes 16 de Febrero de 2007, 19:20
Cita de: "aicrag"
claro que existe, y tenés razón tiene que ver con API:

Código: Text
  1.  
  2. 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
  3.  
  4. Public Const SWP_NOSIZE = &H1
  5. Public Const SWP_NOMOVE = &H2
  6. Public Const SWP_NOACTIVATE = &H10
  7. Public Const SWP_SHOWWINDOW = &H40
  8. Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
  9.  
  10.  

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
  1.  
  2. SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS
  3.  
  4.  

y con esto tenés tu formulario por encima de todos los demás....  B)
gracias, realmente eso es lo que necesito y funciona muy bien




.......



mientras mas veo mas aprendo
Título: Re: Colocar Formularios Por Encima De Cualq Programa
Publicado por: _Edwin90 en Jueves 24 de Mayo de 2007, 02:15
:comp:  ke bien esta funcion la estuve buscando desde hace mucho gracias..
 B)