Dll personnalisé avec évènements et propriétés en vb6.

Soyez le premier à donner votre avis sur cette source.

Vue 4 690 fois - Téléchargée 675 fois

Description

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.

Codes Sources

A voir également

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.