Evenements sur le changement d'une variable

Question

Bonjour,
Je désire créer une variable boolResult qui est le résultat d'une opération booléenne entre deux booléens. Mais je voudrais créer par un événement par dessus qui déclencherait une action à chaque fois que je changerai la value d'une des deux variables d'origine.
Vous n'auriez pas un exemple qui traine ?
En l'occurrence c'est pour modifier automatiquement une barre de menu.
Merci.
S.

Renfield · Answer

un evenement ? non, sauf si tu utilises un module de classe.

je te propose autre chose :


Dim mTest As Boolean

Public Property Get Test() As Boolean:     Test = mTest: End Property
Public Property Let Test(newValue As Boolean)
    MsgBox "Nouvelle valeur pour 'TEST' : " & newValue
    mTest = newValue
End Property


ensuite, il te suffit de faire :


     Test = (Menu1.Checked or menu2.checked)


pour modifier la valeur de Test, et declencher le MsgBox....

Scalpweb · Answer

Ou alors, tu crée une case à cochée que tu rend invisible. Donc, ta valeur de ne sera pas FALSE ou TRUE, mais 0 ou 1.

Puis, tu mets le code que tu veux dans l'évènement _change de la case.

Cela te permet de simuler une variable...

Scalpweb · Answer

Exemple du code de _change :

Private Sub Case_Change()

 if case.value = 1 then               ' si TRUE

 else                                           ' si FALSE

 end if

End Sub

Evenements sur le changement d'une variable

3 réponses

Discussions similaires