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 .