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

_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

Option Explicit
 
Declare Sub SetWindowPos Lib &#34;user32.dll&#34; (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)
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
 
Public Sub SiempreVisible(Formulario As Form, Estado As Boolean)
 
    If Estado Then
       SetWindowPos Formulario.hWnd, HWND_TOPMOST, Formulario.Left / 15, _
                    Formulario.Top / 15, Formulario.Width / 15, _
                    Formulario.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
    Else
       SetWindowPos Formulario.hWnd, HWND_NOTOPMOST, Formulario.Left / 15, _
                    Formulario.Top / 15, Formulario.Width / 15, _
                    Formulario.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
    End If '
End Sub
 
 
 
' SiempreVisible me, true  para hacer siempre visible
' SiempreVisible me, false  para que no sea siempre visible
 
 

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

PUEDES COLOCAR UN TIMER CON EL INTERVALO QUE QUIERAS Y PONER:
Me.Zorder
SIEMPRE TE QUEDARA AL FRENTE DE TODO

SoloCodigo

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

_EL_DJ_LU

No Me Funciona Bien.... Este Codigo

RadicalEd

Re: No Me Funciona Bien.... Este Codigo