5 Class ClassD_vbs : Public FullPath : End Class
\r
10 .FullPath = g_SrcPath
\r
15 Sub get_StaticObjects( InterfaceName, out_Obj )
\r
16 If IsEmpty( InterfaceName ) or InterfaceName = "ClassI" Then
\r
17 Set out_Obj = get_ClassD()
\r
22 '-------------------------------------------------------------------------
\r
23 ' ### <<<< [ClassD] Class >>>>
\r
24 '-------------------------------------------------------------------------
\r
27 Function get_ClassD() '// has_interface_of ClassI
\r
28 If IsEmpty( g_ClassD ) Then _
\r
29 Set g_ClassD = new ClassD
\r
30 Set get_ClassD = g_ClassD
\r
34 Class ClassD '// has_interface_of ClassI
\r
35 Public Property Get Name() : Name = TypeName(Me) : End Property
\r
36 Public Property Get TrueName() : TrueName = TypeName(Me) : End Property
\r
37 Public Sub Validate() : End Sub
\r
38 '--- Name is factory pattern.
\r
40 Public Property Get DefineInfo() : Set DefineInfo = g_ClassD_vbs : End Property
\r
43 Public Function Method1() : Method1 = "ClassD.Method1" : End Function
\r