Programación General > Visual Basic 6.0 e inferiores

 No Me Funciona Bien.... Este Codigo

(1/1)

_EL_DJ_LU:
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 "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)Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const SWP_NOACTIVATE = &H10Const 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
:comp:

Navegación

[0] Índice de Mensajes