Cómo escribir código para VB Clase

Una clase VB es el componente básico de la programación orientada a objetos de Visual Basic. La clase VB es la definición de las propiedades y métodos de las clases, según se define en el código de VB. Cuando la clase se crea una instancia utilizando una instrucción Dim y Nueva se convierte en un objeto real en la memoria.

Instrucciones

Escribir código para la clase VB

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

2 En las ventanas del Explorador de soluciones haga clic derecho en el archivo Class1.vb y cambiarle el nombre a 'clsPerson.vb'. Esto 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 de la línea de 'Clase clsPerson Pública'.

Private _Name As String

Como _DateOfBirth privada Fecha

Estas serán las variables internas para contener los datos sobre la persona. Se definen como 'privada' por lo que el código fuera de la clase no puede cambiarlas. 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 As String

Obtener

Name = _sName

Final Cómo

Set (ByVal valor As String)

_sName = valor

fin Set

fin de la propiedad

Propiedad pública DateOfBirth Como Fecha

Obtener

DateOfBirth = _DateOfBirth

Final Cómo

Set (ByVal valor Como Fecha)

Si el valor> Hoy Entonces

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

Más

_DateOfBirth = Valor

Terminara si

fin Set

fin de la propiedad

Estos son dos propiedades de lectura y escritura y guardar sus valores en las variables particulares definidos anteriormente. La propiedad DateOfBirth demuestra algunos de gestión de errores rudimentaria verificando que la fecha de nacimiento es hoy o antes. Si no lo es, se produce una excepción que luego se pueden manipulación por parte del programa de consumo de la clase.

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

Public ReadOnly Property Age As Integer

Obtener

Dim retval como número entero

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

Si DateTime.Now.Month & lt; _DateOfBirth.Month O (= DateTime.Now.Month _DateOfBirth.Month Y DateTime.Now.Day & lt; _DateOfBirth.Day) A continuación,

retval = retval - 1 'Si antes del cumpleaños de éste reste año

Terminara si

Edad = retval

Final Cómo

fin de la propiedad

Usando la fecha actual y la fecha de nacimiento en la clase le permite calcular la edad de la persona. El programa consume no necesita tener conocimiento de cómo esto se implementa. Podría ser el almacenamiento de un valor real o el cálculo de la misma.

6 Un método simple podría implicar la determinación de si otra persona es mayor de la persona representada en el objeto actual.

Public Function GetOlder(ByRef comp As clsPerson) As clsPerson

Si comp.DateOfBirth> Luego _DateOfBirth

GetOlder = borrador

Más

= Me GetOlder

Terminara si

End Function

7 En otro programa, la clase que se ha definido sería utilizada como esto:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

cp Dim como nuevo clsPerson

cp.DateOfBirth = "02.10.1956"

MsgBox (cp.Age)

End Sub

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