HOLA GENTE
Enviado por WALYCITO80 • 6 de Agosto de 2014 • 1.142 Palabras (5 Páginas) • 284 Visitas
Hola gente!
Tengo un form MDI que contiene varios forms hijosde tamaño fijo y centrados en el padre.
Necesito queel padresiempre tenga un tamaño fijo, que no se pueda maximizar, ni redimensionar y que solo pueda cerrarse desde un boton y no desde la (X) de la ventana; y como estos controles no tienen la propiedad BorderStyle ni ControlBox, se me ocurrio hacerlo por codigo.
Para evitar cerar desde la (X) utilizo este:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If cerrar = False Then
Cancel = True
End If
End Sub
Para evitar redimensionar o maximizar utilizo esto:
Private Sub MDIForm_Resize()
If mdiContenedor.WindowState = 2 Then
mdiContenedor.WindowState = 0
End If
If mdiContenedor.Width <> 12000 Or mdiContenedor.Height <> 8505 Then
mdiContenedor.Height = 8505
mdiContenedor.Width = 12000
End If
End Sub
El tema es que el objetivo se cumple, pero mi idea es que los usuarios no puedan cliquear sobre los botones cerrar ni maximizar, ni tampoco puedan arrastrar la ventana para agrandar ni achicar.
Alguien conoce alguna forma de bloquear estos botones?
Espero que me haya sabido explicar y puedan ayudarme
Saludos y gracias!
Hola gente!
Tengo un form MDI que contiene varios forms hijosde tamaño fijo y centrados en el padre.
Necesito queel padresiempre tenga un tamaño fijo, que no se pueda maximizar, ni redimensionar y que solo pueda cerrarse desde un boton y no desde la (X) de la ventana; y como estos controles no tienen la propiedad BorderStyle ni ControlBox, se me ocurrio hacerlo por codigo.
Para evitar cerar desde la (X) utilizo este:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If cerrar = False Then
Cancel = True
End If
End Sub
Para evitar redimensionar o maximizar utilizo esto:
Private Sub MDIForm_Resize()
If mdiContenedor.WindowState = 2 Then
mdiContenedor.WindowState = 0
End If
If mdiContenedor.Width <> 12000 Or mdiContenedor.Height <> 8505 Then
mdiContenedor.Height = 8505
mdiContenedor.Width = 12000
End If
End Sub
El tema es que el objetivo se cumple, pero mi idea es que los usuarios no puedan cliquear sobre los botones cerrar ni maximizar, ni tampoco puedan arrastrar la ventana para agrandar ni achicar.
Alguien conoce alguna forma de bloquear estos botones?
Espero que me haya sabido explicar y puedan ayudarme
Saludos y gracias!
Hola gente!
Tengo un form MDI que contiene varios forms hijosde tamaño fijo y centrados en el padre.
Necesito queel padresiempre tenga un tamaño fijo, que no se pueda maximizar, ni redimensionar y que solo pueda cerrarse desde un boton y no desde la (X) de la ventana; y como estos controles no tienen la propiedad BorderStyle ni ControlBox, se me ocurrio hacerlo por codigo.
Para evitar cerar desde la (X) utilizo este:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If cerrar = False Then
Cancel = True
End If
End Sub
Para evitar redimensionar o maximizar utilizo esto:
Private Sub MDIForm_Resize()
If mdiContenedor.WindowState = 2 Then
mdiContenedor.WindowState = 0
End If
If mdiContenedor.Width <> 12000 Or mdiContenedor.Height <> 8505 Then
mdiContenedor.Height = 8505
mdiContenedor.Width = 12000
End If
End Sub
El tema es que el objetivo se cumple, pero mi idea es que los usuarios no puedan cliquear sobre los botones cerrar ni maximizar, ni tampoco puedan arrastrar la ventana para agrandar ni achicar.
Alguien conoce alguna forma de bloquear estos botones?
Espero que me haya sabido explicar y puedan ayudarme
Saludos y gracias!
Hola gente!
Tengo un form MDI que contiene varios forms hijosde tamaño fijo y centrados en el padre.
Necesito queel padresiempre tenga un tamaño fijo, que no se pueda maximizar, ni redimensionar y que solo pueda cerrarse desde un boton y no desde la (X) de la ventana; y como estos controles no tienen la propiedad BorderStyle ni ControlBox, se me ocurrio hacerlo por codigo.
Para evitar cerar desde la (X) utilizo este:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If cerrar = False Then
Cancel = True
End If
End Sub
Para evitar redimensionar o maximizar utilizo esto:
...