我正在尝试将一个菜单项转换为富文本框,它抛出了一个空引用异常。
代码是
' ensure above it true and find parent
Dim mnuItem As MenuItem = TryCast(sender, MenuItem)
If mnuItem IsNot Nothing Then
Dim menu As Menu = TryCast(mnuItem.Parent, Menu)
If menu IsNot Nothing Then
Dim rtb As RichTextBox = TryCast(menu.Container, RichTextBox)
If rtb IsNot Nothing Then
rtb.Copy()
End If
End If
End If
代码在 rtb.Copy() 行抛出异常。谁能指导我如何解决这个问题?
编辑:当我单步执行代码时,它显示 rbt 为“无”。