Visual Basic - Desactivar boton CERRAR en MDIForm

Life is soft - evento anual de software empresarial
 
Vista:

Desactivar boton CERRAR en MDIForm

Publicado por Paulina S. (4 intervenciones) el 01/02/2001 01:14:54
Hola a Todos:
Ojalá me puedan ayudar.
¿Cómo puedo desactivar los botones de maximizar, minimizar y cerrar en un formulario MDI?
Gracias por la ayuda.
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:Desactivar boton CERRAR en MDIForm

Publicado por Miguel (243 intervenciones) el 01/02/2001 09:03:25
Hola.
Sólo tienes que poner este código en el General del Formulario:

\'codigo para quitar botones
#If Win32 Then
\'Para 32 bits (VB4 y VB5)
Private Declare Function GetSystemMenu Lib \"user32\" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib \"user32\" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

#Else
\'Para 16 bits (VB4 y VB3)
\'Private Declare Function GetSystemMenu Lib \"User\" (ByVal hWnd%, ByVal bRevert%) As Integer
\'Private Declare Function DeleteMenu Lib \"User\" (ByVal hMenu%, ByVal iditem%, ByVal wFlags%) As Integer
#End If

\'Constantes
Const SC_SIZE = &HF000
Const SC_MOVE = &HF010
Const SC_MINIMIZE = &HF020
Const SC_MAXIMIZE = &HF030
Const SC_CLOSE = &HF060
Const SC_RESTORE = &HF120

Const MF_SEPARATOR = &H800
Const MF_BYPOSITION = &H400
Const MF_BYCOMMAND = &H0

y este código en el evento Load del formulario:

\'codigo para quitar botones
#If Win32 Then
Dim hWnd&, hMenu&, Success&
#Else
Dim hWnd%, hMenu%, Success%
#End If
Dim i%

hWnd = Me.hWnd
hMenu = GetSystemMenu(hWnd, 0)

\'Quitar todos (va de 0 a 8)
For i = 8 To 0 Step -1

\'Usa esto para quitar los menús y botones que te interesen:
Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
\'Success = DeleteMenu(hMenu, SC_
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

RE:Desactivar boton CERRAR en MDIForm

Publicado por Lionel Labriola (1 intervención) el 29/07/2012 00:59:59
Puede funcionar , lastima que esta incompleto...
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