Contenue : 2 x source (La DLL + Programme d'utilisation)
Évènement dans un programme CLIENT, gèrer par une DLL personnalisé. (Event, WithEvent)
Propriétés de la DLL.(Property Get et Let)
Procédures de la DLL.
- J'ai aussi publié un tutoriel sur le sujet ******************
Source / Exemple :
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
Conclusion :
- J'ai aussi publié un tutoriel sur le sujet ******************
J'espère que mon programme exemple vous apportera ce qui vous manque.
Si vous avez des commentaire ou des question, ne vous gênez pas.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.