Discussion :

[Invité]

Bonjour,

Similairement à cette discussion Cacher les sous-type de données dans une structure, je souhaiterai pouvoir cacher automatiquement toutes les variables Private commancant par _. Par cacher, j'entends que les variables ne doivent pas apparaitre dans :
- l'explorateur d'object
- Fenêtre de variables locales
- Fenêtres Espion
- en passant la souris sur une variable.

En bref, totalement cacher toutes les variables contenu dans une structure ou une classe (principalement) commançant par _.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Class C1
    Private _P1 As Long
    Private _P2 As Long
    Private _P3 As Long
    Property P1 As Long
        Get
            Return _P1
        End Get
        Set(value As Long)
            _P1 = value
        End Set
    End Property
    Property P2 As Long
        Get
            Return _P2
        End Get
        Set(value As Long)
            _P2 = value
        End Set
    End Property
    Property P3 As Long
        Get
            Return _P3
        End Get
        Set(value As Long)
            _P3 = value
        End Set
    End Property
End Class

Ici, _P1, _P2 et _P3 devraient tous être caché en définissant un attribut à la classe C1. On peut le faire, mais seulement variables par variables, et l'attribut n'est pas définit sur la classe mais directement sur la variables concerné, et lorsqu'il y a 10 variables Private ...

[clementmarcotte]

Bonjour,

Bonjour,

Similairement à cette discussion Cacher les sous-type de données dans une structure, je souhaiterai pouvoir cacher automatiquement toutes les variables Private commancant par _. Par cacher, j'entends que les variables ne doivent pas apparaitre dans :
- l'explorateur d'object
- Fenêtre de variables locales
- Fenêtres Espion
- en passant la souris sur une variable.

En bref, totalement cacher toutes les variables contenu dans une structure ou une classe (principalement) commançant par _.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Class C1
    Private _P1 As Long
    Private _P2 As Long
    Private _P3 As Long
    Property P1 As Long
        Get
            Return _P1
        End Get
        Set(value As Long)
            _P1 = value
        End Set
    End Property
    Property P2 As Long
        Get
            Return _P2
        End Get
        Set(value As Long)
            _P2 = value
        End Set
    End Property
    Property P3 As Long
        Get
            Return _P3
        End Get
        Set(value As Long)
            _P3 = value
        End Set
    End Property
End Class

Ici, _P1, _P2 et _P3 devraient tous être caché en définissant un attribut à la classe C1. On peut le faire, mais seulement variables par variables, et l'attribut n'est pas définit sur la classe mais directement sur la variables concerné, et lorsqu'il y a 10 variables Private ...

Sauf horreur de ma part, quand une variable, ou une procédure, est déclarée comme Private, elle est inaccessible de l'extérieur de la classe, dans laquelle elle est instanciée. Dans ton cas, tes variables Private sont accessibles à toutes les propriétés/procédures de ta classe, mais elles sont inaccessibles de l'extérieur de ta classe. Mais, de là à dire que tu vas les rendre invisibles de tout observateur, j'en doute...

Le seul contact "avec l'extérieur" de tes variables Private est par l'entremise des propriétés. Si tu veux que ton "utilisateur", qu'il soit humain ou numérique, ne soit pas autorisé à tripoter ta propriété, tu peux la mettre "ReadOnly". Dans de cas; seule une procédure ou une instruction contenue dans la même classe, peut modifier la propriété.

Mais, comme je ne suis pas (encore) passé sur ton autre question, je dois dire que je ne comprends pas vraiment ce que tu as en tête.

[Sehnsucht]

A priori il faudrait marquer tes champs avec l'attribut DebuggerBrowsable en lui donnant pour argument Never

[Invité]

A priori il faudrait marquer tes champs avec l'attribut DebuggerBrowsable en lui donnant pour argument Never

Oui, voilà, mais je souhaiterai marquer toutes les variables qui commencent par _ de manière automatique.

Dans l'exemple que j'ai fourni, c'est le bordel pour 1 seule variable. Pour 5, 10 variables ...
De plus, j'aimerai faire des type de données avec des structures, et j'aimerai si possibles que la structure apparaisse comme si c'était un type de donnée comme le type System.IntPtr.


Voyez-vous ce que je veux dire ?

Par exemple, le type System.IntPtr qui est une structure ne laisse pas apparaitre ces membres lorsqu'on l'observe dans une fenêtre, et c'est bien comme ça. System.IntPtr apparait comme un alias de type de données un peu comme le type LongPtr du VBA 7 sous Excel plutôt que comme une structure normal. C'est pour simuler un Integer en 32 bit et un Long en 64 bit comme en VBA.

Merci pour ces réponses tout de même.

[Invité]

Salut,

Je ne vais pas te montrer comment faire, mais on peut modifier une variable Private depuis l'exterieur, mais là n'est pas le but.
Ma question ne concerne que et seulement la visiblité, pas l'accessibilité.

Pour comprendre, essaie ceci en mode Debug, puis en mode Release:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
#If Not DEBUG Then
<System.Diagnostics.DebuggerStepThrough>
<System.Diagnostics.DebuggerDisplay("{_P1}")>
Class C1
 
    <System.ComponentModel.Browsable(False)>
    <System.Diagnostics.DebuggerBrowsable(System.Diagnostics.DebuggerBrowsableState.Never)>
    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)>
    Private _P1 As Long
#Else
Class C1
 
    Private _P1 As Long
#End If
 
    Property P1 As Long
        Get
            Return _P1
        End Get
        Set(value As Long)
            _P1 = value
        End Set
    End Property
 
End Class
 
Public Class CMain
    Shared Sub Main()
        Dim c1 As New C1 With {.P1 = 1}
    End Sub
End Class

Observe les fenêtres et explorateur d'object pour chaques modes.