Discussion :

[Orbeaman]

Bonjour,

Est-ce possible d'associer un object à un champ d'un autre sans le nommer, car je manque souvent d'inspiration pour trouver des noms de variables / objets pas trop ambigus ?

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
 
dim objA as new ClassA
 
With New ClassB
 
    .propertyVariable = variable
    ...
    set .propertyObject = object
    ...
    .method1
    ...
 
    'implicit association of the Class instance (with no explicit name) 
    set objA.propertyOfClassB = me 'me doesn't points to with, but to the "parent" object
 
end with

au lieu de

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim objA as new ClassA
 
dim objB as New ClassB
 
with objB
   ...
end with
 
set objA.propertyClassB = objB

Merci par avance

[Arkham46]

Bonjour,

Si je comprends bien, pour faire cela j'ajoute une propriété Self :

Code :

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

1
2
3
4
5
6
'---------------------------------------------------------------------------------------
' Cet objet (utile dans un With par exemple)
'---------------------------------------------------------------------------------------
Public Property Get Self() As ClassB
Set Self = Me
End Property