5 - Visual Studio Crear e instanciar Clases

Esta practica esta orientada a la creación de un proyecto que invocará y consumirá los servicios de una clase que estará contenida en el mismo proyecto.

Para esto realizaremos los siguientes pasos:

Crear un proyecto de aplicación Windows al cual llamaremos WinClass-001

Agregaremos un archivo de clase a la solución, desde el explorador de soluciones, realizando la siguiente acción:

Se abrirá la siguiente interfaz, que le permitirá seleccionar el elemento que desea incluir.

Seleccionar el elemento Clase y renombrarlo con el prefijo clsPersonal.vb, lo cual permitirá administrar las clases en una sola sección ordenados por el prefijo “cls”. Presionar el botón agregar.

Agregar dos variables locales en el cuerpo de la clase que permitirán manejar los valores de Nombre y apellido, las cuales llamaremos.

Dim strNombre As String
Dim strApellido As String


Agregar los procedimientos de propiedades que permitirán tener acceso a los valores de las variables que se han creado, de la siguiente forma:

Property Nombre() As String
Get
Return strNombre
End Get
Set(ByVal value As String)
strNombre = value
End Set
End Property

Property Apellido() As String
Get
Return strApellido
End Get
Set(ByVal value As String)
strApellido = value
End Set
End Property

Agregar un control botón al formulario que se ha creado, como se muestra a continuación:


Agregar dos textbox al formulario, en donde ingresaremos los valores que serán asignados a las variables que se han declarado en la clase, de la siguiente forma:


Ingrese al método que atiende el evento clic del botón que se ha agregado al formulario realizando un doble clic sobre este en modo de diseño, se desplegará el editor de código, de la siguiente forma:


Dentro de este método agregaremos las líneas de código que instanciarán a la clase clsPersona, asignameros los valores a las variables de la clase a través de las propiedades definidas y luego rescataremos mediante las propedades los valores asignados a las variables de la clase:

Dim cls As New clsPersonal

cls.Nombre = Me.TextBox1.Text
cls.Apellido = Me.TextBox2.Text

MessageBox.Show(cls.Nombre.ToString() + " " + cls.Apellido.ToString())

Ejecutar la aplicación y ver el comportamiento de la clase definida.