"Constant Expression required" 使用可选参数时抛出异常

"Constant Expression required" Exception thrown when using Optional Parameters

当运行这个子程序时我得到一个 "Constant Expression required" 异常；

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

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

你可以这样做：

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