|
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 "
MsgBox ( cp.Age )
End Sub
N'oubliez pas d'inclure le ' importations clPerson "en haut du fichier qui a besoin d'utiliser l'objet.
|
