desactivation du withEvent

[culnuteurdebase]

voici un petit bout de code.

 

Comment on peut desactiver la gestion d' évenement?

 

Public WithEvents PLine As AcadLWPolyline

Sub Example_Modified()

...

Set PLine = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)

PLine.TrueColor = color

 

End Sub

 

Private Sub PLine_Modified(ByVal pObject As AutoCAD.IAcadObject)

 

MsgBox "You just modified an object with an ID of: " & pObject.ObjectID

 

' ici je veux annuler la gestion d'evenement

pObject.layer = "0"

 

End Sub

[winfield]

Moi y en pas avoir compris toi

.....normal je suis même pas optione ;)

[culnuteurdebase]

Ok je vais essayer d'etre plus clair

 

:cool:

 

je veux pouvoir desactiver les withevents dans mon code à n'importe quel moment...

 

 

:P

 

 

 

[winfield]

Salut, peut-être pas très pro mais ça marche

Dans le module :

Public MaCommande As New clsEvenementObjet1

 

Public Sub Titi()

Set MaCommande.MaCommande = ThisDrawing.Application

End Sub

 

Sub Hello()

MsgBox "Le dessin s'auto-détruira dans 20 s."

End Sub

dans le module de classe :

Public WithEvents MaCommande As AcadApplication

 

Public Sub MaCommande_BeginCommand(ByVal CommandName As String)

VarUSERS1 = ThisDrawing.GetVariable("USERS1")

If VarUSERS1 = 1 Then

Exit Sub

Else

If CommandName = "QSAVE" Or CommandName = "PLOT" Then

MsgBox "Le fichier est sauvegardé"

Else

Hello

End If

End If

End Sub