Cours VB.NET

Date de mise à jour : 05/12/2010

VI. Classes

Voir la vidéo : au format 'Flash'> ou au format 'Avi' en Visual Basic 2005.

VI-A. Espace de noms, Classes, Objet

VI-A-1. Classes

Dim B As New Form ' crée un formulaire( une instance de formulaire) 
'à partir de la Classe Form (Fenêtre).

VI-A-2. Essayons de comprendre

1. Que la Dll correspondante soit chargée dans le projet. (La Dll c'est un fichier exécutable '.dll' qui contient le code nécessaire; le Framework en comporte plusieurs). En VB.NET on appelle cela la 'Référence' (Dans 'Explorateur de solutions')Exemple de Dll:

   System.dll

2. Que l'espace de nom soit importé: une Dll contient des espaces de noms dans lesquelles se trouvent les Classes. Pour utiliser une Classe il faut inclure l'espace de noms correspondant dans le programme donc il faut l'importer à partir de la Dll . On va par exemple importer l'espace de nom 'System.Windows.Forms' ( il est dans System.dll et contient les Classes 'Form' et 'Control'):

   Imports System.Windows.Forms

3. On peut maintenant utiliser les Classes contenues dans cet espace de nom et créer un objet. par exemple on va créer une fenêtre avec la Classe Form contenue dans System.Windows.Forms.

   Dim Form1 As New Form

   Form1 est donc un objet formulaire qui hérite de tous les membres (Propriétés, méthodes) de la Classe Form, on peut donc utiliser une méthode de cet objet:

   Form1.Show() 'pour faire apparaître la fenêtre

   ou une propriété:

   Form1.BackColor=Color.Red 'pour modifier la couleur de fond

Les Classes les plus courantes sont déjà chargées et disponibles, ce qui simplifie un peu les choses.

VI-A-2-a. Détails en VB 2003

VI-A-2-a-i. Les Références

• .NET - Répertorie tous les composants .NET Framework pouvant être référencés. (Certains sont déjà chargés comme System..) et les composants extérieurs NET.
• COM - Répertorie tous les composants COM pouvant être référencés (ceux qui fonctionnaient en VB6).
• Projets - Répertorie tous les composants réutilisables créés dans des projets locaux.

VI-A-2-a-ii. Importation d'espace de noms

Imports System.Math

Label1.Text = (Round(1.2)).ToString 'qui affiche 1.

VI-A-2-b. Détails en VB 2005 2008 2010

VI-A-2-b-i. Les Références

• .NET - Répertorie tous les composants .NET Framework pouvant être référencés. (Certains sont déjà chargé comme System..) et les composants extérieurs NET.
• COM - Répertorie tous les composants COM pouvant être référencés (ceux qui fonctionnaient en VB6).
• Projets - Répertorie tous les composants réutilisables créés dans des projets locaux. (D'autres programmes VB)
• Parcourir permet de rechercher ; Récent liste les DLL récemment chargées.

VI-A-2-b-ii. Importation d'espace de noms

Imports System.Math

Label1.Text = (Round(1.2)).ToString 'qui affiche 1.

VI-A-2-b-iii. Portée de l'espace de noms

VI-A-2-b-iiii. Propriété ambiguë

MonControle.Left=250  'est accepté

Chaine= Left(C,2)     'pose des problèmes.

Chaine= Microsoft.VisualBasic.Left(C,2) 'est accepté.

VI-A-2-b-iiiii. Alias

 Chaine=STR.Left(C,i)

En résumé: Les Classes sont dans des espaces de nom qui sont dans des Dll (références). ou Les 'Dll' contiennent des 'Espaces de noms' contenant des 'Classes'. Les références ( Dll) permettent de charger des composants, des Classes du Framework ou d'autres classes. L'instruction 'Imports' permet d'importer des espaces de nom venant de ses références. Cela donne accès dans le programme à des classes. on pourra donc instancier des objets grâce à ces Classes puis utiliser des méthodes.

VI-A-2-b-iiiiii. Héritage

VI-A-2-b-iiiiiii. Membre d'instance et membre partagé

• Un membre peut être accessible directement sur un instance : on appelle cela un membre d'instance.
  Exemple:
  
  
  Dim A As String crée une variable A , en fait une instance, un objet à partir de la Classe String.
  
  
  Ensuite on peut utiliser:

  B=A.Trim(" ") 'ici Trim enlève les blancs en début et fin de chaîne.

  Trim est bien une méthode qui s'applique à une instance (A).
  
  
• Un autre membre peut être accessible par les méthodes de la classe (en non pas de l'instance) :
  La Classe de sa nature, de son type.
  
  
  Dans la classe 'String' j'utilise la méthode Compare pour comparer 2 chaînes.
  
  
  c=String.Compare(a,b)
  
  
  J'utilise 2 paramètres, mais j'appelle la méthode directement à partir de la Classe String.
  
  
  La Classe de l'opération à effectuer:
  
  
  Dans la Classe Math j'utilise la méthode Abs (Valeur absolue):
  
  
  c= Math.Abs(-12)
  
  

VI-A-2-b-iiiiiiii. Classes statiques ou non

Directory.GetCurrentDirectory    'est utilisable directement pour obtenir le répertoire courant. 

Dim D As DirectoryInfo

D= New DirectoryInfo( MonDossier)

VI-B. Les différentes Classes, le Framework

VI-B-1. Les différentes 'Classes'

VI-B-1-a. Les classes du Framework fournies par Microsoft avec VB

• pour les formulaires Windows (WindowsForms) ;
• pour le Web (WebForms) ;
• pour l'accès aux données ;
• pour les réseaux ;
• pour la sécurité ;
• etc.

Quand on crée un nouveau projet, les Classes le plus souvent utilisées sont automatiquement chargées dans le projet:

VI-B-1-b. Les classes fournies par des tiers

VI-B-1-c. Les Classes écrites par le programmeur

VI-B-2. Dans Visual Basic.Net

• Les Classes du Framework, leurs propriétés, leurs méthodes. Les Forms, Controls, les classes des variables (String, Int32..) sont disponibles par défaut. (voir annexe 1)
• Les instructions VB.Net de Microsoft.VisualBasic disponible par défaut. Ce sont des instructions VB bien connues (Left, Int, IsNumeric.. ) (voir annexe 2)
• A oublier: Les instructions de la bibliothèque de compatibilité VB6. il faut dans ce cas importer Microsoft.VisualBasic. Compatibility et Microsoft.VisualBasic. Compatibility.Data, ces instructions sont là pour aider à la conversion, elles permettent d'utiliser des fonctions qui n'existent plus en VB.Net (comme les chaînes fixes par exemple), il faut les éviter impérativement car ce n'est pas du VB.Net et elles disparaîtront probablement dans les futures versions.

VI-B-3. Lors de la création d'un nouveau projet

• Quelques espaces de nom contenant des classes du Framework:

VI-B-4. Framework 1, 2, 3, 3.5, 4.

Le framework 4.0 peut être utilisé par VB 2010.

VI-C. Le CLR

VI-D. Procédures évènement, surcharge de méthode

VI-D-1. Évènement et procédure évènement

Sub Maroutine() Handles Button1.Click

End Sub

Private Sub Button1_Click() Handles Button1.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles Button1.Click

End Sub

VI-D-2. Différentes méthodes pour gérer les évènements

Friend WithEvents Button1 As System.Windows.Forms.Button

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles Button1.Click

End Sub

Dim Button1 As New Button
AddHandler Button1.Click, addressOf BoutonClick


Sub BoutonClick
...
End Sub

RemoveHandler Button1.Click, addressOf BoutonClick

VI-D-3. Surcharge de Méthode

Voici une fenêtre MessageBox:

Reponse= MessageBox.show(TexteAAfficher,Titre, TypeBouton etIcone, BoutonParDéfaut)

Reponse= MessageBox.show(TexteAAfficher)

VI-E. L'écriture 'Compact'

Dim s As String

s = "Philippe. Jean . Toto" 

Dim s As String= "Philippe. Jean . Toto" 

Dim t As Single =  (3* Int(u))-2)

Dim s As String= "Philippe. Jean . Toto" 

Dim sep() As Char={" "c, ","c, "."c}

Dim nom() As String 'Tableau des noms

nom = s.Split ( sep, 100, StringSplitOptions.RemoveEmptyEntries )

Dim nom() As String = "Philippe. Jean . Toto".Split(New Char() {" "c, ","c, "."c, ":"c}, 100, _
StringSplitOptions.RemoveEmptyEntries)

Function Carré ( v as Single) as Single

    Return v*v

End Function

Function Inverse ( v as Single) as Single

    Return -v

End Function

 

Dim resultat As Single

Dim resultatintermediaire1 As Single

Dim resultatintermediaire2 As Single

resultatintermediaire1= Carré(2)        

resultatintermediaire2 = Inverse (resultatintermediaire1)

resultat= Int(resultatintermediaire2)

Dim resultat As Single = Int(Inverse(Carré(2)))

L'écriture compacte du code est plus ramassée, moins 'lourde', avec moins de variables intermédiaires mais on perd en lisibilité parfois.

Dim resultat As Single = Int(Inverse(Carré(2))) 'Cet exemple est compact mais lisible.

Dim nom() As String = S.Split(New Char() {" "c, ","c, "."c, ":"c}, 100, _ 
StringSplitOptions.RemoveEmptyEntries) 
'C'est moins lisible

VI-F. Notion de flux ou 'Stream'

Dim SW As New StreamWriter ("MonFichier.txt") ' crée ou si existe écrase

Dim SW As New StreamWriter ("MonFichier.txt", True) ' crée ou si existe ajoute

Dim SW As  StreamWriter=File.CreateText ("MonFichier.txt") ' crée ou si existe écrase

Dim SW As StreamWriter = File.AppendText("MonFichier.txt") ' crée ou si existe ajoute

 

SW.WriteLine ("Bonjour")

SW.WriteLine ("Monsieur")

SW.Close()

Dim SR As New StreamReader ("MonFichier.txt")

Dim SR As  StreamReader=File.OpenText ("MonFichier.txt") '

1. Utiliser ReadToEnd qui lit en bloc jusqu'à la fin.
2. Avant ReadLine mettre un Try: quand l'erreur 'fin de fichier' survient elle est interceptée par Catch qui sort du cycle de lecture et ferme le fichier.
3. Utiliser Peek qui lit dans le fichier un caractère mais sans modifier la position courante de lecture.
   La particularité de Peek est de retourner -1 s'il n'y a plus de caractère à lire sans déclencher d'erreur, d'exception.
   
   

Do Until SR.Peek=-1

     Ligne=SR.ReadLine()

Loop

SR.Close()

Les sources présentés sur cette page sont libres de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright © . Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.