Cómo controlar el orden de los formularios en VB
No es necesario atravesar
El método simple es el siguiente: agregar un reloj al formulario activará el registro de identificador del formulario.
Haz clic en el botón para traerlo al frente.
Privado
Constante
HWND_Top
=
-1
Privado
Constante
HWND_Bottom
=
1
Privado
Constante
HWND_NOTOPMOST
=
-2
Privado
Constante
SWP Nosize
=
& ampH1
Privado
Constante
SWP Sin corte
=
& ampdeuterio
privado
constante
swp nozord
p>=
& ampH4
Privado
Constante
SWP_no activado
=
& ampH10
Privado
Constante
SWP Showcase
=
& ampH40
Privado
Constante
SWP_HideWindow
=
& ampH80
Privado
Declaración
Función
GetForegroundWindow
Movimiento de Liberación
"Usuario 32 "
()
Me gusta
Declaración
Privada
Larga
Función
SetWindowPos
Movimiento de Liberación
"Usuario 32"
(ByVal
hWnd
Como
largo,
ByVal
hWndInsertAfter
Mientras
largo,
ByVal
X
Siempre que
,
PorVal
Y
Como
Largo,
PorVal
cx
Tan
Long,
ByVal
Año calendario
Siempre que
,
ByVal
wFlags
Me gusta
dragón)
Me gusta
larga
tenue
ventana activa
como
larga
privada
submarino
timer1_timer ()
Aburrido
h
Me gusta
largo
h
>
GetForegroundWindow()
Si
h
& lt& gt
Me.hwnd
Luego
Ventana activa
=
h
Fin
Submarino
p>Privado
Submarino
Comando1_Click()
EstablecerPosVentana
Ventana activa,
HWND_TOPMOST,
0,
0,
0,
0,
Escaparate de SWP
p>
O
SWP Nosize
O
SWP Nomoway
Fin
Submarino