Question

关于VB自定义函数的问题

自定义一个函数
Public Function printf(ByVal color As Integer，obj As Object)
If color = 0 Then '黑色
obj.ForeColor = RGB(0, 0, 0)
ElseIf color = 1 Then '白色
obj.ForeColor = RGB(255, 255, 255)
ElseIf color = 2 Then '浅灰色
obj.ForeColor = RGB(192, 192, 192)
Else
MsgBox "Data flunk", 48, " Admonition"
End If
-----------------------------------------------------------------
怎样才能把obj变为可选参数，当使用这个函数时不输入obj参数，这时默认object对象为当前带有焦点的form对象。

Answer 1

仅供参考：
Public Function printf(ByVal color As Integer, Optional obj)
If Not IsMissing(obj) Then
If color = 0 Then '黑色
obj.BackColor = RGB(0, 0, 0)
ElseIf color = 1 Then '白色
obj.BackColor = RGB(255, 255, 255)
ElseIf color = 2 Then '浅灰色
obj.BackColor = RGB(192, 192, 192)
Else
MsgBox "Data flunk", 48, " Admonition"
End If
Else
If color = 0 Then '黑色
Me.BackColor = RGB(0, 0, 0)
ElseIf color = 1 Then '白色
Me.BackColor = RGB(255, 255, 255)
ElseIf color = 2 Then '浅灰色
Me.BackColor = RGB(192, 192, 192)
Else
MsgBox "Data flunk", 48, " Admonition"
End If
End If
End Function

Answer 2

Public Function printf(ByVal color As Integer，optional obj As Object=nothing)

好像有错，可选参数是这样设置，但如果参数是对象的时候有问题。