A VB klass är den grundläggande komponenten i Visual Basic objektorienterad programmering . VB klass är definitionen av klassernas egenskaper och metoder som definierats i VB -kod . När klassen instansieras med en Dim och Nya uttalande blir det en verklig objekt i minnet . Saker du behöver Review, Visual Basic . NET
Visa fler instruktioner
Skriv kod för VB klass
1
Skapa ett nytt Visual Basic-projekt baserade på klass Bibliotek mall. Detta kommer att skapa ett projekt med början av en klass . Namnge clPerson klassbibliotek .
2
I Solution Explorer-fönster genom att högerklicka på class1.vb filen och döp om den till " clsPerson.vb " . Detta kommer att ändra namnet på klassen i kodning fönstret till clsPerson också .
3
Lägg till dessa två rader överst i klassen definition , direkt efter " public class clsPerson " linje .
Privat _name As String
Privat _DateOfBirth som Datum
Dessa kommer att vara de interna variabler för att hålla uppgifter om personen . De definieras som " privat " så kod utanför klassen inte kan ändra dem . Ändringar av dessa värden kommer att kontrolleras av metoderna och egenskaperna för klassen
4
Lägg denna kod som egenskaper för klassen : .
Public Namn As String
Få
Namn = _sName
End Få
Set ( ByVal value As String ) katalog
_sName = värde
End Set
End Property
offentlig egendom DateOfBirth Som Datum
Få
DateOfBirth = _DateOfBirth
End Få
Set ( ByVal value As Date ) katalog p Om värdet > idag Sen
kasta nytt ApplicationException ( " Födelsedag måste vara idag eller innan " ) katalog
Else
_DateOfBirth = värde
End If
End Set
End
Property
Dessa är både läs-skriv egenskaper och lagra sina värden i de privata variablerna som definierats tidigare. Den DateOfBirth Fastigheten visar några rudimentära felhantering genom att kontrollera att födelsedatum är idag eller tidigare . Om det inte är ett undantag som sedan kan hanteras genom den tidskrävande program av klassen .
5
Här är ett exempel på en skrivskyddad egenskap .
Public ReadOnly Fastighet Ålder As Integer
Få
Dim retval As Integer
retval = DateTime.Now.Year - _DateOfBirth.Year " Hitta det annorlunda i år
Om DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month Och DateTime.Now.Day < _DateOfBirth.Day ) Sedan
retval = retval - 1 ' Om innan födelsedag i år subtrahera en
End If
Ålder = retval
End Get
End Property
med aktuellt datum och födelsedatum i klassen gör det möjligt att beräkna personens ålder . Den tidskrävande program behöver inte ha kunskap om hur detta går till . Det skulle kunna lagra ett faktiskt värde eller beräkna den .
6
En enkel metod kan innebära att bestämma om en annan person är äldre än personen representerade i det aktuella objektet .
Public Function GetOlder ( ByRef comp Som clsPerson ) Som clsPerson
p Om comp.DateOfBirth > _DateOfBirth Sen
GetOlder = comp
Else
GetOlder = Me
End If
End Function
7
i ett annat program , skulle den klass som har definierats användas så här :
Private Sub Button1_Click ( ByVal avsändare Som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
Dim cp Som New clsPerson
cp.DateOfBirth = " 1956/10/02 "
MsgBox ( cp.Age ) katalog
End Sub
Var noga med att inkludera " Importen clPerson " längst upp i filen som behöver använda objektet .
