• Jueves 14 de Noviembre de 2024, 23:04
« anterior próximo »
Páginas: [1]

Autor Tema:  No Me Funciona Bien.... Este Codigo  (Leído 1188 veces)

_EL_DJ_LU

  • Miembro activo
  • **
  • Mensajes: 78
    • Ver Perfil
No Me Funciona Bien.... Este Codigo
« en: Miércoles 14 de Julio de 2004, 18:50 »
0
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

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: No Me Funciona Bien.... Este Codigo
« Respuesta #1 en: Jueves 19 de Agosto de 2004, 19:56 »
0
PUEDES COLOCAR UN TIMER CON EL INTERVALO QUE QUIERAS Y PONER:
Me.Zorder
SIEMPRE TE QUEDARA AL FRENTE DE TODO
 :comp:
El pasado son solo recuerdos, el futuro son solo sueños
Páginas: [1]
« anterior próximo »