SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: _EL_DJ_LU en Miércoles 14 de Julio de 2004, 18:50

Título: No Me Funciona Bien.... Este Codigo
Publicado por: _EL_DJ_LU en Miércoles 14 de Julio de 2004, 18:50
Hola a todos..
En mi programa inclui este codigo...que sirve para hacer siempre visible una ventana...
Código: Text
  1. Option Explicit
  2.  
  3. Declare Sub SetWindowPos Lib "user32.dll" (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)
  4. Const HWND_TOPMOST = -1
  5. Const HWND_NOTOPMOST = -2
  6. Const SWP_NOACTIVATE = &H10
  7. Const SWP_SHOWWINDOW = &H40
  8.  
  9. Public Sub SiempreVisible(Formulario As Form, Estado As Boolean)
  10.  
  11.     If Estado Then
  12.        SetWindowPos Formulario.hWnd, HWND_TOPMOST, Formulario.Left / 15, _
  13.                     Formulario.Top / 15, Formulario.Width / 15, _
  14.                     Formulario.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  15.     Else
  16.        SetWindowPos Formulario.hWnd, HWND_NOTOPMOST, Formulario.Left / 15, _
  17.                     Formulario.Top / 15, Formulario.Width / 15, _
  18.                     Formulario.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  19.     End If '
  20. End Sub
  21.  
  22.  
  23.  
  24. ' SiempreVisible me, true  para hacer siempre visible
  25. ' SiempreVisible me, false  para que no sea siempre visible
  26.  
  27.  

Bueno pues.. cuando inicio el programa si funciona bien.. pero pasa un momento y ya no funciona como debe.... no es siempre visible... funciona como cualquier otra ventana.. se supone que debe de ser SIEMPRE VISIBLE.. nose que esta mal...

AYUDENME PLZ
Título: Re: No Me Funciona Bien.... Este Codigo
Publicado por: RadicalEd en Jueves 19 de Agosto de 2004, 19:56
PUEDES COLOCAR UN TIMER CON EL INTERVALO QUE QUIERAS Y PONER:
Me.Zorder
SIEMPRE TE QUEDARA AL FRENTE DE TODO
 :comp: