主题:给函数ByRef一个自己Type的变量
在模块中:
————————————————————————
Public Sub SetDefaultInfo(ByRef Param As StudentInfo)
Param.ClassName = "5"
Param.RegTime = Timer
End Sub
————————————————————————
在ActiveX DLL中
————————————————————————
Public Type StudentInfo
Name As String
Num As Long
ClassName As String
RegTime as Single
End Type
————————————————————————
在窗体中
————————————————————————
Private Sub Form_Load()
Dim DJZ As StudentInfo
SetDefaultInfo (DJZ)
End Sub
————————————————————————
把DLL编译出来后放到程序目录下,并引用(用DLL是避免“只有在公共对象模块中定义的。。。才能在后期绑定使用”的错误)
程序运行时在窗体中“REC(DJZ)”这一行出错,“变量要求-不能赋值到该表达式”
我这样的意图是让SetDefaultInfo函数能直接设置所提供的一个学生的默认信息(不知道各位能明白否?)
如何修改代码才能不出错?或者能提供更好的解决方案?
————————————————————————
Public Sub SetDefaultInfo(ByRef Param As StudentInfo)
Param.ClassName = "5"
Param.RegTime = Timer
End Sub
————————————————————————
在ActiveX DLL中
————————————————————————
Public Type StudentInfo
Name As String
Num As Long
ClassName As String
RegTime as Single
End Type
————————————————————————
在窗体中
————————————————————————
Private Sub Form_Load()
Dim DJZ As StudentInfo
SetDefaultInfo (DJZ)
End Sub
————————————————————————
把DLL编译出来后放到程序目录下,并引用(用DLL是避免“只有在公共对象模块中定义的。。。才能在后期绑定使用”的错误)
程序运行时在窗体中“REC(DJZ)”这一行出错,“变量要求-不能赋值到该表达式”
我这样的意图是让SetDefaultInfo函数能直接设置所提供的一个学生的默认信息(不知道各位能明白否?)
如何修改代码才能不出错?或者能提供更好的解决方案?