Cómo hacer una estancia de formulario sobre en Visual Basic 6

Visual Basic 6 no tiene una función que mantiene automáticamente un formulario como la ventana superior de la pantalla, pero se puede utilizar un módulo para declarar la función SetWindowPos API y hacer referencia a ella en su proyecto. Mientras se ejecuta el programa, la forma se mantiene por encima de todo: otras formas que son parte de un mismo proyecto y cualesquiera otros programas que se ejecutan al mismo tiempo. A pesar de que la forma permanece encima de todo lo demás, el usuario puede cambiar su tamaño o moverlo por la pantalla.

Instrucciones

1 Abra Visual Basic 6. Haga clic en "EXE estándar" en la ventana "Nuevo proyecto" y haga clic en "Abrir" para crear un proyecto con un formulario.

2 Haga clic en "Proyecto" en el menú y haga clic en "Agregar módulo". Haga clic en el botón "Abrir" en el cuadro de diálogo "Agregar módulo" que se abre para añadir un módulo al proyecto y abrir su ventana de código.

3 Escriba lo siguiente:

Option Explicit

Declarar Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal As Long cx, cy ByVal As Long, ByVal wFlags As Long) As Long

La instrucción Declare hace una referencia a la biblioteca user32 externa, que contiene la función SetWindowPos.

4 Abra la ventana de código Form_Load () de Form1 y escriba lo siguiente:

Dim windowPosition As Long

windowPosition = SetWindowPos (Form1.hWnd, -1, 0, 0, 0, 0, 1)

Este código llama a la función declarada en el módulo y establece Form1 para aparecer siempre como el objeto superior cuando el proyecto se ejecuta.

5 Construir el resto del proyecto. Pulse la tecla "F5" para probarlo y ver que la forma siempre permanece en la parte superior.