Programación General > Visual Basic 6.0 e inferiores

 Ventana siempre activa

(1/1)

exodo999:
Hola a todos!.

Tengo un pequeño problema.

estoy empezando un proyecto y como requisito del sistema es que se bloquee la pantalla por medio de un formulario y aunque se abra una ventana el formulario vuelva a aparecer encima de esa aplicacion. he encontrado una api llamada SetWindowPos y he logrado que se posicione por encima de todos el problema es que cuando se le da click a otra ventana mi aplicacion no queda por encima he intentado llamar a la funcion SetWindowPos de nuevio con un timer pero no me resulta!

que estoy haciendo mal??

SysEdw:
hola prueba con este codigo


--- Código: Text ---Option Explicit    Const SWP_NOMOVE = 2    Const SWP_NOSIZE = 1    Const HWND_TOPMOST = -1    Const HWND_NOTOPMOST = -2 '    Private Declare Function SetWindowPos _        Lib "user32" ( _            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) As Long    Private Sub Command1_Click()'ventana activa    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _                                SWP_NOMOVE Or SWP_NOSIZE    End Sub    Private Sub Command2_Click()'    desactivar ventana    SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE    End Sub 

Navegación

[0] Índice de Mensajes