“需要常量表达式”使用可选参数时抛出异常

Question

运行此Sub Procedure时，我得到“需要常量表达式”异常;

Public Sub SolidFill(Optional SolidColor As Color = Color.Black)
    ....
End Sub

但是，只有在使用Color类型时才会发生这种情况。 我需要做些什么来防止抛出此异常？

Answer 1

你可以这样做：

Public Sub SolidFill(Optional SolidColor As Color = Nothing)
    If SolidColor = Nothing Then SolidColor = Color.Black
End Sub