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

Question

在类模块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处报错参数不可选。

Answer 1

你定义的时候有一个参数,调用的时候什么参数也没有,当然出错了.Dim class1 As clsmain
Private Sub Form_Load()
  id = class1.par ('参数')
End Sub

Answer 2

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