Visual Basic - Inactivar la equis de cerrar (esquina derecha sup)

Life is soft - evento anual de software empresarial
 
Vista:

Inactivar la equis de cerrar (esquina derecha sup)

Publicado por Andrés (43 intervenciones) el 08/09/2003 16:15:13
Necesito inactivar (o que no se vea), el boton de cerrar el formulario (el que aparece en la esquina superior derecha, o sea, la X), pero...
OJOOOO, eso si, muy importante, necesito hacerlo pero que el boton de minimizar siga activo

Como se hace?
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Inactivar la equis de cerrar (esquina derecha s

Publicado por dahool (1 intervención) el 09/09/2003 16:11:30
ok, te transcribo el código para deshabilitar el boton cerrar, tenés que pasarle el formulario como parámetro:

' ------------ INICIO ----------
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&

Sub DisableX(Frm As Form)
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub

'----------- FIN -------
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar