DLL PERSONNALISÉ AVEC ÉVÈNEMENTS ET PROPRIÉTÉS EN VB6.

1- Exemple d’une DLL.

    Event CalculeTermine()
    Event ResultatOverflow()

    Dim Valeur1 As Integer
    Dim Valeur2 As Integer
    Dim Resultat As Integer

     'Valeur1 + Valeur2 -> Resultat
Public Sub Additionner()
    	'Vérifier si le résultat est trop grand pour une variable INTEGER
     If (Valeur1 + Valeur2) > 5000 Then
          RaiseEvent ResultatOverflow     'Provéquer l'évènement ResultatOverflow
          Exit Sub                       		 'Quitter la procédure
     End If
    
    	'Faire le calcule
     Resultat = Valeur1 + Valeur2
    
     'Provéquer l'évènement CalculeTermine
     RaiseEvent CalculeTermine
End Sub

‘_____________________________________________________

     'Lecture du contenu de la variable 'Valeur1'
Public Property Get P_Valeur1() As Integer
     P_Valeur1 = Valeur1
End Property

     'Écriture dans la variable 'Valeur1'
Public Property Let P_Valeur1(ByVal NouvelleValeurAs Integer)
     Valeur1 = NouvelleValeur
End Property

‘_____________________________________________________

     'Lecture du contenu de la variable 'Valeur2'
Public Property Get P_Valeur2() As Integer
     P_Valeur2 = Valeur2
End Property

     'Écriture dans la variable 'Valeur2'
Public Property Let P_Valeur2(ByVal NouvelleValeurAs Integer)
     Valeur2 = NouvelleValeur
End Property

‘_____________________________________________________

     'Lecture du contenu de la variable 'Resultat'
Public Property Get P_Resultat() As Integer
     P_Resultat = Resultat
End Property 







2 - Exemple d’un programme CLIENT.

 

Private WithEvents lien As CLASS_X


Private Sub cmdCalculer_Click()
     'Écrire la première valeur dans la DLL
     lien.P_Valeur1 = Val(txtValeur1.Text)
    
     'Écrire la Deuxième valeur dans la DLL
     lien.P_Valeur2 = Val(txtValeur2.Text)
    
     'Faire le calcule (Valeur1 + Valeur2 -> Resultat)
     lien.Additionner
    

   	 '* l'évènement lien_CalculeTermine  est provoqué par la DLL à la fin du calcule
End Sub

Private Sub Form_Load()
    	'Définir le lien avec la DLL
    	Set lien = New CLASS_X
End Sub

Private Sub lien_CalculeTermine()
    	'Aficher le résultat
    	MsgBox lien.P_Resultat
End Sub

Private Sub lien_ResultatOverflow()
    	'Le résultat est limité à 5000 (Choix arbitraire)
    	MsgBox "Résultat plus Grand que 5000."
End Sub