Visual Basic - Desabilitar el boton cerrer de un formulario?

Life is soft - evento anual de software empresarial
 
Vista:

Desabilitar el boton cerrer de un formulario?

Publicado por Tapi (4 intervenciones) el 09/05/2001 18:11:24
Como puedo hacer que un formulario tenga desabilitado el boton cerrar (la x superior derecha)...no me refiero a la propiedad BorderStyle del formulario...

saben como hacerlo???
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:Desabilitar el boton cerrer de un formulario?

Publicado por PonchoWare (88 intervenciones) el 09/05/2001 18:15:37
Cheka en las propiedades... debe estar la propiedad SystemMenu... si esta ponla en False... si no pues busca una que se le paresca.

Saludos.
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:Desabilitar el boton cerrer de un formulario?

Publicado por Jose Pedro (18 intervenciones) el 09/05/2001 18:53:58
Si lo que quieres es tener el boton x en gris y que no se pueda pulsar sobre el prueba el siguiente codigo, el unico problema es el ALT+F4 sigue funcionando, pero bueno....

Public formu As Form
Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

'Y para deshabilitar el botón Cerrar eliminamos la opción Cerrar del menú :

Public Sub Nobotoncerrar()
Dim hMenu As Long
Dim menuItemCount As Long
Dim formulario As Form
Set formulario = formu
'Obtenemos un handle al menú de sistema del formulario
hMenu = GetSystemMenu(formulario.hwnd, 0)
If hMenu Then
'Obtenemos el número de elementos del menú
menuItemCount = GetMenuItemCount(hMenu)
'Eliminamos el elemento Cerrar, que es el último
'Los elemento empiezan a numerarse en cero por lo que el
'último es menuItemCount - 1
Call RemoveMenu(hMenu, menuItemCount - 1, _
MF_REMOVE Or MF_BYPOSITION)
'Eliminamos la barra de separación que hay justo antes de la opción Cerrar
Call RemoveMenu(hMenu, menuItemCount - 2, _
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:Desabilitar el boton cerrer de un formulario?

Publicado por Manuel V. (25 intervenciones) el 09/05/2001 21:09:21
Tapi intentalo con estas propiedades ponlas en falso

MaxButton
MinButton
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:Desabilitar el boton cerrer de un formulario?

Publicado por DamocleS (16 intervenciones) el 09/05/2001 22:49:54
Sacar solo el cerrar "x" y permitir el maximizar y el minizar? o bien sacar todo?
si es sacar todo debes poner en FALSE la siguiente propiedad "CONTROL BOX" del formulario, y con eso te desaracen todos los controles de arriba a la derecha.
Espero te sirva.
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:Desabilitar el boton cerrer de un formulario?

Publicado por DamocleS (16 intervenciones) el 09/05/2001 22:50:21
Sacar solo el cerrar "x" y permitir el maximizar y el minizar? o bien sacar todo?
si es sacar todo debes poner en FALSE la siguiente propiedad "CONTROL BOX" del formulario, y con eso te desaracen todos los controles de arriba a la derecha.
Espero te sirva.
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