Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como impedir cambiar el tamaño de una ventana redimensionable

  • 0 Respuestas
  • 1939 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5473
  • Actividad:
    21.67%
  • Reputación 35
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 11:33:48 am »
Seguramente te preguntarás ¿que utilidad puede tener esto? Si a la ventana se le puede cambiar el tamaño, ¿por qué no permitir que se cambie?
La respuesta, para mí, es sencilla, pero la dejo para que pienses un poco cual sería el motivo...

Bueno, ahí va: en algunas ocasiones me gusta que los bordes de la ventana se vean de forma "normal", es decir como si se pudiese cambiar el tamaño, pero no me gusta que lo puedan cambiar, así que lo que he hecho en estas ocasiones es simplemente conservar el tamaño inicial de la ventana (el que tiene al cargarse) y cuando el usuario decide cambiarle el tamaño, no permitirselo y volver al que tenía inicialemente.

Aquí tienes todo el código necesario:

Código: Visual Basic
  1. '--------------------------------------------------------------
  2. 'Prueba para no cambiar el tamaño de una ventana con
  3. 'bordes dimensionables                              
  4. '--------------------------------------------------------------
  5. Option Explicit
  6.  
  7. 'Tamaño inicial del Form
  8. Dim iH As Integer
  9. Dim iW As Integer
  10.  
  11.  
  12. Private Sub Form_Load()
  13.     'Guardar el tamaño inicial
  14.    iH = Height
  15.     iW = Width
  16. End Sub
  17.  
  18.  
  19. Private Sub Form_Resize()
  20.     'Sólo comprobar si el estado es Normal
  21.    If WindowState = vbNormal Then
  22.         'Si se cambia la altura
  23.        If Height <> iH Then
  24.             Height = iH
  25.         End If
  26.         'Si se cambia el ancho
  27.        If Width <> iW Then
  28.             Width = iW
  29.         End If
  30.     End If
  31. End Sub
« Última modificación: Julio 08, 2011, 10:27:48 am por ANTRAX »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1694
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1472
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1861
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2151
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como ingresar solo numeros en un campo de texto

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1675
Último mensaje Julio 26, 2010, 10:24:49 am
por ANTRAX