Formulario flotante

[ci2000]

Hola, quiero hacer un formulario que siempre esté visible, es decir que al recibir el foco el otro formulario siempre esté visible el anterior.

Gracias por las respuestas.
Saludos

[[EX3]]

Mediante el API de Windows se puede modificar la posicion del formulario para que sea constante sobre el resto de ventanas. Añade un Modulo BAS a tu proyecto y añadele el siguiente codigo:

Código:

Option Explicit

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private 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

Public Sub OnTop(F As Form)
'Coloca la ventana sobre todas las demas:
Call SetWindowPos(F.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE)
End Sub

Public Sub OffTop(F As Form)
'Devuelve la posicion anterior a la ventana:
Call SetWindowPos(F.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE)
End Sub 

Luego desde el evento Load del formulario que desees haces la siguiente llamada:

Código:

Private Sub Form_Load()
Call OnTop(Me)
End Sub 

Salu2...

[ci2000]

Gracias EX3 por la respuesta.

Saludos

[daosorio]

Mi pregunta es si con esta opción podría quedar encima, hasta de juegos como los de carros que ocupan toda la pantalla o de Mario Bross.. que cargan como en MS Dos.

Gracias.

[[EX3]]

La respuesta es no. Los juegos que corren sobre Windows en modo pantalla completa se hacen con el control absoluto de la pantalla dejando el escritorio de Windows detras. Ahi solo lograrias que la ventana del juego perdiera el foco y se minimizara para mostrar el escritorio de Windows. Los programas de MS-DOS en modo pantalla completa hacen justo lo mismo dado que no tiene nada que ver con el escritorio de Windows.

Salu2...

[daosorio]

EX3, gracias por aclararmelo.

Saludos cordiales.

[yenay]

Hace tiempo que leí este post pero me ha salido un error en un ordenador donde he usado este código. Y creo que es por usar las Api.

¿alguien sabe que puede haber pasado?

[seba123neo]

Hola yenay,es imposible que no te ande por la api,aparte usa solo una,y esta en el archivo user32.dll,si no tenes ese archivo no te anda nada del windows,debe ser otra cosa,que error te sale y que linea te marca??

saludos.

[yenay]

Voy a hacer que me de el error y imprimo la imagen

[yenay]

Vale, el error que me sale es el siguiente:



que puede ser?

[yenay]

El error lo da al ejecutar el .exe ya compilado y todo. Y el caso es que en algunos ordenadores no va y en otros sí. Indistintamente de que el VB esté o no instalado en el ordenador