又出错错错啦！！赵旭斌老师书中类的继承模式例子

yinjiajia0626

求大神看！出错图片
不知道是不是书印刷错误，if和else里面的内容一样啊，都是 child(key)=super(key)
源代码如下：

1. Class ClassHelper
   
2.    Private dict
   
3.           '添加方法
   
4.           Public default function addMethod(name)
   
5.                  Set dict(name)=getRef(dict("type")&name)
   
6.           End Function
   
7.           '创建字典对象
   
8.         Private function CreateDict()
   
9.            Set CreateDict=CreateObject("scripting.dictionary")
   
10.         End Function
    
11. 
    
12.         '复制字典对象
    
13.         Private function CopyDict(super,child)
    
14.            Dim key
    
15.            For each key in super
    
16.                    If isobject(super(key)) Then
    
17.                            Set child(key)=super(key)
    
18.                            Else
    
19.                            child(key)=super(key)
    
20.                    End If
    
21.            Next
    
22.            Set CopyDict=child
    
23.         End Function
    
24. 
    
25.         '新建一个类
    
26.         Public function newClass(name)
    
27.         Set dict=CreateDict()
    
28.         dict("type")=name
    
29.         Set newClass=dict
    
30.         End Function
    
31. 
    
32.         '继承方法
    
33. Public function extends(super,childType)
    
34.    Set dict=CopyDict(super,child)
    
35.    Set dict("parent")=super
    
36.    dict("type")=childType
    
37.    Set extends=dict
    
38. End Function
    
39. 
    
40. '新建继承类
    
41. Public function [new](super,arrParams)
    
42.    Dim dict:set dict=CopyDict(super,CreateDict())
    
43.    Call dict("initialize")(dict,arrParams)
    
44.    Set [new]=dict
    
45. End Function
    
46. End Class
    
47. 
    
48. '载入继承帮助类
    
49. Dim Mercury:set Mercury=new ClassHelper
    
50. 
    
51. '###################################################
    
52. '创建一个AutoTestTools新类
    
53. Dim AutoTestTools:Set AutoTestTools=Mercury.newClass("AutoTestTools")
    
54. AutoTestTools("effect")="Automation Testing"
    
55. Function AutoTestToolsInitialize(this,arrParams)
    
56.    this("effect")=arrParams(0)
    
57. End Function : Mercury "initialize"
    
58. 
    
59. Function AutoTestToolsLaunch()
    
60.    MsgBox "Launch AutoTestTools"
    
61. End Function : Mercury "Launch"
    
62. ''End Class
    
63. '####################################################
    
64. 
    
65. '####################################################
    
66. '创建一个新继承AutoTestTools的类
    
67. Dim QuickTest : set QuickTest=Mercury.extends(AutoTestTools,"QuickTest")
    
68. Quicktest("name")="Quick Test Professional"
    
69. QuickTest("support")="all"
    
70. 
    
71. Function  QuickTestInitialize(this,arrParams)
    
72.    this("support")=arrParams(0)
    
73. 
    
74. End Function : QuickTest "initialize"
    
75. 
    
76. Function QuickTestLaunch()
    
77.    MsgBox "Launch QuickTest"
    
78. End Function : Mercury "Launch"
    
79. ''End Class
    
80. '####################################################
    
81. 
    
82. '初始化QuickTest类
    
83. Dim QuickTestCls: set QuickTestCls=Mercury.new(QuickTest,array("web"))
    
84. 
    
85. '打印support数学，此时已经被初始化为web
    
86. MsgBox QuickTestCls("support")
    
87. 
    
88. '执行QuickTest类中的Launch方法
    
89. Call QuickTestCls("Launch")()
    
90. 
    
91. '执行QuickTest类的父类的Launch方法
    
92. Call QuickTestCls("parent")("Launch")

复制代码

赵佳乐SMILE

高大上

yinjiajia0626

不要沉啊，问题还没有解决呢

Shawn_xiao

这本书刊误确实不少：1.CopyDict中需要加Set child = CreateObject("scripting.dictionary")
2.function QuickTestInitialize 后面的QuickTest "initialize"应该改成Mercury "Initialize" 才能那个将前面的方法加进字典

yinjiajia0626

回复 4# Shawn_xiao

太谢谢你啦！！