¿Cómo mostrar el formulario vb en la parte superior?

En algunos casos, necesitamos que un formulario esté siempre encima de todos los formularios, podemos usar Form1.show 1 para lograr esto, pero esto causará un problema, es decir, pausará todo el programa hasta que descargue Form1 El programa luego continúa corriendo.

Entonces, ¿cómo mantengo mi ventana en la parte superior? Al mismo tiempo, ¿no afecta el funcionamiento general del programa?

Esto se puede hacer fácilmente usando la función API SetWindowPos.

SetWindowPos se utiliza para completar la función de configurar la posición y el estado de la ventana (pos=posición). El código fuente es el siguiente:

Opción Explícita

Función de Declaración Privada 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 Const HWND_TOPMOSTamp;= -1

' Coloque la ventana en la parte superior de la lista y en la parte superior de cualquier Frente de ventana

Private Const SWP_NOSIZEamp; = amp;H1

' Mantener el tamaño de la ventana

Private Const SWP_NOMOVEamp = amp;H2

'Mantener posición de la ventana

Private Sub Form_Load()

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 0, SWP_NOMOVE o SWP_NOSIZE

' Establecer la ventana para que esté delante de todas las ventanas

Finalizar suboperación