メニュー項目をリッチ テキスト ボックスにキャストしようとすると、null 参照例外がスローされます。
コードは
' 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が「何もない」と表示されます。