[VB.Net 2010;2013]Gestion des évènements (DLL, tlb ) Et VBA Excel
Bonjour,
J’ai développé une DLL qui après exécution génère un événement que je voudrai intercepter dans une application VBA Excel !
quand je regarde sur internet, je trouve une implémentation de WithEvents( VB.net), mais elle me propose des événement d'un contrôle standard Clik, change etc...
si j’excepte l'affectation du WithEvents et Sub scr_Acction () elle fonctionne!
Code:
1
2
3
4
5
6
7
| Public Class toto
Delegate Sub _Acction()
Event Acction As _Acction
Public Sub Run()
RaiseEvent Acction()
End Sub
End Class |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Private WithEvents scr As ScriptControlRD.ScriptControlRD
Public Property Let Language(Value As String)
scr.Language = Value
End Property
Public Property Get Language() As String
Language = scr.Language
End Property
Public Sub AddCode(Code)
scr.AddCode Code
End Sub
Public Sub AddObject(Virtuel As String, Phisique As Object)
scr.AddObject "This", ThisWorkbook
End Sub
Public Sub ModulesAdd(Modul As String)
scr.ModulesAdd Modul
End Sub
Public Sub Run(Optional ByVal Metthode As String = "")
scr.Run Metthode
End Sub
'là je voudrai récupéré l'événement!
Private Sub scr_Acction ()
End Sub
Private Sub Class_Initialize()
Set scr = New ScriptControlRD.ScriptControlRD
End Sub
Private Sub Class_Terminate()
Set scr = Nothing
End Sub |
