Option Strict On 不允许 String 和 Object {String} 之间的隐式转换

Question

我正在尝试使用Option Strict On 来清理我作为初学者程序员的方式。我设法清除了除此之外的所有错误。
我正在使用 ToolStrip 的 Tag 属性来获取一些文本信息。点击 ToolStrip，我需要记住一个字符串中 Tag 的值并更改该 Tag 的值。

如何将 Object {String} sender.tag 转换为 String 以及 String myString 和 Object {字符串}?

Private Sub ToolStrip_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip.ItemClicked
    Dim myString As String = sender.tag
    sender.tag = "It is selected"
    'more code...
End Sub

编辑：请参见此处代码相关部分的屏幕截图：

Answer 1

如果要读取ToolstripItem 的标签属性，则需要读取所选项目的标签。这是由ToolStripItemClickedEventArgs 对象的e.ClickedItem 属性提供的：

获取在 ToolStrip 上被点击的项目。

如果要读取此 Item 所属 ToolStrip 的 Tag 属性，请将 sender 转换为 ToolStrip（或 Control，此属性所属的基类）并将其 Tag 属性转换为 String。

注意：当您双击 ToolStrip 控件时，会创建一个 ItemClicked 处理程序，因为这是 default event of that Control。该事件与 ToolStrip 对象相关，因此事件处理程序中的 sender 对象将是引发事件的 ToolStrip 实例的引用。

Tag Property 属于 Object 类型，这也是你需要转换它的原因。

Private Sub ToolStrip_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip.ItemClicked
    Dim itemTagAsString As String = e.ClickedItem.Tag?.ToString()

    Dim toolStripTagAsString = DirectCast(sender, ToolStrip).Tag?.ToString()
    ' Or, cast to Control, the Tag Property belongs to the base class
    Dim toolStripTagAsString = DirectCast(sender, Control).Tag?.ToString()
End Sub

在这些示例中检查itemTtag 的类型（使用Option Infer On）：

Dim itemTtag = e.ClickedItem.Tag
Dim itemTtag = e.ClickedItem.Tag?.ToString()

所以更清楚为什么这不是一个有效的陈述：

Dim itemTtag As String = e.ClickedItem.Tag

注意：这里使用了null conditional operator（?，又名 Elvis），因为标签可能为空（Nothing）。如果是，你不会得到异常，只是一个空字符串。

Answer 2

很好，您为您的问题提供了一般性的标题。你需要一个通用的答案。

Option Strict On 是个好东西。它使编码变得更加困难，但运行时的性能会提高，因为隐式数据类型转换会减少。

让我们获取您的代码...sender As Object... 和...sender.tag.. 这是.net中的典型事情。经常会看到object 类型的参数，这意味着可以传递任何数据类型。对象没有定义属于该数据类型的所有属性和方法。

例如

Dim oTxt as object = new TextBox()

oTxt 不会自动拥有Text 属性。你需要cast。当你 100% 知道对象类型时，做

dim str as string = DirectCast(oTxt, TextBox).Text

但有时您不知道您的object 中的Type 是什么。在这种情况下，您尝试强制转换，然后检查 null

dim txtBx as TextBox = TryCast(oTxt, TextBox)
if txtBx IsNot Nothing Then str = txtBx.Text

您真正的问题是您需要了解类型转换。即使您没有Options Strinct On，您也应该显式转换它，因为当您隐式执行x = sender.tag 时，您实际上使用的是后期绑定，这对性能不利。这也为潜在的运行时错误打开了大门。

你的研究主题应该是：类型转换、后期绑定、装箱/拆箱