BLOQUEAR FORMULARIO

08/10/2004 - 06:48 por NUEVAMENTE FORMULARIO | Informe spam
Buen día,

solicito apoyo para que este formulario no pueda
minimizarse, maximizarse, cerrar con el boton X
ni lo puedan mover tomando la barra de título, pero me
gustaría conservar la barra del título.


De antemano gracias.
Un saludo
 

Leer las respuestas

#1 Héctor Miguel
08/10/2004 - 08:32 | Informe spam
hola, Jorge !

... que este formulario no pueda minimizarse, maximizarse, cerrar con el boton X
... ni lo puedan mover tomando la barra de titulo, pero ... conservar la barra del titulo.



copia las siguientes lines de codigo 'donde corresponda' y... ¿comentas?
=> solo toma en cuenta de que [todavia] 'pueden' salir del formulario con {Alt}+{F4} <saludos,
hector.

en un modulo de codigo 'normal' ==Option Private Module
Declare Function BuscarVentana Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, _
ByVal Nombre As String) As Long
Declare Function QuitarMenu Lib "User32" Alias "RemoveMenu" ( _
ByVal Menu As Long, _
ByVal Posicion As Long, _
ByVal Estado As Long) As Long
Declare Function ObtenerMenu Lib "User32" Alias "GetSystemMenu" ( _
ByVal Ventana As Long, _
ByVal Revertir As Long) As Long
en el modulo de codigo del formulario ==Private Sub UserForm_Initialize()
Const FijarPosicion = &H400&
Const Remover = &H1000&
EsteFormulario = BuscarVentana(vbNullString, Me.Caption)
EsteMenu = ObtenerMenu(EsteFormulario, False)
QuitarMenu EsteMenu, 1, FijarPosicion Or Remover
QuitarMenu EsteMenu, 2, FijarPosicion Or Remover
QuitarMenu EsteMenu, 4, FijarPosicion Or Remover
End Sub

Preguntas similares