如何在 VB.NET 中编写 [DefaultValue(null)]？ <DefaultValue(Nothing)> 不编译

Question

这并不像看起来那么简单。这是this question的后续。

假设我有一个带有属性的 Windows 窗体用户控件：

// using System.ComponentModel;

[DefaultValue(null)]
public object DataSource { … }

如果我把它翻译成 VB.NET，我会试试这个：

'Imports System.ComponentModel

<DefaultValue(Nothing)>
Public Property DataSource As Object
    …
End Property

这不起作用，因为编译器在选择正确的overload of DefaultValueAttribute's constructor 时遇到问题：

重载解析失败，因为没有可访问的New 最适合这些参数：

• Public Sub New(value As Boolean)：不是很具体。
• Public Sub New(value As Byte)：不是很具体。
• Public Sub New(value As Char)：不是很具体。

我很确定这是因为 VB.NET 中的Nothing 不仅意味着“空引用”（C# 中的null），而且还意味着参数类型的“默认值”（C# 中的default(T) ）。由于这种模糊性，每个构造函数重载都是潜在的匹配项。

<DefaultValue(CObj(Nothing))> 也不起作用，因为它不是一个常数值。

究竟是如何做我在 VB.NET 中编写的？

P.S.： <DefaultValue(GetType(Object), Nothing)> 是一个选项，但它可以规避问题。如果有任何方法可以为DefaultValueAttribute 使用与 C# 版本相同的构造函数，我真的很感兴趣。

Answer 1

“[…] 将无法工作，因为编译器在选择DefaultValueAttribute 的构造函数[.] 的正确重载时遇到问题”

可以通过将Nothing 类型转换为所需类型来帮助编译器：

<DefaultValue(DirectCast(Nothing, Object))>

“<DefaultValue(CObj(Nothing))> 也不起作用，因为它不是一个常数值。”

幸运的是，与CObj(Nothing) 不同，编译器将DirectCast(Nothing, Object) 视为一个常量值——令人惊讶的是，CType(Nothing, Object) 也是一个常量值，因此它被接受了。