Resumen Ventana siempre visible

Hola:

Para hacer ventanas siempre visible:

Se usará SetWindowPos

'Declaración para usar ventanas siempre visibles

'Versión para 16 bits
Declare Function SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

'Versión para 32 bits
Declare Function SetWindowPos Lib "User32" Alias "SetWindowPos" (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


' SetWindowPos Flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
'Public Const SWP_NOZORDER = &H4
'Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOACTIVATE = &H10
'Public Const SWP_DRAWFRAME = &H20
Public Const SWP_SHOWWINDOW = &H40
'Public Const SWP_HIDEWINDOW = &H80
'Public Const SWP_NOCOPYBITS = &H100
'Public Const SWP_NOREPOSITION = &H200
Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Public Const HWND_NOTOPMOST = -2



'Código para poner en Form_Load

'De esta forma no es necesario usar una variable para asignar el valor devuelto:
If SetWindowPos(hWnd, -1, 0, 0, 0, 0, SWP_FLAGS) Then
End if


---------------------------------------------------
Después de dejar una ventana siempre visible puede que quieras dejarla como estaba. Para ello debes de usar este código:

SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE



    Saludos
    Sergio
scardenas@bigfoot.com

-------------------------------------
"I'm not afraid of your love,
why can't you see I've had my share of that"
(Love thing - Spice Girls)
+-+-+-+-+-+-+-+-+-+-+-+
[PGP public key in]
http://spiceg.home.ml.org/pgp.htm

-----Mensaje original-----
De:    jimerino@arrakis.es [SMTP:jimerino@arrakis.es]
Enviado el:    miércoles 12 de noviembre de 1997 11:38
Para:    vb-esp@ccc.uba.ar
Asunto:    (VB-ESP) Ventanita siempre visible

    Hola a todos:

    ¿Alguien sabe cómo hacer que una ventanita esté siempre visible mientras
se trabaja con otra ventana?

    He probado con la propiedad ZOrder del formulario, pero nada, siempre me
activa la ventana y el resto de ventanas, están desactivadas.

    Lo que quiero hacer el algo parecido al asistente del Office 97. Una
ventana visible siempre aunque se esté trabajando con otra.

    Por cierto, he perdido la información del disco duro en un accidente que
todavía no me explico cómo ha podido ser O:-) (y luego dicen que las
particiones NTFS son seguras...). Tenía guardados todos los mensajes de
esta lista que me parecían interesantes, pero ya no están. (Los suspiros
son aire y van al aire, las lágrimas son agua y van al mar, y los datos del
disco duro cuando se pierden ¿sabes tú donde van?). Bueno, la cosa es que
hay listas que tienen un historial de mensajes y se guardan en un ordenador
pudiendo ser solicitados. ¿Hay algo de esto en esta lista? ¿Cómo se usa?

    A cuento de esto, ¿cuál es el host de esta lista?. Así podré con el
comando HELP pedirle ayuda y tener de nuevo la lista de comando.

    Gracias a todos, y un saludo.

    José Ignacio Merino Martín
    jimerino@arrakis.es



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com