Cómo configurar un mínimo y el tamaño máximo para un control de usuario

Seleccione idioma Seleccione idioma
Id. de artículo: 190224 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

Resumen

Cuando se crea controles en Visual Basic, puede que desee limitar el tamaño de su UserControl. En este artículo muestra cómo establecer un tamaño mínimo y máximo para el UserControl de modo que un desarrollador que utiliza el control no tamaño del control más allá de la configuración preestablecida mínimo o máximo.

Más información

Este ejemplo utiliza un UserControl que está dentro de un proyecto EXE estándar. Puede utilizar la misma técnica para un control UserControl en un proyecto de Control ActiveX. Cuando se genera el control ActiveX, cualquiera que use el control ActiveX no podrá cambiar su cualquier mayor o menor tamaño, establecer los límites dentro del propio UserControl.

Nota: Esto sólo se diseñó para trabajar en aplicaciones de Visual Basic y que no funcionen en otros contenedores, como Microsoft Word o Excel.

Pasos para crear proyecto de ejemplo

  1. Cree un nuevo proyecto EXE estándar. Se creará Form1 de manera predeterminada.
  2. Agregar un control de usuario al proyecto haciendo clic en Agregar UserControl en el menú proyecto y, a continuación, haga clic en Abrir.
  3. Cambiar la propiedad BackColor del UserControl a un color diferente, como el rojo.
  4. Agregar dos etiquetas a UserControl.
  5. Agregue el código siguiente en la ventana de código para UserControl:
          Private Sub UserControl_Resize()
          ' Check to see if the control is larger or smaller than the preset
          ' minimum or maximum size.
          ' If it is larger or smaller, set the size of the control.
             Select Case Height
               Case Is < 2400
                 Height = 2400
               Case Is > 3600
                 Height = 3600
             End Select
    
             Select Case Width
               Case Is < 2400
                 Width = 2400
               Case Is > 3600
                 Width = 3600
             End Select
            ' The label reports the height and width of the control in
            ' twips even if the container has a different scalemode.
            Label1.Caption = "Height: " & Height
            Label2.Caption = "Width: " & Width
          End Sub
    
    						
  6. Cierre el UserControl y aparece en el cuadro de herramientas. Colóquelo en Form1.
  7. Intente cambiar el tamaño del objeto UserControl. Si se intenta que el control mayores o menores a continuación, el límite se establece en el evento Resize del UserControl, el control se devuelve el tamaño máximo o mínimo.
(c) 1998 Microsoft Corporation, reservados todos los derechos. Con la colaboración de Briam Combs, Microsoft Corporation

Propiedades

Id. de artículo: 190224 - Última revisión: sábado, 22 de febrero de 2014 - Versión: 2.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Edición de aprendizaje
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palabras clave: 
kbnosurvey kbarchive kbmt kbcode kbctrlcreate kbhowto KB190224 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 190224

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com