vba面向对象该怎么写？-比如老师（类）包含多个学生（类）集合的属性

damnedvi

比如老师类 private name as string
private p_students as Collection  '不知道这个是不是这样写，一般的java之类的可以定义一个student的List之类的
....

    Public Property Get students() As Collection
         If p_students Is nothing Then
            Set p_students = New Collection
        End If
      set students = p_students
    End Property

    Function add_student(stu As Student)  'Student为自定义的类
        If p_students Is nothing Then
            Set p_students = New Collection
        End If
            p_students .Add stu

    End Function


--------------------------------------
测试
Sub test()
    Dim teacher  As Teacher
    Dim stu1, stu2 As Student
    Dim s As String
    Dim col As Collection

    Set stu1 = New Student
    stu1.year = "2019"
    stu1.name = "张三"


    Set stu2 = New Student
    stu2.year = "2019"
    stu2.name= "李四"

    Set teacher = New Teacher
    teacher.name = "李老师"
   Call teacher.add_student(stu1)
   Call teacher.add_student(stu2)

end sub



因为临时帮一个朋友弄一点东西，没啥vba的基础，问下大神有没例子参考下这类问题vba咋解决，VBA中集合类只有 collection 和 字典么？

damnedvi

Call teacher.add_student(stu1)   提示 byref 参数类型不符

chis3

要以這種層級的類
用implement

zpy2

能问下，为啥要用类吗？

microyip

http://club.excelhome.net/forum. ... ead&tid=1333004简单分享建立类的多级属性，参考变通一下

damnedvi

zpy2 发表于 2019-10-23 07:32
能问下，为啥要用类吗？

数据有点复杂  想用类封装下  可能是惯性思维吧 ！  调试了一下可以用了，问题出在 Dim stu1, stu2 As Student ，stu1我这里没有显示的把它定义为 Student类 ，系统一直报类型不符错误 ，现在可以用了

lsdongjh

vb本身就不是面向对象，何况VBA。
你的这个需求，其实可以用自定义数据类型解决，如果涉及到自定义动作、事件，才需要涉及到类

damnedvi

lsdongjh 发表于 2019-10-23 08:26
vb本身就不是面向对象，何况VBA。
你的这个需求，其实可以用自定义数据类型解决，如果涉及到自定义动作、 ...

嗯  应该是吧。这个问题解决了，自己没基础，一点小问题造成的。自定义数据类型（老师）里再定义一个自定义类型（学生）的集合，这处理起来容易么？

zpy2

damnedvi 发表于 2019-10-23 09:32
嗯  应该是吧。这个问题解决了，自己没基础，一点小问题造成的。自定义数据类型（老师）里再定义一个自定 ...

http://wapiknow.baidu.com/question/20830229

可以用type来定义数据类型
类也可以，搜一下吧，也不少。

lsdongjh

damnedvi 发表于 2019-10-23 09:32
嗯  应该是吧。这个问题解决了，自己没基础，一点小问题造成的。自定义数据类型（老师）里再定义一个自定 ...

1. Option Explicit
   
2. 
   
3. Type Student
   
4.     strName As String
   
5.     intOld As Integer
   
6. End Type
   
7. 
   
8. Type Teacher
   
9.     strName As String
   
10.     strClassName As String
    
11.     sdStudent As Student
    
12. End Type
    
13. 
    
14. Sub test()
    
15.     Dim mySd As Student
    
16.     Dim myTc As Teacher
    
17.    
    
18.     With mySd
    
19.         .strName = "张三"
    
20.         .intOld = 18
    
21.     End With
    
22.    
    
23.     With myTc
    
24.         .strName = "李老师"
    
25.         .strClassName = "五班"
    
26.         .sdStudent = mySd
    
27.     End With
    
28.    
    
29.     MsgBox myTc.sdStudent.strName
    
30. End Sub
    

复制代码