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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 Insumos
22/03/2007 - 22:56 | Informe spam
Hola Héctor

Muchas Gracias!! Cómo de costumbre funcionó todo a la perfección!!
Será hasta pronto.
Saludos!!

Mariano

"Héctor Miguel" escribió en el mensaje
news:
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


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida