Πώς να γράψει κώδικα για VB Class

Α 'κατηγορίας VB είναι το βασικό συστατικό του βασικού αντικειμενοστραφούς προγραμματισμού Visual . Η τάξη VB είναι ο ορισμός των ιδιοτήτων και των μεθόδων των τάξεων » , όπως ορίζεται στον κώδικα VB . Όταν ο κλάσης αρχικοποιείται χρησιμοποιώντας Dim και τη Νέα δήλωση γίνεται ένα πραγματικό αντικείμενο στη μνήμη . Τα πράγματα που θα χρειαστείτε
Visual Basic . NET
Η Εμφάνιση Περισσότερες οδηγίες
Γράψτε κώδικα για το VB Class
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic με βάση το Class πρότυπο βιβλιοθήκης . Αυτό θα δημιουργήσει ένα έργο με την έναρξη μιας κατηγορίας . Ονομάστε το clPerson βιβλιοθήκη κλάσης . 2

Στις βιτρίνες Solution Explorer κάντε δεξί κλικ στο αρχείο Class1.vb και μετονομάστε το σε " clsPerson.vb » . Αυτό θα αλλάξει το όνομα της κατηγορίας στην κωδικοποίηση παράθυρο για να clsPerson , καθώς και .
Εικόνων 3

Προσθέστε αυτές τις δύο γραμμές στο πάνω μέρος του ορισμού κατηγορίας , αμέσως μετά το «Δημόσια Τάξη clsPerson » γραμμή .

Private _name Όπως String

Private _DateOfBirth Ως Ημερομηνία

Αυτοί θα είναι οι εσωτερικές μεταβλητές για να κρατήσει τα στοιχεία σχετικά με το πρόσωπο . Αυτές ορίζονται ως « ιδιωτικούς », ώστε κώδικας που βρίσκεται έξω από την τάξη δεν μπορεί να τους αλλάξει . Αλλαγές σε αυτές τις τιμές θα πρέπει να ελέγχεται από τις μεθόδους και τις ιδιότητες της κατηγορίας
Η 4

Προσθέστε τον κώδικα ως ιδιότητες στην τάξη : .

Όνομα δημόσιας ιδιοκτησίας As String

Get

Όνομα = _sName

End Πάρτε

Set ( ByVal αξία Όπως String )

_sName =
αξία

End Set

End ιδιοκτησίας

Δημόσιας Περιουσίας DateOfBirth Ως Ημερομηνία

Πάρτε

DateOfBirth = _DateOfBirth

End Πάρτε

Set ( ByVal αξία Όπως ημερομηνία)

Εάν η τιμή > σήμερα τότε

Πέτα Νέα ApplicationException ( " Ημερομηνία γέννησης πρέπει να είναι σήμερα ή πριν " )

υπόλοιπα

_DateOfBirth = αξία

End If

End Set

End ιδιοκτησίας

Αυτά είναι τα δύο ανάγνωσης-εγγραφής ιδιότητες και να αποθηκεύουν τις αξίες τους στον ιδιωτικό μεταβλητές ορίστηκε προηγουμένως . Το ακίνητο DateOfBirth δείχνει κάποια στοιχειώδη χειρισμό σφαλμάτων , επαληθεύοντας ότι η ημερομηνία γέννησης είναι σήμερα ή στο παρελθόν. Εάν δεν είναι , μια εξαίρεση η οποία μπορεί στη συνέχεια να χειρίζονται από το καταναλωτικό πρόγραμμα της τάξης .
5

Εδώ είναι ένα παράδειγμα ενός ακινήτου μόνο για ανάγνωση .

Δημόσια ReadOnly Ακίνητα Ηλικία As Integer

πάρει

Dim RETVAL As Integer

RETVAL = DateTime.Now.Year - _DateOfBirth.Year « Βρείτε το διαφορετικό σε χρόνια

Αν DateTime.Now.Month <_DateOfBirth.Month Ή ( DateTime.Now.Month = _DateOfBirth.Month Και DateTime.Now.Day <_DateOfBirth.Day ) Στη συνέχεια

RETVAL = RETVAL - 1 « Εάν πριν από την γενεθλίων σε αυτό το έτος αφαίρεσης ενός

End If

Ηλικία = RETVAL

End Πάρτε

End ιδιοκτησίας

Χρησιμοποιώντας την τρέχουσα ημερομηνία και η ημερομηνία γέννησης στην τάξη επιτρέπει να υπολογίσει την ηλικία του ατόμου . Το πρόγραμμα που καταναλώνουν δεν χρειάζεται να έχει γνώση του πώς αυτή υλοποιείται . Θα μπορούσε να αποθηκεύει μια πραγματική τιμή ή τον υπολογισμό αυτό .
Η 6

Μια απλή μέθοδος μπορεί να περιλαμβάνει τον προσδιορισμό εάν ένα άλλο πρόσωπο είναι μεγαλύτερο από ό, τι το πρόσωπο που εκπροσωπούνται στο τρέχον αντικείμενο .

GetOlder Public Function ( ByRef δείγμα Όπως clsPerson ) Όπως clsPerson

Αν comp.DateOfBirth > _DateOfBirth τότε

GetOlder = δείγμα

Else

GetOlder = Me

End If

End Function
Η 7

Σε ένα άλλο πρόγραμμα , η τάξη που έχει οριστεί θα χρησιμοποιηθεί σαν αυτό :

Private Sub Button1_Click ( ByVal Ως αποστολέας System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click

Dim cp As New clsPerson

cp.DateOfBirth = " 02.10.1956 "

MsgBox ( cp.Age )

End Sub

να είστε βέβαιος να περιλάβει την «Εισαγωγές clPerson » στην κορυφή του αρχείου που πρέπει να χρησιμοποιήσει το αντικείμενο .
Η

Η