Formulario

18/08/2005 - 21:05 por hector barajas | Informe spam
Como puedo hacer que un formulario me ocupe toda la pantalla cuando se abra
y que no puedan cambiarle el tamaño ni salirse de el hasta que se le de al
boton salir del mismo.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
19/08/2005 - 05:18 | Informe spam
hola, 'tocayo' !

... hacer que un formulario me ocupe toda la pantalla cuando se abra
... y que no puedan cambiarle el tamaño ni salirse de el hasta que se le de al boton salir del mismo.



te paso un ejemplo al final del presente... PERO... ->te sugiero<-...
-> documentate muy bien en la ayuda de vba en relacion con el uso de la propiedad 'EnableCancelKey' <= OJO
[hasta donde se]... es la unica forma de 'prevenir' que un usuario detenga un codigo pulsando {ctrl}+{pausa}

saludos,
hector.

1) copia las siguientes instrucciones en el modulo de codigo ->del formulario<-
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()
With Application
Me.Left = .Left: Me.Top = .Top: Me.Height = .Height: Me.Width = .Width
End With
Quitar Menu(Formulario(vbNullString, Me.Caption), 0), 1, &H400
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

2) en el procedimiento donde muestres el formulario... usa la siguiente secuencia de instrucciones [p.e.]
en un modulo de codigo 'normal' una macro para mostrar al formulario y el 'EnableCancelKey' ==Sub Mostrar_el_formulario_X()
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
UserForm1.Show
Ver_Error:
If Err = 18 Then Resume
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida