将Richtextbox传递给子/函数

Question

任何人都可以提供帮助 - 我希望能够将richtextbox传递给Sub / Function。

我已成功使用以下代码将文本框传递给子/函数

Sub PassTextboxObject(ByVal textbox As TextBox)
    textbox.Text = "ABC123"
End Sub

我无法为richtextbox执行此操作？

我不能在我的表单上使用普通文本框，它必须是一个richtextbox。

我在VS2010专业版中使用VB.NET。

Answer 1

进行此更改：TextBox应更改为RichTextBox以传递richTextBox

让RichTextBox1成为您的RichTextBox，然后您可以按如下方式使用该

    Sub PassTextboxObject(ByVal textbox As RichTextBox)
        textbox.Text = "ABC123"
    End Sub

致电：

PassTextboxObject(RichTextBox1)