Public Class nomclassebase

End Class

è Membre readonly

On peut affecter une valeur(et lire) à un attribut readonly depuis sa classe

Mais les instances de la classe en aucun cas ne peuvent y affecter une valeur, mais peuvent lire par contre

è Membre writeonly

On peut lire et écrire un membre readonly depuis sa classe

Mais en aucun cas les instances de la classe peuvent lire la valeur de ce membre, ma is peuvent y affecter une valeur par contre

è Shared : attributs et méthodes partagées

Format :

- attribut

Private Shared _mmembre_partage As String

Public Shared Property membre_partage() As String

Get

End Get

Set(ByVal value As String)

_mmembre_partage = value

End Set

End Property

Public Shared Function fonction_partagee() As String

Return "oui ok. methode partagee"

End Function

On peut accéder depuis n’importe ou de l’application (lecture/écriture) ainsi :

Friend NotInheritable Class DepartmentOfMotorVehicles

End Class

è toString : Fonction permettant de retourner l’ensemble des valeurs des attributs de la classe

Public Overrides Function ToString() As String

Return

"accesseur1: " & accessuer1 & vbCrLf & _

"accesseur2: " & accessuer2 & vbCrLf

End Function

è sub new : utiliser Me.nomattribut pour différencier attribut de la classe visé et la variable reçue

Sub New(ByVal AccountNumber As String)

Me.AccountNumber = AccountNumber

End Sub

à passer un paramètre et l’utiliser dans un property

Public Property DefaultQuantity(ByVal Multiplier As Integer) As Integer

Get

Return custDefaultQuantity * Multiplier

End Get

Set(ByVal Value As Integer)

custDefaultQuantity = Value

End Set

End Property

è compteur d’instances

1 dans sub new on ajoute

Sub New()

Nb += 1

End Sub

2 property

Public ReadOnly Property NbInstance()

Get

End Get

End Property

Protected Overrides Sub Finalize()

nominstance = Nothing

End Sub

Pour forcer la destruction on peut utiliser l'interface IDisposable:

Il faut mettre dans l'entête de la classe

o Implements IDisposable

et mettre dans le code de la classe

Public Sub Dispose() Implements System.IDisposable.Dispose

' Code...

End Sub

C’est une méthode Public, on peut l'appeler de l'application cliente:

M=Nothing

Public Class classeherite_classebase1_1

Inherits classebase_1

End Class

- Inherits nomclassebase

- Posséde des attributs et propertys associés qui sont propre à la classe dérivée (c’est la tout l’intêret de créer une classe dérivée)

- Fait appel dans son constructeur au constructeur de sa classe de base MyBase.new()

Public Sub New()

MyBase.new()

End Sub

- On peut accéder aux attributs (ou plutôt aux accesseurs) et aux méthodes de la classe de base directement par leur nom depuis l’intérieur de la classe dérivée :

§ A la rigueur on peut ajouter MyBase (MyBase.nom_attribut_classe_base, MyBase.nom_methode_classe_base)

- Sinon un objet declaré de la classe derivee (depuis n’importe quel endroit de l’application) a accés aux attributs ainsi

Public Class classeherite_classebase1_1

Inherits classebase_1

Public Sub New()

MyBase.new()

End Sub

End Class

è CAS attributs(accesseurs) et méthodes classe base déclarés en PROTECTED

Les instances de la classe dérivée n’ont plus accès aux attributs et méthodes déclarées en protected

è Overloads : permet d’avoir :

- Une instance de la classe héritée accedera à la méthode Overloads de la classe héritée

Format : dans la classe de base

Public Class classe_base_2_pour_overload

Protected attribut_classe_base_1 As String

Protected attribut_classe_base_2 As String

Public Function Register()

attribut_classe_base_1 = "depuis classe base"

Return attribut_classe_base_1

End Function

End Class

Public Class classe_heritant_classebase_2_overload

Inherits classe_base_2_pour_overload

Public Overloads Function Register() ', ByVal p2 As String)

attribut_classe_base_1 = "depuis classe derivee"

'attribut_classe_base_2 = p2

Return attribut_classe_base_1

End Function

End Class

II – Classe abrégée et classe héritant d’une classe abrégée (méthodes à implémenter)

Public MustInherit Class classe_abregee_1

End Class

Public MustOverride Function fonction_classe_abregee() As String

Public Class classe_implementant_classe_abregee

Inherits classe_abregee_1

End Class

Public Overrides Function fonction_classe_abregee() As String

End Function

è Attribut accesseur (property) devant être implémenté par les classes héritant de la classe abrégée

Format : dans la classe abrégée

Dans la liste des attributs

Protected currentValueValue As Decimal

Puis à la place de déclaré complétement le property correspondant :

Public MustOverride Property CurrentValue() As Decimal

Public Overrides Property CurrentValue() As Decimal

Get

Return currentValueValue

End Get

Set(ByVal Value As Decimal)

currentValueValue = Value

End Set

End Property

III – Interface de classe et classe implémentant l’interface de classe

INTERFACE DE CLASSE

L’interface de classe ne contient que des méthodes abrégées (prototype de méthodes sans le corps) que devront obligatoirement implémentant les classes implémentant cette interface de classe

Pas d’attributs, ni d’accesseurs, ni de constructeur …

è interface de classe

Public Interface nom_classe_interface

End Interface

è méthodes abrégées de l’interface

- format des méthodes abstraites déclarées dans l’interface de classe

o Function fonction_classe_interface_1() As String

Classe implémentant interface de classe

Les classes implémentant (implements nominterface) ces interfaces de classes peuvent elles par contre posséder des constructeurs ,attributs,autres méthodes et peuvent également en plus hérité d’une autre classe (Inherits nomclassebase)

