SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: fabrizzio en Lunes 9 de Agosto de 2004, 18:48

Título: Always On Top
Publicado por: fabrizzio en Lunes 9 de Agosto de 2004, 18:48
que tal

que linea de codigo debo agregar para que un form siempre se vea (siempre visible), profis ayuda

atte
Fabrizzio :comp:
Título: Re: Always On Top
Publicado por: cpmario en Lunes 9 de Agosto de 2004, 22:02
On Top

Coloca esto en un módulo BAS

Código: Text
  1.  
  2. '******************************************************
  3. 'AppOnTop
  4. '******************************************************
  5. Declare Function SetWindowPos Lib "user32" (ByVal _
  6.        hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X _
  7.        As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy _
  8.        As Long, ByVal wFlags As Long) As Long
  9.  
  10. Global Const SWP_NOMOVE = 2
  11. Global Const SWP_NOSIZE = 1
  12. Global Const Flags = SWP_NOMOVE Or SWP_NOSIZE
  13. Global Const HWND_TOPMOST = -1
  14. Global Const HWND_NOTOPMOST = -2
  15.  
  16.  

Coloca este código para que tu form (frmMyForm)  esté siempre visible.

Código: Text
  1.  
  2.     SetWindowPos frmMyForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
  3.  
  4.  

Coloca este código para que tu form (frmMyForm)  vuelva a la normalidad.
Código: Text
  1.  
  2.  
  3.     SetWindowPos frmMyForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS
  4.  
  5.  
Título: Re: Always On Top
Publicado por: fabrizzio en Lunes 9 de Agosto de 2004, 22:40
gracias amigo voy a tratar

 :D