Una clase VB es el componente básico de la programación orientada a objetos Visual Basic . La clase VB es la definición de las propiedades y métodos definidos en el Código de VB de las clases . Cuando la clase se crea una instancia utilizando una instrucción Dim y Nueva se convierte en un objeto real en la memoria. Cosas que necesitará
Visual Basic . NET
Ver Más instrucciones
Escribir código para el VB Class
1

Crear un nuevo proyecto de Visual Basic basado en la Clase plantilla de la biblioteca . Esto creará un proyecto con el comienzo de una clase . Nombre del clPerson biblioteca de clases.
2

En el Explorador de soluciones de Windows haga clic derecho en el archivo Class1.vb y cambiarle el nombre a " clsPerson.vb ' . Esto va a cambiar el nombre de la clase en la ventana de codificación para clsPerson también.
3

Añadir estas dos líneas en la parte superior de la definición de clase , justo después del ' clsPerson Public Class ' line .

_Nombre Private As String

_DateOfBirth privado como fecha

Estas serán las variables internas para contener los datos acerca de la persona . Se definen como ' privada' para que el código fuera de la clase no se puede cambiar. Los cambios en estos valores serán controlados por los métodos y propiedades de la clase
4

Añadir este código como propiedades a la clase : .

Public Property Name Como
secuencia < p > Obtener

Name = _sName

End Get Set

(valor ByVal como secuencia)

_sName = valor

End Set

End propiedad en

Pública DateOfBirth propiedad Como fecha

Cómo

DateOfBirth = _DateOfBirth

final Cómo

Set (valor de ByVal como fecha)

Si value> hoy Entonces

Throw New ApplicationException ("Fecha de nacimiento debe ser hoy o antes " )

demás
< p> _DateOfBirth = valor

End If

End Set End

propiedad en

Estas son las dos propiedades de lectura y escritura y almacenar sus valores en las variables privadas definido anteriormente . La propiedad DateOfBirth demuestra un manejo rudimentario error por verificar que la fecha de nacimiento es hoy o antes. Si no es así, se produce una excepción que puede ser manejando por el programa de consumo de la clase.
5

He aquí un ejemplo de una propiedad de sólo lectura.

Public ReadOnly edad propiedad As Integer

Cómo

retval Dim As Integer

retval = DateTime.Now.Year - _DateOfBirth.Year ' Encuentra el diferente en años

Si DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month Y DateTime.Now.Day < _DateOfBirth.Day ) Entonces

retval = retval - 1 ' Si antes de la cumpleaños en este año restar uno de

End If

edad = retval

End Get End

propiedad en

Utilizando la fecha actual y la fecha de nacimiento de la clase le permite calcular la edad de la persona. El programa consume no es necesario tener conocimiento de cómo se implementa . Se puede almacenar un valor real o calcularlo .
6

Un método sencillo puede implicar la determinación de si una persona es más antigua que la persona representada en el objeto actual .

Public Function GetOlder ( ByRef borrador Como clsPerson ) Como clsPerson

Si comp.DateOfBirth > _DateOfBirth Entonces

GetOlder Comp =

demás

GetOlder = Me

End If End Function

7

En otro programa , la clase que se ha definido se usaría así:

Private Sub Button1_Click ( ByVal emisor como System.Object , ByVal e como System.EventArgs ) Handles Button1.Click

cp Dim As New clsPerson

cp.DateOfBirth = " 10/02/1956 "
< p > MsgBox ( cp.Age )

End Sub

Asegúrese de incluir el " Importaciones clPerson ' en la parte superior del archivo que necesita para utilizar el objeto .