在VB6下如何实现继承,重载和多态----DynamicClassFactory (一)
[问题点数：100分]
收藏|
楼主
发表于： 2007-08-06 12:43:30
[摘要]
DynamicClassFactory ,一个支持在VB6里实现继承,多态,重载的库,目前,DynamicClassFactory还在开发中,预计月底出测试版,届时提供网友下载使用.本文仅仅介绍对属性继承的实现,下一篇将集中介绍函数的继承\多态\重载,敬请关注. [正文] //是不是在为VB6对继承支持得不好而发愁?是不是在为VB6没有重载而发愁?有类似疑惑的话,请继续阅读,DynamicClassFactory 将为您解开这些疑惑. '//有的时候,在编程时,老感觉某个控件的属性少了点什么,比如 Tag 属性为什么只有一个?其实我们只是在想记录更多的信息 Dim DynamicObj As Object Set DynamicObj = DynamicClassFactory.NewObj(Me.Text1) '//从 DynamicClassFactory 中获得一个新类,该类 将继承 Text1 的所有属性 Debug.Print DynamicObj.Text '//输出其 文本 DynamicObj.Properties.Add "NewTag", [A String], "增加一个 Tag 属性" Debug.Print DynamicObj.NewTag '//增加了一个属性 NewTag,并试图访问 有的时候,我疑惑 TextBox 有Text 属性,而 DTpicker 有 Value 属性,同出而异名,异曲而同工,能不能也通过 Value 来访问 TextBox的Text属性呢? DynamicClassFactory 将支持你这么做. Dim Property As DynamicClassFactory.Property Set Property = DynamicObj.Properties("Text") Property.Name = "Value" Debug.Print DynamicObj.Value '//这个时候,Value输出的是 Text1 的Text属性值 当然了,当我么访问 DynamicObj.Text 的时候, 其实 DynamicClassFactory 返回的是一个 Property 对象,其有一个默认属性就是 Value 由此,我们实现更改属性称谓的实现也可以通过下面方式来进行 DynamicObj.Text.Name = "Value" Debug.Print DynamicObj.Value VB6可以说称不上支持重载,我有的时候疑惑,为什么不能在设置 Textbox 的 Enabled 属性为 False 的同时,其背景色同时换成灰色?即,我是否可以有一个机制,可以让一个类继承了 TextBox 的大多属性的同时 对其 Enabled 属性有一个扩充(重载)?答案是否定的,VB6不提供类似机制. 而我的 DynamicClassFactory 做到了这一点 DynamicObj.Enabled = Flase '//Text1 将 Disable,同时其背景色为灰 有的时候 , 我们取得一个记录集(ADODB.Recordset), 在取值时候, 要逐个字段判断其值是否为NULL, 很烦恼.如果您有类似的烦恼, 请阅读下去! Dim Properties As DynamicClassFactory.Properties Dim SQL As String Dim Recordset As ADODB.Recordset SQL = "SELECT Name ,Age ,Sex From StudentsInfo" Set Recordset = g_Cn.Execute(SQL) Call DynamicObj.Bind(Recordset) 这个时候 DynamicObj 将绑定到这个记录集,并按照 这个记录集的字段生成相应属性,并支持访问 Set Properties = DynamicObj.Properties For Each Property In Properties Debug.Print Property.Name & ":" & Property.Value Next '//遍历属性成员 Debug.Print DynamicObj.Name '//访问属性成员 当然了,如果把 DynamicObj 的 BoundMode 设置成 BoundAutomatic(自动绑定)时,则当 Recordset 的 AbsolutePosition 发生变动时候, DynamicObj 各属性成员是动态刷新的,请看下面的例子 Recordset.MoveFirst DynamicObj.BoundMode = BoundAutomatic Do While Not Recordset.EOF Debug.Print DynamicObj.Name Recordset.MoveNext Loop '//逐条输出学生的姓名 当然了也可以: Recordset.MoveFirst DynamicObj.BoundMode = BoundManual '//手动绑定 Do While Not Recordset.EOF Call DynamicObj.Refresh '//手动刷新 Debug.Print DynamicObj.Name Recordset.MoveNext Loop '//逐条输出学生的姓名 DynamicClassFactory 不仅支持对象创建时的继承\运行中绑定 Recordset,还支持运行中继承,支持对普通类实例或是单层结构的 Type(UserDataType) 进行继承 '//比如我们有如下的一个结构 Public Type LinkManType Name As String Company As String '//公司 Telephone As String '//电话 MobilePhone As String '//移动电话 Position As String '//职务 End Type '//下面演示结构继承 Dim LinkMan As LinkManType LinkMan.Company = "微软" LinkMan.MobilePhone = "1361920XXXX" LinkMan.Name = "周XX" LinkMan.Position = "经理" LinkMan.Telephone = "029-8888888" Call DynamicObj.ExtendFrom(LinkMan) Debug.Print DynamicObj.Name '//输出 我的姓名 如果我们有一个类,有上述 LinkManType 的结构,其实例名称为 cLinkMan,我们一样可以调用 ExtendFrom 来实现继承,至于手动对属性成员进行增\删\改,更是不在话下. 下次介绍函数重载及多态.敬请关注.
name="aswift_2" width="728" height="90" id="aswift_2" frameborder="0" marginwidth="0" marginheight="0" scrolling="no" vspace="0" hspace="0" allowfullscreen="true" style="left: 0px; top: 0px; position: absolute;" allowtransparency="true">
| |
|
#1 得分：0
回复于： 2007-08-06 12:49:28
谁做的？
| |
|
#2 得分：0
回复于： 2007-08-06 12:52:05
本人呵呵
还没出品呵呵 | |
|
#3 得分：0
回复于： 2007-08-06 12:52:18
观察一下
|
|
#4 得分：0
回复于： 2007-08-06 12:52:55
看起来似乎很强啊
| |
|
#5 得分：0
回复于： 2007-08-06 12:53:44
月底我会出测试版.现在还没有最终完成呵呵
| |
|
#6 得分：0
回复于： 2007-08-06 12:56:36
microsoft和找你算帐的，哈哈哈......
| |
|
#7 得分：0
回复于： 2007-08-06 12:58:23
呵呵,开玩笑的呵呵.
| |
|
#8 得分：0
回复于： 2007-08-06 12:59:03
只是弥补一下VB6的缺憾呵呵.如果要真正用OO的方式编程,该选择.NET,Java
| |
|
#9 得分：0
回复于： 2007-08-06 13:01:26
mark
|
|
#10 得分：0
回复于： 2007-08-06 21:52:22
先顶再说
| |
|
#11 得分：0
回复于： 2007-08-07 15:17:22
不錯
真做出來？ |
|
#12 得分：0
回复于： 2007-08-07 15:23:25
“又来一帖，继续顶起。”
| |
|
#13 得分：0
回复于： 2007-08-07 16:48:36
等着吧呵呵.这个月绝对提供大家测试版使用.
| |
|
#14 得分：0
回复于： 2007-08-13 16:48:39
谁有空间提供？测试版本出炉，我要上传，但是没有帮助文件提供呵呵
最近太忙了，两个项目并着走，只能隔三差五抽点时间来写呵呵。 | |
|
#15 得分：0
回复于： 2007-08-13 17:01:52
惊世骇俗啊~~~恐怖
| |
|
#16 得分：0
回复于： 2007-08-13 17:02:07
up一下，正在转C#，
| |
|
#17 得分：0
回复于： 2007-08-13 18:15:33
呵呵，大家可以不必看上面的介绍了：
[摘要] DynamicClassFactory ,一个支持在VB6里实现真正意义的继承,多态,重载的库,目前,DynamicClassFactory还在开发中,预计月底出测试版,届时提供网友下载使用. [正文] DynamicClassFactory 将从根本上改变 VB6 开发者写作 类 的思维方式，支持您以纯面向对象的方式书写 类，比如： Public clsMyClass As DynamicClassFactory.Class Set clsMyClass = DynamicClassFactory.NewClass(ClassName:="clsMyClass", CodeContainer:= Me) 这样，一个新类就诞生了，名称为 clsMyClass,代码写作的位置在 Me 类该具备一些成员函数，下面增加成员函数，看看 DynamicClassFactory 如果是如何处理的 Call clsMyClass.Members.Add(Name:="MyFunc", InvokeType:=[Invoke Func],DefaultValue=Empty , ProcAddress:=1) 这样，类就添加了一个名称 为 MyFunc 的函数，函数处理代码 放在 Me 的倒数第 1 （ProcAddress） 个 方法中 这样，clsMyClass 的实例在调用 MyFunc 的函数时，将自动映射到 Me 中的该代码块,如下例， Private Sub MyFunc(Member As DynamicClassFactory.Member, InvokeType As DynamicClassFactory.InvokeTypeEnum, Pms As DynamicClassFactory.Parameters, This As DynamicClassFactory.This, Result As DynamicClassFactory.Result) Result.Value = Pms(1).Value & Pms(2).Value & Pms(3).Value '//取得函数 返回值 End Sub 代码定义完毕，我们来尝试调用 Dim MyInstance As Object Set MyInstance = clsMyClass.NewInstance() '//取得 clsMyClass 的新实例 Debug.Print MyInstance.MyFunc("A", "B", "C") 我们 Debug 输出的结果将是 "ABC" 有的时候，让们定义 某类成员处理函数的次序（ProcIndex），是很麻烦的，那有没有更好的处理办法呢？同样的例子，我们写在模块里，将更醒目，请注意 InitclsMyClass 中的第二行代码： Public clsMyClass As DynamicClassFactory.Class Public Sub InitclsMyClass() '//负责初始化 clsMyClass 类模板 Set clsMyClass = DynamicClassFactory.NewClass(ClassName:="clsMyClass") Call clsMyClass.Members.Add(Name:="MyFunc", InvokeType:=[Invoke Func],DefaultValue=Empty , ProcAddress:=AddressOf MyFunc) '//添加以一个成员函数，其处理过程指向下面的 MyFunc 函数 End Sub Public Sub MyFunc(Member As DynamicClassFactory.Member, InvokeType As DynamicClassFactory.InvokeTypeEnum, Pms As DynamicClassFactory.Parameters, This As DynamicClassFactory.This, Result As DynamicClassFactory.Result) Result.Value = Pms(1).Value & Pms(2).Value & Pms(3).Value '//取得函数 返回值 End Sub 当然了，当我们调用其实例的 MyFunc 函数时，将自动指向该Proc 进行处理，如： Dim MyInstance As Object Set MyInstance = clsMyClass.NewInstance() '//取得 clsMyClass 的新实例 Debug.Print MyInstance.MyFunc("A", "B", "C") 当然了，我们也可以这样来调用该接口： Dim MyInstance As Object Dim Func as DynamicClassFactory.Func Set MyInstance = clsMyClass.NewInstance() '//取得 clsMyClass 的新实例 Set Func = MyInstance.getFunc("MyFunc") '//获得该成员函数 Debug.Print Func.Invoke("A", "B", "C") '//输出 这样的效果跟上述是一样的。 待续，更多的精彩还在后头，下篇介绍，继承，多态，重载。 | |
|
#18 得分：0
回复于： 2007-08-13 18:20:17
有劳斑竹把第一楼的介绍换成最后的这篇介绍，适当的话给排排版。呵呵。我没权限。谢谢了呵呵
| |
|
#19 得分：0
回复于： 2007-08-14 09:12:02
算了，没人响应，就不发布了，就拿着自己用吧呵呵。请求斑竹删贴，把前一篇也一起删除：
http://community.csdn.net/Expert/topic/5694/5694549.xml?temp=.5872614 | |
|
#20 得分：0
回复于： 2007-08-14 09:33:19
不会吧,楼主,这么恐怖的东西,开源好拉
| |
|
#21 得分：0
回复于： 2007-08-14 09:46:35
楼主，你在调大家胃口呢？我们都有拭目以待呢
| |
|
#22 得分：0
回复于： 2007-08-14 10:15:22
呵呵。我写个示例先。中午放出来，我到华军上找个地址。呵呵。帮助文档，现在没时间弄呵呵。
| |
|
#23 得分：0
回复于： 2007-08-14 16:21:28
文件已经上传，在如下地址，
http://file.mofile.com/ 然后左上角输入文件提取码，然后点提取文件，就可以下载了。 这是个 Demo 版的，让大家看看呵呵。还称不上测试版呵呵。 | |
|
#24 得分：0
回复于： 2007-08-14 16:25:19
Demo 中的 NormalTest 演示 DynamicClassFactory 是如何凭空创建类，并实现类的继承，多态，函数重载等特性。
示例中用了三个类，最基础的类是 clsDog（狗），clsShepherdDog （牧羊犬），clsChinaShepherdDog（中国牧羊犬） clsDog 有两个属性和一个函数方法 EyeNumber 眼睛的数量 LegNumber 腿的数量 Yaff 吠叫 函数原型 Yaff(ToYaff As String) clsShepherdDog 继承自clsDog ，另外还具备自己的特性： Shepherd 放养，函数原型为 Shepherd(intCount As Integer),代表领着几只羊出去放 另外，有一点 clsShepherdDog 很厉害，他的 Yaff 跟普通的狗不一样，普通的狗所有的东东都可以，而 clsShepherdDog 只会说 Yes Sir 和 No Sir 老大当然是我们的 中国牧羊犬（clsChinaShepherdDog） 了，他除了继承 普通牧羊犬 的所有特性外，还有一点就是他很聪明，可以知道放羊结束后数羊(Count)然后向主人汇报结果(Report) Count 见到羊就数数量，并作加法运算，累计数量， 函数原型 Count(intCount As Integer) Report 汇报数量 下面的例子将演示一只中国牧羊犬放羊，数羊并回来汇报的过程 提供的机制非常简单，但是您能用这个机制写出什么类，那是我所没有办法想象的，因为这已经具备了OOP的最基本特质。 这个版本由于是初级版本，速度还是一个问题，我会在下面的版本中注意这些特性的。 下个版本中，我将增加构造函数的部分。 最后，这个东东纯粹是为了弥补 Vb6 的一些缺憾，如果要想更爽地 OOP 建议用 DotNet 或是 Java，还有，就是不建议大面积使用，因为速度可能是一个无法突破的瓶颈。 谢谢关注！ Howtell Soft | |
|
#25 得分：0
回复于： 2007-08-14 17:26:18
支持,顶起
| |
|
#26 得分：0
回复于： 2007-08-14 17:49:31
做好了 试下
| |
|
#27 得分：0
回复于： 2007-08-14 18:47:04
实在对不起呵呵。
文件提取码是 8141285808571687 | |
|
#28 得分：0
回复于： 2007-08-14 18:54:17
搬家了呵呵
以后访问的话在如下地址：http://community.csdn.net/Expert/topic/5709/5709823.xml?temp=.7294275 | |
|
#29 得分：0
回复于： 2007-08-15 00:14:41
高手无处不在......
|
266
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
