De hecho, los tres botones en la parte superior derecha del Formulario corresponden a varias opciones en el ControlBox (ControlBox) en la parte superior izquierda del Formulario (minimizar/maximizar/cerrar), entre las cuales maximizar (MaxButton) y minimizar ( Minbutton) Se pueden configurar directamente en las propiedades del formulario, ¡pero VB no proporciona la función de configurar el botón "X"! Para lograr esta función, debe utilizar API:
Dado que el botón "X" corresponde a la opción de cerrar de ControlBox, ¡solo necesitamos eliminar la opción de cerrar del Menú del sistema (es decir, ControlBox)! Primero puede echar un vistazo al menú del sistema en la esquina superior izquierda del navegador que está utilizando. ¿Qué número es la opción [Cerrar], no la sexta? ¡Es el séptimo y la línea divisoria cuenta como uno! ¡El divisor es el sexto!
Cuando eliminamos la opción de cerrar, quedará una línea de separación extraña, por lo que es mejor eliminar también la línea de separación. El índice del menú comienza desde 0 y la línea divisoria es la sexta, por lo que Índice = 5.
Corrección: Para que el código del programa funcione correctamente en Windows NT, cambie el tipo Entero a Largo. 89.05.04
'Captura el hwnd del menú del sistema
PRivateDeclareFunctionGetSystemMenuLib"user32"Alias"GetSystemMenu"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
'Eliminar API del menú del sistema
PrivateDeclareFunctionRemoveMenuLib"user32"Alias"RemoveMenu"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
'El primer parámetro es el hwnd del menú del sistema.
'El segundo parámetro es el Índice-> de la opción a eliminar