Cómo: Establecer la propiedad BorderStyle para controles de usuario utilizando Visual Basic .NET

Seleccione idioma Seleccione idioma
Id. de artículo: 318821 - 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

Este artículo paso a paso describe cómo establecer un estilo de borde personalizados para un control de usuario. De forma predeterminada, un control de usuario no tiene una propiedad BorderStyle . La propiedad BorderStyle especifica el estilo de borde para controles que tienen un borde modificable.

Crear una aplicación de Windows Forms

  1. Inicie Microsoft Visual Studio NET..
  2. En el menú archivo , haga clic en nuevo y, a continuación, haga clic en proyecto .
  3. En el cuadro de diálogo Nuevo proyecto , haga clic en Proyectos de Visual Basic bajo Tipos de proyecto y, a continuación, haga clic en Biblioteca de controles de Windows , bajo plantillas .
  4. En el cuadro de texto nombre , escriba BorderedUserControlSample y, a continuación, haga clic en Aceptar .

Personalizar el formulario y las propiedades de control

  1. Pegue el código siguiente antes de la instrucción PUBLIC CLASS USERCONTROL1 :
    Imports System.ComponentModel
    
    Class win32
          Public Const WS_BORDER = &H800000
          Public Const WS_EX_CLIENTEDGE = &H200
    End Class
    					
  2. Pegue las siguientes declaraciones de miembro en la clase UserControl1 después de la instrucción INHERITS :
    Private borderStyleValue as System.Windows.Forms.BorderStyle
    Private textName As System.Windows.Forms.TextBox
    Private textAddress As System.Windows.Forms.TextBox
    Private e As System.Enum
    					
  3. Expandir el bloque de código generado por el Diseñador de Windows Forms y a continuación, pegue el código siguiente en el método InitializeComponent :
    textName = New System.Windows.Forms.TextBox()
    textAddress = New System.Windows.Forms.TextBox()
    
    textName.Location = New System.Drawing.Point(50, 8)
    textName.Size = New System.Drawing.Size(100, 20)
    textName.TabIndex = 0
    
    textAddress.Location = New System.Drawing.Point(50, 32)
    textAddress.Size = New System.Drawing.Size(100, 20)
    textAddress.TabIndex = 1
    
    
    ' Add the controls to the user control.
    Controls.AddRange(New System.Windows.Forms.Control() {textName, textAddress})
    
    ' Size the user control.
    Size = New System.Drawing.Size(200, 100)
    					
  4. Pegue el código siguiente en la clase UserControl1 después del método UserControl1_Load :
    Protected Overrides ReadOnly Property CreateParams() _
                  As System.Windows.Forms.CreateParams
            Get
                Dim cp As System.Windows.Forms.CreateParams = MyBase.CreateParams
    
                cp.ExStyle = cp.ExStyle And (Not Win32.WS_EX_CLIENTEDGE)
                cp.Style = cp.Style And (Not Win32.WS_BORDER)
    
                Select Case BorderStyle
                    Case BorderStyle.Fixed3D
                        cp.ExStyle = cp.ExStyle Or Win32.WS_EX_CLIENTEDGE
                    Case BorderStyle.FixedSingle
                        cp.Style = cp.Style Or Win32.WS_BORDER
                End Select
    
                Return cp
            End Get
    End Property
    
    Public Property BorderStyle() As System.Windows.Forms.BorderStyle
            Get
                Return borderStyleValue
            End Get
    
            Set(ByVal Value As System.Windows.Forms.BorderStyle)
                If (Not (borderStyleValue = value)) Then
                    If (Not (e.IsDefined(GetType(BorderStyle), Value))) Then
                        Throw New InvalidEnumArgumentException("value", CType(value, Integer), GetType(BorderStyle))
                    End If
                    borderStyleValue = value
                    UpdateStyles()
                End If
            End Set
    End Property
    					

Compilar el proyecto

Para compilar el proyecto, en el menú Generar , haga clic en Generar solución . Esto genera un archivo de biblioteca dynamic-link (.dll).

Agregue una referencia al control de usuario

  1. Agregar una nueva aplicación de Visual Basic .NET Windows a la solución: en el menú archivo , haga clic en Agregar proyecto , haga clic en Nuevo proyecto , haga clic en Aplicación para Windows y, a continuación, haga clic en Aceptar .
  2. En el Explorador de soluciones, haga clic con el botón secundario en la aplicación de Windows del proyecto y, a continuación, haga clic en Agregar referencia .
  3. En la ficha proyectos , haga clic en BorderedUserControlSample , haga clic en seleccionar y, a continuación, haga clic en Aceptar .
  4. Pegue el siguiente ejemplo de código al principio de Form1.vb:
    Imports BorderedUserControlSample
    					
  5. Pegue la siguiente declaración de miembro en la clase Form1 después de la instrucción INHERITS :
    Private myUserControl As BorderedUserControlSample.UserControl1
    					
  6. Expanda el código generado por el Diseñador de Windows Forms y pegue el código siguiente en el método InitializeComponent :
    myUserControl = New BorderedUserControlSample.UserControl1()
    myUserControl.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Controls.Add(myUserControl)
    					
  7. En el Explorador de soluciones, haga clic con el botón secundario en la aplicación de Windows que creó y, a continuación, haga clic en establecer como proyecto de inicio .
  8. Ejecute el proyecto de aplicación Windows y, a continuación, observe que dos cuadros de texto aparecen dentro de un borde Fixed3D.

Referencias

Para obtener información adicional en una versión de Microsoft Visual C# .NET de este artículo, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
316574Cómo: Establecer una propiedad BorderStyle para controles en Visual C# .NET

Propiedades

Id. de artículo: 318821 - Última revisión: lunes, 24 de febrero de 2014 - Versión: 3.0
La información de este artículo se refiere a:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft .NET Framework Class Libraries 1.0
Palabras clave: 
kbnosurvey kbarchive kbmt kbhowtomaster KB318821 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): 318821

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