vb.net pour Excel (dll) et Intellisense, comment masquer Equals, GetType, GetHashCode et ToString sous Excel ?

Version imprimable

16/05/2014, 00h03
philoul

vb.net pour Excel (dll) et Intellisense, comment masquer Equals, GetType, GetHashCode et ToString sous Excel ?

Bonjour,

J'écris une dll pour l'utiliser (entre autre) sous Excel en VBA.

J'ai intégrer la ligne :

<ClassInterface(ClassInterfaceType.AutoDual), ComVisible(True)> _

Avant chaque déclaraation de mes classes pour activer l'intellisense sous Excel. Jusque là tout fonctionne (j'ai activé l'inter Op... et regasm), sauf que en plus de mes propriétés et méthodes, j'ai également 3 méthodes supplémentaires et une propriété qui ne me servent à rien et viennent polluler mon affichage lorsque je code en VBA :

Equals
GetType
GetHashCode
ToString

En recherchant sous google, j'ai lu que ces propriétés sont en fait héritées de la classe Object mais sont souvent complètement inutile pour l'utilisateur final.

Y a-t-il un moyen (dans le code ou le paramétrage de l'interopérabilité entre .net et COM), de masquer ces méthodes et cette propriété pour n'avoir que celle codées dans mes class ?

J'ai eu beau chercher je n'ai rien trouvé à ce sujet (ou plutôt des questions sur comment faire, souvent en anglais et en C, mais sans vraiment de solution et encore moins en VB), pourtant il y a plein d'objets dispo au travers d'autres dll (cf liste dans les références) pour lesquels ces méthodes n'apparaissent pas...

Quelqu'un sait-il comment faire pour les masquer ?

Merci

Philoul

bonjour

La visibilite à com pour les class comme les props,methodes est controle par l'attribut :

Code:

1
2
 
 <ComVisible(False)>

Ceci permet de n'exposer que les props et methodes voulus à Com et l'ensemble à .Net .
Bien entendu ces props et methodes doivent etre publiques...
Pour les props heritees il faut les redclarer avec overrides ou overloads sans les modifier...

exemple:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Imports System.Runtime.InteropServices
 
<ComClass(MyComClass.ClassId, MyComClass.InterfaceId, MyComClass.EventsId)> _
Public Class MyComClass
 
#Region "GUID COM"
    ' Ces GUID fournissent l'identité COM pour cette classe 
    ' et ses interfaces COM. Si vous les modifiez, les clients 
    ' existants ne pourront plus accéder à la classe.
    Public Const ClassId As String = "EA784A1F-E439-4957-8C6D-BF3A671260EF"
    Public Const InterfaceId As String = "1AC7BA18-0A23-4572-9504-6B54A039B6FC"
    Public Const EventsId As String = "F11F069C-053A-4910-89E3-B7956221E966"
#End Region
 
    ' Une classe COM pouvant être créée doit avoir Public Sub New() 
    ' sans paramètre, sinon, la classe ne sera pas 
    ' inscrite dans le Registre COM et ne pourra pas être créée 
    ' via CreateObject.
    Public Sub New()
        MyBase.New()
    End Sub
    'PROP VISIBLE À NET & COM =>  PAR  DEFAUT
    Public ReadOnly Property OtherName As String
        Get
            Return "BoboNet & Com"
        End Get
 
    End Property
 
    'PROP VISIBLE À .NET SEULEMENT
    <ComVisible(False)>
    Public ReadOnly Property Name As String
        Get
            Return "BoboNet"
        End Get
 
    End Property
 
    <ComVisible(False)>
    Public Overrides Function GetHashCode() As Integer
        Return MyBase.GetHashCode()
    End Function
    <ComVisible(False)>
    Public Overrides Function ToString() As String
        Return MyBase.ToString()
    End Function
End Class

bon code......

16/05/2014, 20h21
philoul
Bonjour et merci pour la réponse, (qui m'a presque permis de résoudre mon problème et en plus d'améliorer mon code avec l'ajout de la Sub New())

Cela marche nickel pour ToString, GetHashCode, et Equals qui ont bien disparu de l'intellisense, en revanche je n'arrive pas à traiter "GetType" :

J'ai écris le code suivant :
Code:

1 2 3 4 <ComVisible(False)> Public Overrides Function GetType () As Type Return MyBase.GetType() End Function
Mais j'ai l'erreur "Keyword is not valid identifier" sur le nom de fonction "GetType"

Philoul
17/05/2014, 01h50
MABROUKI

re

Bizarre ,moi en revanche en .Net 4.0 je n'ai pas de GetType() dans l'intellisense en vba.
Ni dans les overrides ou overloads en vb.net ...
De plus pour Msdn Doc les seules methodes surchargeables sont (citation):

Citation:

Les classes dérivées peuvent substituer certaines de ces méthodes, notamment :

Equals - Prend en charge les comparaisons entre objets.

Finalize - Effectue des opérations de nettoyage avant qu'un objet soit automatiquement récupéré.

GetHashCode - Génère un nombre correspondant à la valeur de l'objet pour prendre en charge l'utilisation d'une table de hachage.

ToString - Fabrique une chaîne de texte explicite qui décrit une instance de la classe.

Pour GetType() ca n'est donc pas possible helas...
bon code...
17/05/2014, 10h44
philoul

Ok, en tout cas merci pour ton aide.

Problème résolu (au GetType près...)

Philoul

Bonjour,

C'est parce que GetType est considéré comme étant un mot clé. Et lorsqu'on est dans ce cas, il faut encadrer le mot clé par des crochets.

Ce qui donne :
Code:

1 2 3 4 <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> Public Overloads Function [GetType]() As Type Return MyBase.GetType End Function