En VB klasse er den grundlæggende komponent i Visual Basic objektorienteret programmering . VB klasse er definitionen af ​​klassers egenskaber og metoder som defineret i VB kode. Når klassen instantieres ved hjælp af en Dim og New erklæring, som det bliver en faktisk objekt i hukommelsen. Ting du skal
Visual Basic. NET
Vis Flere Instruktioner
Skriv kode for VB Class
1

Opret et nyt Visual Basic projekt baseret på klasse bibliotek skabelon . Dette vil skabe et projekt med begyndelsen af ​​en klasse . Navngiv klasse bibliotek clPerson .
2.

Solution Explorer-vinduer højreklik på class1.vb filen og omdøbe den til " clsPerson.vb ". Dette vil ændre navnet på klassen i kodningen vindue til clsPerson så godt.
3

Tilføj disse to linjer i toppen af klassen definition , lige efter " Public Class clsPerson ' linje.

Private _name As String

Private _DateOfBirth Som Dato

Disse vil blive de interne variabler til at holde data om den person. De er defineret som 'Private ', så koden uden for klassen ikke kan ændre dem. Ændringer i disse værdier vil blive kontrolleret af de metoder og egenskaber af klassen
4

Tilføj denne kode som ejendomme til klasse: .

Public Property Name As String
< p> Få

Name = _sName

End Get

Set ( ByVal value As String )

_sName = værdi

End Set

End Ejendomsmæglere

Public Property DateOfBirth Som Dato

Få

DateOfBirth = _DateOfBirth

End Get

Set ( ByVal værdi Som Date )
p Hvis værdi> Today Så

Kast New ApplicationException ( " Fødselsdato skal være i dag eller før" )

Else
< p> _DateOfBirth = værdi

End If

End Set

End Ejendomsmæglere

Disse er begge læse-skrive egenskaber og gemme deres værdier i den private variabler defineret tidligere . Den DateOfBirth Ejendommen demonstrerer nogle rudimentære fejlhåndtering ved at kontrollere , at datoen for fødslen er i dag eller før. Hvis det ikke er , er en undtagelse kastes som derefter kan håndtere med de forbrugende program af klassen.
5.

Her er et eksempel på en skrivebeskyttet egenskab .

Public ReadOnly ejendom Age As Integer

Få

Dim retval As Integer

retval = DateTime.Now.Year - _DateOfBirth.Year 'Find den anderledes i år

Hvis DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month Og DateTime.Now.Day < _DateOfBirth.Day ) Så

retval = retval - 1 ' Hvis før fødselsdag i dette år trække en

End If

Age = retval

End Get

End Ejendomsmæglere

Brug den aktuelle dato og fødselsdato i klassen gør det muligt at beregne personens alder. Den tidskrævende program behøver ikke at have kendskab til , hvordan dette er implementeret. Det kunne lagre en faktisk værdi eller beregne det.
6

En simpel metode kunne indebære at afgøre, om en anden person er ældre end den person, der er repræsenteret i det aktuelle objekt .

Public Function GetOlder ( ByRef comp Som clsPerson ) Som clsPerson
p Hvis comp.DateOfBirth > _DateOfBirth Så

GetOlder = comp

Else

GetOlder = Me

End If

End Function
7

andet program , ville den klasse, der er defineret bruges som denne : Hej

Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.Click

Dim cp Da New clsPerson

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

End Sub

Vær sikker på at medtage den " Import clPerson 'øverst i filen , der skal bruge objektet.
< br >