Ein VB -Klasse ist die grundlegende Komponente von Visual Basic objektorientierten Programmierung . Die VB -Klasse ist die Definition der Klassen Eigenschaften und Methoden wie in VB-Code definiert. Wenn die Klasse instanziiert wird mit einer Dim -Anweisung und New wird es eine eigentliche Objekt im Speicher. Things You
Visual Basic. NET
brauchen anzeigen Weitere Anweisungen
Schreiben von Code für die VB- Klasse
1
Erstellen Sie ein neues Visual Basic-Projekt auf der Basis von Class Bibliothek -Vorlage. Dies wird ein Projekt mit dem Beginn einer Klasse zu erstellen. Benennen Sie die Klasse Bibliothek clPerson .
2
In den Solution Explorer Fenster auf dem Class1.vb Datei mit der rechten Maustaste an und benennen Sie sie in " clsPerson.vb ' . Dadurch wird der Name der Klasse in der kodierenden Fenster clsPerson auch ändern.
3
Fügen Sie diese beiden Zeilen am Anfang der Klassendefinition , direkt nach dem ' Public Class clsPerson ' Linie .
Privat _Name As String
Privat _DateOfBirth As Date
Diese werden die internen Variablen , um die Daten über die Person zu halten. Sie werden als 'Private' so definiert Code außerhalb der Klasse nicht ändern können sie . Änderungen dieser Werte wird von den Methoden und Eigenschaften der Klasse gesteuert werden
4
Fügen Sie diesen Code als Eigenschaften der Klasse : .
Public Property Name As String
< p > Get
Name = _sName
Ende Route
Set ( ByVal value As String)
_sName = value End Set
End Property Public Property
DateOfBirth As Date
Holen
DateOfBirth = _DateOfBirth
Ende Route
Set (ByVal Wert As Date )
Wenn Wert > Heute Dann
throw new ApplicationException ( " Geburtsdatum muss heute oder vor " )
Else
< p> _DateOfBirth = Wert
End If End
End Property
setzen Sie diese beiden Lese-Schreib- Eigenschaften und speichern ihre Werte in den privaten Variablen früher definiert . Die DateOfBirth Eigenschaft zeigt einige rudimentäre Fehlerbehandlung durch die Überprüfung , dass das Geburtsdatum heute oder zuvor. Wenn es nicht ist, wird eine Ausnahme ausgelöst , die dann durch die aufwendige Programm der Klasse werden die Handhabung.
5
Hier ist ein Beispiel für eine Nur-Lese- Eigenschaft .
Öffentliche ReadOnly Property Alter As Integer
Holen
Dim retval As Integer
retval = DateTime.Now.Year - _DateOfBirth.Year ' finden Sie die verschiedenen in Jahren
Wenn DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month Und DateTime.Now.Day < _DateOfBirth.Day ) Dann
retval = retval - 1 ' Wenn vor dem Geburtstag in diesem Jahr subtrahieren
End If
Age = retval
End Get End Property
Mit dem aktuellen Datum und der das Geburtsdatum in der Klasse ermöglicht es, das Alter der Person zu berechnen. Die aufwändige Programm muss nicht Wissen, wie dies umgesetzt haben . Es könnte sein, Speichern eines tatsächlichen Wert oder seine Berechnung .
6
Eine einfache Methode könnte beinhalten Bestimmung, ob eine andere Person ist älter als die Person in das aktuelle Objekt repräsentiert.
Public Function GetOlder ( ByRef Layout Wie clsPerson ) Wie clsPerson
Wenn comp.DateOfBirth > _DateOfBirth Dann
GetOlder = Layout
Else
GetOlder = Me
End If End Function
7
In einem anderen Programm , würde die Klasse, die definiert wurde wie folgt verwendet werden :
private Sub Button1_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Dim As New cp clsPerson
cp.DateOfBirth = " 1956.10.02 "
< p > MsgBox ( cp.Age )
End Sub
