A dirti la verità ho visto che con TypeLib Information si riesce a capire qualcosa di un oggetto o di una classe.
Ho fatto un progettino e riesco a capire quali metodi e quali proprietà espone... Teoricamente dovrebbe dirmi anche quali sono gli eventi ma non è così!...
Questo è più o meno il codice:
Dim s As String
s = ""
Dim objText As TextBox
Dim objTLI As TLI.TLIApplication
Dim objTypeInfo As TLI.TypeInfo
Dim objMember As TLI.MemberInfo
Set objTLI = New TLI.TLIApplication
Set objText = Text1
Set objTypeInfo = objTLI.InterfaceInfoFromObject(objText)
For Each objMember In objTypeInfo.Members
If objMember.InvokeKind = INVOKE_EVENT Then
If s <> "" Then s = s & vbCrLf
s = s & objMember.MemberId & " - " & objMember.Name
End If
Next
MsgBox s
In questo caso dovrebbe mostrarmi gli eventi visto il filtro InvokeKind che metto nel ciclo... però non funziona!!
Ho provato anche con un ocx creato da me... nada........