回 帖 发 新 帖 刷新版面

主题:给函数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函数能直接设置所提供的一个学生的默认信息(不知道各位能明白否?)
如何修改代码才能不出错?或者能提供更好的解决方案?

回复列表 (共2个回复)

沙发

SetDefaultInfo  DJZ 
'看看?

板凳

谢谢,楼上正解,经测试,
SetDefaultInfo  DJZ 
和 Call SetDefaultInfo (DJZ)
均能通过编译正常运行,不知楼上知道这样的原因否?

我来回复

您尚未登录,请登录后再回复。点此登录或注册