7451
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
zhengzhigang 2003-12-10
那如果要在不同模块之间交叉引用的时候，是否就必须定义成类的格式了
SoHo_Andy 2003-12-10
测试通过，其实关键在于要定义为私有，公有类型就不能够使用
它自己的提示信息也是这样的
Option Explicit
Private Type MyRecord
name As String
End Type
Dim Rec1 As MyRecord
Private Sub Command1_Click()
Showinfo Rec1
End Sub
Private Sub Showinfo(strRec As MyRecord)
MsgBox strRec.name
End Sub
Private Sub Form_Load()
Rec1.name = "呵呵"
End Sub
它自己的提示信息也是这样的
Option Explicit
Private Type MyRecord
name As String
End Type
Dim Rec1 As MyRecord
Private Sub Command1_Click()
Showinfo Rec1
End Sub
Private Sub Showinfo(strRec As MyRecord)
MsgBox strRec.name
End Sub
Private Sub Form_Load()
Rec1.name = "呵呵"
End Sub
jjlook 2003-12-10
你可以把自定义类型以类的形式声明，然后用类的实例作为过程或函数的参数。