Visual Basic - Porfa...

Life is soft - evento anual de software empresarial
 
Vista:

Porfa...

Publicado por Henry Miguel (2 intervenciones) el 19/02/2005 18:17:59
Por favor esoy haciendo un pequeño programa, (soy aprendiz) y quisiera saber si este programa (que consta de un solo formulario), puede permanecer sobre las demas aplicaciones, que funcione correctamente, que las aplicaciones normales de windows tambien funcionen correctamente pero, que xpre este visible y funcional.
prfavor lo necesito urgente agradecere cualquier ayuda que puedan darme. Saludos bye.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Porfa...

Publicado por lucas (10 intervenciones) el 19/02/2005 21:56:42
en un modulo pone:

Public 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
Public Const HWND_TOPMOST = -1 'situa el form por encima
Public Const HWND_NOTOPMOST = -2 'vuelve a su estado normal
Public Const SWP_NOSIZE = &H1 'para no cambiar el tamaño
Public Const SWP_NOMOVE = &H2 'para no moverlo
Public Const SWP_NOACTIVATE = &H10 'para no activarlo
Public Const SWP_SHOWWINDOW = &H40 'para que muestre el form

para situar encima de las demas ventanas:

Dim wFlags As Long
wFlags = SWP_NOMOVE Or SWP_NOSIZE
Call SetWindowPos(f.hwnd, HWND_TOPMOST, 0, 0, 0, 0, wFlags)

y para volver al estado normal:

Dim wFlags As Long
'para que no cambie el tamaño ni la posicion...
wFlags = SWP_NOMOVE Or SWP_NOSIZE
Call SetWindowPos(f.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar