VBA 对 类特性的支持

bedlami

        我部门的系统 有不同版本的系统软件，输出不同格式的TXT 信息。 需要对TXT中的信息处理。   我使用定义了基本类。  并且在子类中使用Implements 继承基本类。  子类中定义了新的函数。 可以用基本类的对象来访问。  但对VBA对类的封装，重载，继承，多态。 的理解都不太好。有没有具体了例子，或说明来描述。VBA对类的支持到底怎么样。那些我们可以做。那些不可以。   希望各位大虾不吝赐教。

tpjj

vba没有继承，因为vb6就没有，非要的话，.net吧

VB6、vba的 Implements 只是继承了个接口而已，具体实现并不会被继承过来，可以使用组合来模拟，没什么意义

bedlami

class a
Function EQOGPRSData(SheetName As String, FreefilesNum As Integer, Row As Long, eqogprs())
End Function

class b
Implements LOG
Function LOG_EQOGPRSData(SheetName As String, FreefilesNum As Integer, Row As Long, eqogprs())
end function


这是我当前的类，及其函数。可以通过CLASS A的对象来访问CLASS B的函数。   
1. 继承了个接口而已，具体实现并不会被继承过来。 如何理解？
2. 那些情况我需要用组合来模拟呢？

yiyiyicz

VBA可以支持类，也可以在一定限度中实现面向对象编程
不过，一些概念、思路和代码写法与按流程写VBA代码有些不同。最好看一下VBA高级教程。在网上可以下载

看你的帖子，似乎有些东西不太对
VBA可以实现多态，继承不行。而且只能单层（多层也有实例，但是十分死板）。如果继承、多态是个复杂的结构，可以在添加引用后，用javascript。这个可以实现多层继承和多根继承。只是需要解决怎么在VBA环境下读入、读出、显示语句
还有个不用类模块的办法（用模块），判断“输出不同格式的TXT 信息”，用select case语句。能实现的功能虽然简单些，但从你的帖子看，应该还行

yiyiyicz

bedlami 发表于 2013-1-22 01:29
class a
Function EQOGPRSData(SheetName As String, FreefilesNum As Integer, Row As Long, eqogprs())
...

使用Implements，要在下拉框中选，等VBA代码的写法

一个用接口的实例代码
1，插入类模块BaseClass，并在其中写入
Public Sub BaseSub() '虚拟特性，BaseSub在子类中实现
End Sub
2，插入类模块类模块ImpClass1，并在其中写入
Implements BaseClass  '继承特性。即类ImpClass1实现类BaseClass
Private Sub BaseClass_BaseSub()
    MsgBox "嗨！" & vbLf & "这是类ImpClass 1" & vbLf & "继承自BaseClass"
End Sub
3，插入类模块ImpClass2，并在其中写入
Implements BaseClass     '继承特性。即类ImpClass2实现类BaseClass
Private Sub BaseClass_BaseSub()
    MsgBox "嗨！" & vbLf & "这是类ImpClass 2" & vbLf & "继承自BaseClass"
End Sub

最后，在sheet1中写
Sub ClsDemo()
Dim xImp1 As New ImpClass1
Dim xIMp2 As New ImpClass2
Dim xBase As New BaseClass
Set xBase = xImp1  '多态特性
xBase.BaseSub
Set xBase = xIMp2
xBase.BaseSub
Set xBase = Nothing
Set xImp1 = Nothing
Set xIMp2 = Nothing
End Sub
运行ClsDemo 测试代码
也有认为用Implements，可以算作是继承。但是没见过有人能用VBA实现多层继承的
也有尝试用循环遍历来实现多根（单层）继承的
但我没有试过

yiyiyicz

用javascript代码实例
继承

Sub zz()
Set sc = CreateObject("scriptcontrol")
sc.Language = "jscript"
'====一个对象包含另一个对象（即它的原型对象）的内部引用
'====原型对象的属性，表现为每个以他为原型的对象的属性
'====换句话就是：javascript对象从它原型处继承属性
s = "function rect(w,h){" & vbNewLine _
    & "this.width=w;" & vbNewLine _
    & "this.height=h;" & vbNewLine _
    & "this.area=function(){return this.width*this.height;}}"
sc.addcode s
sc.executestatement "var r=new rect(1,2);"
cc = sc.eval("r")
sc.executestatement "var a=r.area( );"
cc = sc.eval("a")
Debug.Print cc
End Sub
这段代码直接复制到VBA编辑器中，可以运行

js的继承方式不止这一种
如果情况比较复杂，个人认为还是用jscript比较好

lipton

"1. 继承了个接口而已，具体实现并不会被继承过来。 如何理解？"

实现，就是方法或函数的具体语句。

例子：

1. '基类
   
2. Public lngNum As Long
   
3. 
   
4. Public Sub mod1()
   
5.     '实现
   
6.     Dim i As Long
   
7.    i= lngNum+ lngNum
   
8.     Debug.Print i
   
9. End Sub
   
10. 
    
11. '接口继承
    
12. Implements Class1
    
13. 
    
14. Private Property Let Class1_lngNum(ByVal RHS As Long)
    
15. 
    
16. End Property
    
17. 
    
18. Private Property Get Class1_lngNum() As Long
    
19. 
    
20. End Property
    
21. 
    
22. Private Sub Class1_mod1()
    
23.     '只继承了基类方法签名，不能继承基类的实现
    
24.     '“实现” 需要重写
    
25. End Sub

复制代码

VBA接口的作用：对象与对象之间，调用者与被调用者之间制定一个规范的链接约定，把变化部分和不变部分隔离，降低对象之间的耦合度。

Fungling

lipton 发表于 2013-1-24 11:24
"1. 继承了个接口而已，具体实现并不会被继承过来。 如何理解？"

实现，就是方法或函数的具体语句。

如果基类有一个属性，并不需要添加到接口类，只需要在基类中单独实现即可。但是，实例化之后，却无法调用该属性，这是什么原因呢？

论坛里讨论接口的贴子很少，想在此请教一下

lipton

Fungling 发表于 2022-9-14 22:02
如果基类有一个属性，并不需要添加到接口类，只需要在基类中单独实现即可。但是，实例化之后，却无法调用 ...

不太明白你的意思，或者你把代码发上来看看。
这是官方的对Implements 语句的帮助例子：
https://docs.microsoft.com/zh-cn ... 26l%3Dzh-CN%26k%3Dk(vblr6.chm1103517)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

或者在vba的代码窗口 选中Implements按F1

Fungling

lipton 发表于 2022-9-16 19:37
不太明白你的意思，或者你把代码发上来看看。
这是官方的对Implements 语句的帮助例子：
https://docs. ...

https://club.excelhome.net/thread-1589945-1-1.html
这是论坛里某位大神关于接口的贴子，但是没写完。我也在下面作了提问。
请问，怎样才能让attendance显式调用出来呢？
使用接口的目的，是让类和接口分离开来。但是这样导致类模块中，没有在接口类中定义的那些属性方法，不能被对象自身调用，这个问题如何解决呢？
望解惑