Evitar el deplazamiento de un UserForm mediante la barra de título

22/03/2007 - 00:45 por Insumos | Informe spam
Hola Gente del foro:

Tengo otra pregunta más referente a personalizar el uso de los UserForm.
Existe alguna manera de "desactivar" la posibilidad de que los usuarios
desplazen un UserForm arrastrandolo desde la barra de título con el puntero
del mouse?
Desde ya muchas gracias!!

Mariano

CONTADURIA
 

Leer las respuestas

#1 Héctor Miguel
22/03/2007 - 03:02 | Informe spam
hola, Mariano !

... alguna manera de "desactivar" la posibilidad de que los usuarios
desplazen un UserForm arrastrandolo desde la barra de título con el puntero del mouse?



tendras que 'disminuir' la altura del formulario [en el editor de vba] en tiempo de dise#o...
-> +/- la altura de la barra de titulos que 'vamos a desaparecer' <- :))
no importa si 'ves' que la parte inferior del formulario 'se come' algunos controles :-(
-> despues... copia las siguientes lineas ->en el modulo de codigo del formulario<-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Private Declare Function Formulario Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Nombre As String) As Long
Private Declare Function Menu Lib "User32" Alias "GetSystemMenu" ( _
ByVal Ventana As Long, ByVal Revertir As Long) As Long
Private Declare Function Quitar Lib "User32" Alias "RemoveMenu" ( _
ByVal Menu As Long, ByVal Posicion As Long, ByVal Estado As Long) As Long
Private Sub UserForm_Initialize()
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 1, &H400& Or &H1000&
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 2, &H400& Or &H1000&
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 4, &H400& Or &H1000&
End Sub

Preguntas similares