菜鸟提问：请看一下我这个参数调用有什么问题

[谢紫枫]

在类模块clsmain定义的函数
Function par(id As String) As String
par = id
End Function
在窗体主程里调用
Dim class1 As clsmain
Private Sub Form_Load()
id = class1.par
End Sub
要生成dll文件时
会在 id = class1.par的par处报错参数不可选。

[射天狼]

你定义的时候有一个参数,调用的时候什么参数也没有,当然出错了.

Dim class1 As clsmain
Private Sub Form_Load()
id = class1.par ('参数')
End Sub

[haipingma]

Function par(optional byval id As String='') As String默認參數為''(可以自己定義)
par = id
End Function
這樣可以
Dim class1 As clsmain
Private Sub Form_Load()
id = class1.par
End Sub