Une classe VB est le composant de base de la programmation Visual Basic orientée objet. La classe VB est la définition des propriétés et méthodes définies dans le code VB des classes d' . Lorsque la classe est instancié en utilisant une instruction Dim et New elle devient un objet réel en mémoire. Choses que vous devez
Visual Basic. NET
Voir Plus Instructions
écrire du code pour le VB Class
1

Créez un nouveau projet Visual Basic basé sur la classe modèle de bibliothèque . Cela va créer un projet avec le début d'une classe . Nommez le clPerson de bibliothèque de classes .
2

Dans l'explorateur de solutions fenêtres faites un clic droit sur ​​le fichier Class1.vb et renommez-le en « clsPerson.vb ». Cela va changer le nom de la classe dans la fenêtre de codage à clsPerson ainsi .
3

Ajoutez ces deux lignes au sommet de la définition de classe , juste après la «classe clsPerson publique» ligne .

_Name privé As String

_DateOfBirth privé en tant que date

Ce seront les variables internes pour contenir les données concernant la personne . Ils sont définis comme «Privé» si le code en dehors de la classe ne peut pas les changer. Les modifications apportées à ces valeurs seront contrôlés par les méthodes et les propriétés de la classe
4

Ajouter ce code propriétés à la classe : .

Public Propriété Name As String
< p> Obtenez

Name = _sName

Fin Obtenir

Set ( ByVal valeur As String )

_sName = valeur

Fin Set Photos

End bien immobilier

publique DateOfBirth de propriété comme date

Obtenir

DateOfBirth = _DateOfBirth

Fin Obtenir

Set ( valeur ByVal As Date )

valeur > aujourd'hui Puis

throw new ApplicationException ( "Date de naissance doit être aujourd'hui ou avant " )

Else
< p> _DateOfBirth = valeur

End If End

Set

End bien immobilier

Ce sont deux propriétés en lecture -écriture et de stocker leurs valeurs dans les variables privées défini précédemment. La propriété DateOfBirth démontre une certaine manipulation d'erreur rudimentaire en vérifiant que la date de naissance est aujourd'hui ou avant . Si ce n'est pas , une exception est levée qui peut alors être la manipulation par le programme de consommer de la classe.
5

Voici un exemple d'une propriété en lecture seule .

Public ReadOnly propriété Age As Integer

Obtenir

Dim valretour As Integer

retval = DateTime.Now.Year - _DateOfBirth.Year « Trouver le différent dans les années

Si DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month Et DateTime.Now.Day < _DateOfBirth.Day ) Puis

retval = retval - 1 ' Si, avant l' anniversaire en cette année soustraire un

End If

Age = valretour

End Get End Property

utilisant la date et l' la date de naissance dans la classe permet de calculer l'âge de la personne . Le programme consommant n'a pas besoin d' avoir une connaissance de la façon dont cette mise en œuvre. On pourrait stocker une valeur réelle ou calculer.
6

Une méthode simple pourrait impliquer déterminer si une autre personne est plus âgée que la personne représentée dans l'objet actuel .

Publique GetOlder de fonction ( ByRef maquette En clsPerson ) Comme clsPerson

Si comp.DateOfBirth > _DateOfBirth Puis

GetOlder = comp

Else

GetOlder = Me

End If End Function

7

Dans un autre programme , la classe qui a été défini serait utilisé comme ceci:

Private Sub Button1_Click ( ByVal expéditeur comme System.Object , ByVal e As System.EventArgs ) Handles Button1.Click

cp As New clsPerson

cp.DateOfBirth = " 02/10/1956 "
< p > MsgBox ( cp.Age )

End Sub

N'oubliez pas d'inclure le ' importations clPerson "en haut du fichier qui a besoin d'utiliser l'objet.