Una classe VB è la componente di base della programmazione orientata agli oggetti di Visual Basic. La classe VB è la definizione di metodi e proprietà delle classi 'come definito nel codice VB. Quando la classe viene creata un'istanza utilizzando un'istruzione Dim e New diventa un vero e proprio oggetto in memoria.

istruzione

Scrivere il codice per la classe VB

1 Creare un nuovo progetto di Visual Basic basato sul modello Libreria di classi. Ciò creerà un progetto con l'inizio di una classe. Nome del clPerson libreria di classi.

2 Nella finestra Solution Explorer fare clic destro sul file Class1.vb e rinominarlo 'clsPerson.vb'. Questo cambierà il nome della classe nella finestra codifica per clsPerson pure.

3 Aggiungere queste due righe in alto della definizione di classe, subito dopo la linea del 'Pubblica classe clsPerson'.

Private _Name As String

_DateOfBirth Privata As Date

Queste saranno le variabili interne per contenere i dati sulla persona. Essi sono definiti come 'privato' in modo da codice al di fuori della classe non può cambiarli. Modifiche a questi valori saranno controllati con i metodi e le proprietà della classe.

4 Aggiungere questo codice come proprietà alla classe:

Public Property Name As String

Ottenere

Name = _sName

End Get

Set (valore di ByVal come stringa)

_sName = valore

fine Set

End Property

Public Property DateOfBirth As Date

Ottenere

DateOfBirth = _DateOfBirth

End Get

Set (valore di ByVal come Data)

Se il valore> Oggi Poi

Throw new ApplicationException ( "Data di nascita deve essere oggi o prima")

Altro

_DateOfBirth = Valore

Finisci se

fine Set

End Property

Questi sono entrambi lettura-scrittura proprietà e memorizzare i propri valori nelle variabili private definite in precedenza. La proprietà DateOfBirth dimostra alcune gestione degli errori rudimentale verificando che la data di nascita è oggi o prima. Se non è, viene generata un'eccezione che possono poi essere gestisce dal programma consumo della classe.

5 Ecco un esempio di una proprietà di sola lettura.

Public ReadOnly Property Age As Integer

Ottenere

Dim retval As Integer

retval = DateTime.Now.Year - _DateOfBirth.Year 'trovare le diverse negli anni

Se DateTime.Now.Month & lt; _DateOfBirth.Month O (DateTime.Now.Month = _DateOfBirth.Month E DateTime.Now.Day & lt; _DateOfBirth.Day) Poi

retval = retval - 1 'Se prima del compleanno in questo anno una sottrarre

Finisci se

Età = retval

End Get

End Property

Utilizzando la data corrente e la data di nascita nella classe consente di calcolare l'età della persona. Il programma di consumo non ha bisogno di essere a conoscenza di come questa viene implementata. Potrebbe essere la memorizzazione di un valore effettivo o di calcolo.

6 Un metodo semplice potrebbe comportare per determinare se una persona è più vecchio della persona rappresentata nell'oggetto corrente.

Public Function GetOlder(ByRef comp As clsPerson) As clsPerson

Se comp.DateOfBirth> _DateOfBirth Poi

GetOlder = comp

Altro

GetOlder = Me

Finisci se

End Function

7 In un altro programma, la classe che è stata definita sarebbe stato utilizzato in questo modo:

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

cp fioco come nuovo clsPerson

cp.DateOfBirth = "1956/10/02"

MsgBox (cp.Age)

End Sub

Assicurati di includere il 'Importazioni clPerson' nella parte superiore del file che ha bisogno di usare l'oggetto.