Déclenchement d'events

Question

Bonjour à tous,

Voilà après quelques heures de recherche sur les events je suis parvenu à faire ceci:


    'on crée une class pour les modifications sur une valeur
    Public Class Valeurchanged
        ' on Déclare un événement dans cette class
        Public Event EventValeurChanged(ByVal valeur As Integer)
        ' on définit la méthode qui gère l'événement
        Sub CauseEvent(ByVal valeur As Integer)
            'on ajoute cet événement avec la variable
            RaiseEvent EventValeurChanged(valeur)
        End Sub
    End Class

    Dim WithEvents VC As New Valeurchanged

    Public Sub valeur_changed(ByVal valeur As Integer) Handles VC.EventValeurChanged
        MsgBox("valeur:" & valeur)
    End Sub

'Pour des essais je fais ceci:
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If i = True Then
            Dim str As String
            str = TextBox1.Text
            valeur = CInt(str)
            VC.CauseEvent(valeur)
        End If     
    End Sub

Au départ je voulais créer un event qui se déclenche au moment au je change l'affectation de ma variable valeur, mais je n'y arrive pas. Un petit peu d'aide pourrait m'aider merci.
J'ai déjà penser de vérifier ma variable grâce à un timer mais je préférerais m'en passer si possible, je voudrais déclencher un event lors del'affectation de la variable.
je programme en vb.net

Merci d'avance de votre aide,
Aydendeliadon

cs_Willi · Answer

Salut,
Il faut abonner tes &#233;v&#233;nements au gestionnaire d'&#233;v&#233;nements.
Essais de cette mani&#232;re.

Dim VC as New Valeurchanged

Dans ton Form_Load
AddHandler VC.EventValeurChanged, addressof valeur_changed

Valeur_changed
Public Sub valeur_changed(ByVal valeur As Integer)
     MsgBox("valeur:" & valeur)
End Sub

aydendeliadon · Answer

D'abord merci de m'aider,

Je tiens à signaler que ce que j'ai écrit dans le premier post fonctionne correctement mais que j'aimerais ne pas devoir appeler l'event moi même grâce à VC.CauseEvent(valeur).
J'aimerais que l'event se déclenche comme une textbox_textchanged

Aydendeliadon

jrivet · Answer

Salut,

Est ce que tu es en vb6:

Car en VB6 moi je ne peux pas &#233;crire la ligne suivante:

Dim WithEvents VC As New Valeurchanged

Je suis obliger de la faire en deux lignes

Dim WithEvents VC As Valeurchanged

Set VC = NEW ValeurChanged

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aydendeliadon · Answer

j'ai précisé dans le premier post que j'étais en vb.net

jrivet · Answer

Re,

Oups vraiment d&#233;sol&#233;..
Il est vrai que j aurais pu le lire et m&#234;me le deviner &#224; la vue du code...

Encore une fois j suis confus

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

aydendeliadon · Answer

c'est pas grave julien

je te remercie de t'être penché sur mon problème

aydendeliadon

cs_Willi · Answer

Peut-&#234;tre de cette mani&#232;re mais la je s&#232;che...

CauseEvent dans ta classe:
Sub CauseEvent(ByVal valeur As Integer)

   Static iVal = valeur
   If iVal = valeur then RaiseEvent EventValeurChanged(valeur)

End Sub

cs_Willi · Answer

Oups
Sub CauseEvent(ByVal valeur As Integer)

   Static iVal as Integer = valeur
   If iVal = valeur then RaiseEvent EventValeurChanged(valeur)

End Sub

Déclenchement d'events

8 réponses

Discussions similaires