Jak uzyskać wartości właściwości klas implementujących interfejs w oknie Locals?

Question

To naprawdę przeszkadza mi i przeszkadza w rozwoju/debugowaniu. Ilekroć deklaruję typ zmiennej interfejsu, który implementuję, okno Locals nie pokazuje jego wartości właściwości. Zamiast po prostu czyta

Obiekt nie obsługuje tej właściwości lub metody

Która jest głupie, bo absolutnie nie. W rzeczywistości to ma, aby spełnić swoją umowę z interfejsem.

Jeśli zadeklaruję zmienną jako konkretną implementację interfejsu, okno działa zgodnie z oczekiwaniami. Jednak to całkowicie odrzuca cel kodowania do abstrakcji na początku.

Jak mogę uzyskać okno locals, aby poprawnie wyświetlać wartości właściwości klasy?

Minimal, kompletne i weryfikowalne Przykład:

Utwórz klasę IClass do wykorzystania jako interfejs.

Option Explicit 

Public Property Get Name() As String 
End Property 

Utwórz Class1, który implementuje interfejs.

Option Explicit 

Implements IClass 

Public Property Get Name() As String 
    Name = "Class1" 
End Property 

Private Property Get IClass_Name() As String 
    IClass_Name = Name 
End Property 

I wreszcie, niektóre kod testowy w zwykłym module .bas w celu zilustrowania problemu.

Option Explicit 

Public Sub test() 
    Dim x As Class1 
    Dim y As IClass 

    Set x = New Class1 
    Debug.Print x.Name 

    Set y = New Class1 
    Debug.Print y.Name 

    Stop 
End Sub 

Answer 1

mogę się mylić, ale myślę, że może to mieć coś wspólnego ze sposobem zajęcia instancja w VBA.

Na przykład:

Dim oClass1 as Class1 
Set oClass1 = new Class1 

jest inny niż

Dim oClass1 as New Class1 

w drugim przypadku uważam, że konstruktor nie sprawdzony aż właściwość jest dostępna.

Jeśli spróbujesz, zobaczysz właściwość w oknie Watch. Zwróć uwagę na nowe w IClass - tylko do demonstracji - Wiem, że jej nie sposób to zrobić :)

Public Sub test1() 

    Dim x As Class1 
    Dim y As IClass 

    Set y = New IClass 
    Set x = New Class1 
    Debug.Print x.Name 
    Debug.Print y.Name 
    Stop 

End Sub 

Podejrzewam jej coś z tym i okna zegarka wymaga to ... może ...