Maak een nieuwe Visual Basic -project op basis van de Class bibliotheek template . Dit zal een project te maken met het begin van een klasse . Noem de bibliotheek clPerson klasse . Kopen van 2

In de Solution Explorer-vensters met de rechtermuisknop op het class1.vb bestand en hernoem het naar ' clsPerson.vb ' . Dit zal de naam van de klasse te veranderen in de codering venster om clsPerson ook.
3

Voeg deze twee lijnen aan de top van de klasse definitie , direct na de 'Public Class clsPerson ' lijn .

Prive _name
As String

Prive _DateOfBirth als Datum

Dit zullen de interne variabelen om de gegevens over de persoon te houden . Ze worden omschreven als ' Prive ' zodat code buiten de klasse ze niet wijzigen . Wijzigingen van deze waarden zal worden gecontroleerd door de methoden en eigenschappen van de klasse
4

Voeg deze code als de klasse-eigenschappen : .

Openbaar Domein Naam
als Koord

Get

Name
= _sName

End of Get

Set
( ByVal value As String )

_sName
= waarde

End Set

End Property

Public Property DateOfBirth
als Datum

Krijg

DateOfBirth

Einde
= _DateOfBirth
Krijg

Set
( ByVal waarde als Datum ) op Twitter

Als waarde > vandaag dan

Throw New ApplicationException ( " Geboortedatum moet vandaag of eerder " ) op Twitter

Else

_DateOfBirth = waarde

End
Als

End of Set

End Property

Dit zijn zowel lees -schrijf- eigenschappen en hun waarden op te slaan in de private variabelen eerder gedefinieerd . Het pand DateOfBirth demonstreert enkele rudimentaire foutafhandeling door te controleren of de geboortedatum is vandaag of eerder . Als het niet , wordt een uitzondering gegenereerd die vervolgens kunnen worden omgaan door het consumeren van het programma van de klas .
5

Hier is een voorbeeld van een alleen-lezen eigenschap .

Public ReadOnly
woning Leeftijd As Integer

Krijg

Dim retval als Geheel

retval = DateTime.Now.Year - _DateOfBirth.Year ' de verschillende zoeken in jaren

Als DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month En DateTime.Now.Day < _DateOfBirth.Day ) dan

retval = retval - 1 ' Als vóór de verjaardag in dit jaar aftrekken een

End
Als

Leeftijd
= retval

End of Get

End Property

Met behulp van de huidige datum en de geboortedatum in de klas maakt het mogelijk om de persoon die de leeftijd te berekenen . Het tijdrovende programma hoeft niet kennis van hoe dit wordt uitgevoerd hebben . Het kan worden het opslaan van de werkelijke waarde, of de berekening ervan .
6

Een eenvoudige methode zou kunnen inhouden het bepalen of iemand ouder is dan de persoon die vertegenwoordigd zijn in het huidige object .

Overheidsfunctie GetOlder
( ByRef comp Zoals clsPerson ) Zoals clsPerson

Als comp.DateOfBirth > _DateOfBirth

GetOlder dan
= comp

Else

GetOlder
= Me

End If

End Function
7

In een ander programma , zou de klasse die is gedefinieerd als volgt gebruikt worden :

Private Sub Button1_Click ( ByVal
afzender als System.Object , ByVal e als System.EventArgs ) Handles Button1.Click

Dim cp
als Nieuwe clsPerson

cp.DateOfBirth
= " 1956/10/02 "

MsgBox ( cp.Age )

End Sub

Zorg ervoor dat de ' invoer clPerson ' zijn aan de bovenkant van het bestand dat moet om het object te gebruiken .
< br >