Cerrar ventana...
¿Conoces la forma de poder desactivar u ocultar el botón cerrar de un form mediante código?
Terramar
Terramar
Respuesta de fvomaster
1
Este código desactiva las funciones de la ventana para cerrarla, como son la tecla aspa de la barra de titulo [X] y la opción Cerrar del menu desplegable de la barra de titulo.
--[Form1. Frm]--------------------------------------------------
Option Explicit
Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400
Private Sub Form_Load()
Dim A As Long
A = GetSystemMenu(Me.hwnd, 0)
Call RemoveMenu(A, 6, MF_BYPOSITION)
End Sub
Un abrazo desde Chile.
Master
--[Form1. Frm]--------------------------------------------------
Option Explicit
Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400
Private Sub Form_Load()
Dim A As Long
A = GetSystemMenu(Me.hwnd, 0)
Call RemoveMenu(A, 6, MF_BYPOSITION)
End Sub
Un abrazo desde Chile.
Master
