Ako napísať kód pre VB triedy

VB trieda je základnou zložkou jazyka objektovo orientovaného programovania . Trieda VB je definícia vlastností a metód tried " , ako sú definované v kóde VB . Keď je inštancia triedy pomocou Dim a nový vyhlásenie , že sa stáva skutočný objekt v pamäti . Veci , ktoré budete potrebovať
Visual Basic . NET
Zobraziť ďalšie inštrukcie
Napíšte kód pre VB triedy
1

Vytvoriť nový projekt Visual Basic založený na triede knižnica šablóny . Tým sa vytvorí projekt so začiatkom jednej triedy . Názov knižnice triedy clPerson .
2

okná Solution Explorer kliknite pravým tlačidlom myši na súbor Class1.vb a premenujte ho na " clsPerson.vb " . To sa zmení názov triedy v kódovaní okna do clsPerson rovnako .
3

Pridať tieto dva riadky v hornej časti definície triedy , hneď po " Public Class clsPerson " linka .

Súkromná Me_no As String

Súkromné ​​_DateOfBirth Ako Dátum

budú interné premenné pre uloženie dát o osobe . Tie sú definované ako " súkromné ​​" , takže kód mimo triedu nemožno ich meniť . Zmeny týchto hodnôt bude riadený metódami a vlastnosťami triedy
4

Pridať tento kód ako vlastnosti do triedy : .

Public Property Name As String

Get

Name = _sName

End Get

Set ( byVal hodnota As String )

_sName = hodnota

End Set

End Property Public Property

DateOfBirth Ako Dátum

Get

DateOfBirth = _DateOfBirth

End Get klipart

Set ( byval hodnota ako dátum )

Ak je hodnota > dnes Potom

throw new ApplicationException ( " Dátum narodenia musí byť dnes alebo pred " )

Else

_DateOfBirth = hodnota

End If

End Set End Property

Jedná sa ako pre čítanie aj zápis vlastností a uložiť ich hodnoty v súkromnej premennej definované skôr. Vlastnosť DateOfBirth ukazuje nejakú základné spracovanie chýb tým , že overí , že dátum narodenia je dnes alebo pred . Ak tomu tak nie je , je vyvolaná výnimka , ktorá potom môže byť manipulácia pomocou náročné programu triedy .
5

Tu je príklad vlastnosti iba pre čítanie .

Verejných ReadOnly nehnuteľnosti Vek As Integer

si

Dim retval As Integer

retval = DateTime.Now.Year - _DateOfBirth.Year " Nájdi líši v rokoch

ak DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month A DateTime.Now.Day < _DateOfBirth.Day ) Potom

retval = retval - 1 "Ak pred narodeniny v tomto roku Subtract Jedna mladá

End If

Vek = retval

End Get End Property

Použitie aktuálny dátum a dátum narodenia v triede umožňuje vypočítať vek osoby . Náročný program nie je nutné mať vedomosti o tom , ako je táto realizovaná . To by mohlo byť uloženie aktuálnej hodnoty alebo jej výpočet .
6

jednoduchá metóda môže zahŕňať stanovenie , či iná osoba je staršia ako zastúpené osoby v aktuálnom objekte .

Public Function GetOlder ( ByRef Comp clsPerson ) Ako clsPerson

Ak comp.DateOfBirth > _DateOfBirth Potom

GetOlder = zostava

Else

GetOlder = Me

End If

End Function
7

V inom programe , trieda , ktorá bola definovaná by byť používaný ako tohle :

Private Sub Button1_Click ( byval odosielateľ ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click

Dim cp ako New clsPerson

cp.DateOfBirth = " 1956-10-02 "

MsgBox ( cp.Age )

End Sub

Uistite sa , že sú na " Imports clPerson " v hornej časti súboru , ktorý musí použiť objekt .

• Predchádzajúca strana: Ako na vyplňovanie ListView zo zoznamu Generic VB.Net 
• Ďalšia strana: Ako tlačiť dáta vo VB.NET