A VB klasse er den grunnleggende komponenten i Visual Basic objektorientert programmering. VB klassen er definisjonen av klassene ' egenskaper og metoder som er definert i VB -koden. Når klassen startes ved hjelp av en Dim og New uttalelse blir det en faktisk objekt i minnet . Du trenger
Visual Basic. NET
Vis flere instruksjoner
Skriv kode for VB klasse
en
Opprett en ny Visual Basic-prosjekt basert på klasse bibliotek mal. Dette vil skape et prosjekt med begynnelsen av en klasse . Navngi klassebibliotek clPerson .
2
I Solution Explorer-vinduer høyreklikk på class1.vb filen og endre navnet til " clsPerson.vb ' . Dette vil endre navnet på klassen i kodingen vinduet til clsPerson også.
3
Legg disse to linjene på toppen av klassen definisjonen , rett etter ' Public Class clsPerson ' linje.
Private _name As String
Private _DateOfBirth Som Date
Disse vil være de interne variabler å holde dataene om personen . De er definert som privat slik kode utenfor klassen ikke kan endre dem . Endringer i disse verdiene vil bli kontrollert av de metoder og egenskaper i klassen
4
Legg denne koden som egenskapene til klassen: .
Offentlig eiendom Navn As String
< p> Få
Name = _sName
End Få
Set ( ByVal verdi As String )
_sName = verdi
End Set
End Property
offentlig eiendom DateOfBirth Som Date
Få
DateOfBirth = _DateOfBirth
End Få
Set ( ByVal verdi As Date )
p Hvis verdi > I dag så
Kast New ApplicationException ( " Fødselsdato må være i dag eller før ")
Else
< p> _DateOfBirth = verdi
End If
End Set
End Property
Disse er både lese-skrive egenskaper og lagre sine verdier i de private variabler definert tidligere. Den DateOfBirth eiendom demonstrerer noen rudimentære feilbehandling ved å bekrefte at datoen for fødselen er i dag, eller før . Hvis det ikke er et unntak kastet som deretter kan håndtering av forbruker program av klassen .
5
Her er et eksempel på en skrivebeskyttet egenskap.
Public Skrivebeskyttet eiendom Age As Integer
Få
Dim retVal As Integer
retVal = DateTime.Now.Year - _DateOfBirth.Year "Finn annerledes i år
Hvis DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month Og DateTime.Now.Day < _DateOfBirth.Day ) Så
retVal = retVal - en ' Dersom før bursdag i år trekke fra en
End If
Age = retVal
End Get
End Property
Bruke gjeldende dato og fødselsdatoen i klassen gjør det mulig å beregne personens alder. Den forbruker program trenger ikke å ha kunnskap om hvordan dette gjennomføres . Det kan være lagring av en faktisk verdi eller beregne det .
6
En enkel metode kan innebære å avgjøre om en annen person er eldre enn den personen representert i den aktuelle objektet .
Public Function GetOlder ( ByRef comp Som clsPerson ) Som clsPerson
p Hvis comp.DateOfBirth > _DateOfBirth Deretter
GetOlder = comp
Else
GetOlder = Me
End If
End Function
7
i et annet program , vil den klassen som har blitt definert brukes som dette : en
Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click
Dim cp som ny clsPerson
cp.DateOfBirth = " 10/2/1956 "
< p > MsgBox ( cp.Age )
End Sub
Sørg for å inkludere den " Import clPerson ' på toppen av filen som må bruke objektet .