è Classe implémentant interface

- Format ajouter : Implements nom_classe_interface

o Public Class Classe_implemantant_interface_classe

Implements classe_interface

End Class

(des prototypes déclarés dans l’interface de classe) apparaissent avec :

Implements nom_classe_interface.nom_fonction_classe_interface_implémenter

( Montrant que vous implémentez bien cette fonction abrégée )

è Méthodes implémentant méthodes abrégées de l’interface de classe

Public Function fonction_classe_interface_1() As String Implements classe_interface.fonction_classe_interface_1

End Function

- Pour accéder aux méthodes de la classe implémentant les méthodes abrégées de l’interface de classe

è le mot clé handles permet d'associer un événement à une procédure au moment de la conception. (Le concepteur sait qu'une procédure doit gérer les événements).

è AddHandler permet d’associer une procédure de gestion d’évênement à un composant créé dynamiquement

1ere méthode (avec AddHandler monbouton.Click, AddressOf monbouton_clique)

1 – on déclare notre composant

Dim monbouton As New System.Windows.Forms.Button

2 - On défini les propriétés de ce composant créé dynamiquement et on l’ajoute à la form désirée

monbouton.Location = New System.Drawing.Point(165, 400)

monbouton.Size = New System.Drawing.Size(222, 23)

monbouton.Text = "mon bouton "

Me.Controls.Add(monbouton)

3– on créé l’EventHandler pour ce composant

AddHandler monbouton.Click, AddressOf monbouton_clique

4– on définit la procédure qui traitera l’évênement

Private Sub monbouton_clique(ByVal sender As System.Object, ByVal e As System.EventArgs)

MessageBox.Show("vous avez cliqué sur mon bouton")

End Sub

On peut également utiliser la même procédure pour plusieurs composants

AddHandler BT1.Click, AddressOf BoutonClique

AddHandler BT2.Click, AddressOf BoutonClique

On détermine le bouton cliquer ainsi dans la procédure de gestion d’évênement :

If sender Is BT1 Then . . .

2eme méthode (avec private WithEvents et Handles composant.évênement)

1 – déclarer en haut de MainForm

Private WithEvents monbouton As Button

2 – définir les propriétés du bouton et ajouter ce bouton à la form

monbouton = New System.Windows.Forms.Button

monbouton.Location = New System.Drawing.Point(165, 400)

monbouton.Size = New System.Drawing.Size(222, 23)

monbouton.Text = "mon bouton "

Me.Controls.Add(monbouton)

3- définir la procédure de gestion d’évênement

Le plus important c’est Handles monbouton.Click qui définit le composant et l’évênement lié

Private Sub monbouton_clique(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles monbouton.Click

MessageBox.Show("vous avez cliqué sur mon bouton")

End Sub

3eme méthode : évênements de classe

Dans cet exemple si le texte est différent de « hello » alors l’évênement est déclenché : une boite de dialogue apparait

Public Event TextChange(ByVal UserName As String)

2 – dans la classe > déclenchement de l’évênement défini ci-dessus

RaiseEvent TextChange("hello")

3 – créer dans la form, deéclarer en haut + M=new class1 (dans form_load)

Private WithEvents M As Class1

4 – dans la form, ajouter la procédure

Private Sub M_TexteChange(ByVal UserName As String) Handles M.TextChange

messageBox.show("le texte a changé")

End Sub

Public Class Class1

Private _mTexte As String

' Déclare un évènement

Public Event TextChange(ByVal UserName As String)

Public Property Texte()

Get

Return _mTexte

End Get

Set(ByVal Value)

If Value <> _mTexte Then

RaiseEvent TextChange("hello") '<= déclenchement de l'évènement par RaiseEvent

End If

End Set

End Property

End Class

V Shared sub main

APPROCHE OBJET

Public Class main

Public Shared Sub main()

...

End Sub

End Class

Module module1

Sub main()

....Créer une instance du formulaire de démarrage et l'ouvrir

End Sub

End Module

- Option explicit et strict

Option Strict=On >type de données définis et ce strictement

Option Explicit=On >déclaration obligatoire avant utilisation

- Employer des constantes

Const nomconstante As Integer = 123

Ainsi on utilise la constante au lieu de la valeur, et cela permet de modifier qu’à un endroit toutes les valeurs

- Namespaces : permettent dans un Assembly d’éviter les conflits si par ex 2 classes ont une méthode de même nom

On appellera ce qui lève toute ambigüité

o nomespace.nommethode

VI – classe simple et classes collections

Classe simple :

- attributs private + propertys

- constructeur,destructeur

- méthodes portant sur un élément

Public Class website

Private _mname As String

Private _murl As String

Public Sub New()

End Sub

Public Property name() As String

Get

End Get

Set(ByVal value As String)

_mname = value

End Set

End Property

Public Property url() As String

Get

End Get

Set(ByVal value As String)

_murl = value

End Set

End Property

End Class

- inherits System.Collections.CollectionBase

- constructeur

è Add,insert,Item,removeat

o Add : écriteure à la fin de la collection

o Insert : insertion à l’emplacement spécifié

Public Class websites

Inherits System.Collections.CollectionBase

End Class

Public Sub New()

End Sub

Public Sub Add(ByVal un_website As website)

List.Add(un_website)

End Sub

Public Sub insert(ByRef index As Integer, ByVal un_website As website)

List.Insert(index, un_website)

End Sub

Public ReadOnly Property Item(ByVal index As Integer) As website

Get

Return CType(List(index), website)

End Get

End Property

Public Sub RemoveAt(ByVal index As Integer)

List.RemoveAt(index)

End Sub