Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 .