Tutorial: Definir clases (Visual Basic)

En este tutorial se muestra cómo definir clases, que luego se pueden usar para crear objetos. También muestra cómo agregar propiedades y métodos a la nueva clase y muestra cómo inicializar un objeto .

Para definir una clase

1. Cree un proyecto haciendo clic en Project en el menú Archivo. Aparecerá el cuadro de diálogo Nuevo proyecto .

2. Seleccione Windows aplicación en la lista de plantillas Visual Basic proyecto para mostrar el nuevo proyecto.

3. Agregue una nueva clase al proyecto haciendo clic en Agregar clase en Project menú. Aparecerá el cuadro de diálogo Agregar nuevo elemento.

4. Seleccione la plantilla Clase.

5. Asigne a la nueva clase el nombre y, a continuación, haga clic en UserNameInfo.vb Agregar para mostrar el código de la nueva clase.

   Public Class UserNameInfo
   End Class
   

   Nota

   Puede usar el Editor de Visual Basic para agregar una clase al formulario de inicio escribiendo la palabra clave seguido del nombre Class de la nueva clase. El Editor de código proporciona una instrucción End Class correspondiente.

6. Defina un campo privado para la clase agregando el código siguiente entre las Class End Class instrucciones y :

   Private userNameValue As String
   

   Declarar el campo como significa Private que solo se puede usar dentro de la clase . Puede hacer que los campos estén disponibles desde fuera de una clase mediante modificadores de acceso como Public que proporcionan más acceso. Para obtener más información, vea Niveles de acceso en Visual Basic.

7. Defina una propiedad para la clase agregando el código siguiente:

   Public Property UserName() As String
       Get
           ' Gets the property value.
           Return userNameValue
       End Get
       Set(ByVal Value As String)
           ' Sets the property value.
           userNameValue = Value
       End Set
   End Property
   

8. Defina un método para la clase agregando el código siguiente:

   Public Sub Capitalize()
       ' Capitalize the value of the property.
       userNameValue = UCase(userNameValue)
   End Sub
   

9. Defina un constructor con parámetros para la nueva clase agregando un procedimiento denominado Sub New :

   Public Sub New(ByVal UserName As String)
       ' Set the property value.
       Me.UserName = UserName
   End Sub
   

   Se llama automáticamente al constructor cuando se crea un objeto Sub New basado en esta clase. Este constructor establece el valor del campo que contiene el nombre de usuario.

Para crear un botón para probar la clase

1. Cambie el formulario de inicio al modo de diseño haciendo clic con el botón derecho en su nombre en Explorador de soluciones, a continuación, haga clic Diseñador de vistas. De forma predeterminada, el formulario de inicio para Windows proyectos de aplicación se denomina Form1.vb. A continuación, aparecerá el formulario principal.

2. Agregue un botón al formulario principal y haga doble clic en él para mostrar el código del controlador Button1_Click de eventos. Agregue el código siguiente para llamar al procedimiento de prueba:

   ' Create an instance of the class.
   Dim user As New UserNameInfo("Moore, Bobby")
   ' Capitalize the value of the property.
   user.Capitalize()
   ' Display the value of the property.
   MsgBox("The original UserName is: " & user.UserName)
   ' Change the value of the property.
   user.UserName = "Worden, Joe"
   ' Redisplay the value of the property.
   MsgBox("The new UserName is: " & user.UserName)
   

Para ejecutar la aplicación

1. Presione F5 para ejecutar la aplicación. Haga clic en el botón del formulario para llamar al procedimiento de prueba. Muestra un mensaje en el que se indica que el original UserName es "EXECUTE, SALE", porque el procedimiento Capitalize llamó al método del objeto .

2. Haga clic en Aceptar para descartar el cuadro de mensaje. El procedimiento cambia el valor de la propiedad y muestra un mensaje que indica que el nuevo valor Button1 Click UserName de es UserName "Worden, Joe".

Consulta también

• Programación orientada a objetos (Visual Basic)
• Objetos y clases