如何在VB.NET的AddressOf中传递RichTextBox参数？

报错原因 #

你之前用Function绑定Click事件的方式错误，因为WinForms的ToolStripMenuItem.Click事件对应的委托是无返回值的Sub，而Function要求必须返回值，所以编译器报错“Expression does not produce a value”。

可行解决方案 #

方案1：利用控件的Tag属性存储RichTextBox #

这是最常用的实现方式，把当前操作的RichTextBox存入菜单项的Tag属性，点击事件触发时再取出使用：

1. 在RTBCheckText方法中设置菜单项的Tag：

Private Sub RTBCheckText(ByRef RTB As RichTextBox, e As MouseEventArgs)
    Dim text As String = RTB.Text

    ' 其他业务逻辑...

    Dim item As New ToolStripMenuItem("item1")
    item.Tag = RTB ' 将当前RichTextBox存入Tag属性
    AddHandler item.Click, AddressOf RTB_MenuItem_Click
    menu.Items.Add(item)

    ' 其他业务逻辑...

    menu.Show(RTB, e.Location)
End Sub

2. 修改RTB_MenuItem_Click方法，从Tag中获取目标RichTextBox：

Private Sub RTB_MenuItem_Click(sender As Object, e As EventArgs)
    Dim menuItem As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
    ' 从Tag中取出对应的RichTextBox
    Dim targetRTB As RichTextBox = CType(menuItem.Tag, RichTextBox)
    
    Dim selectedText As String = targetRTB.SelectedText
    ' 执行文本替换等逻辑
    targetRTB.SelectedText = "替换后的内容"
End Sub

方案2：使用Lambda表达式直接捕获RichTextBox变量 #

如果不想依赖Tag属性，可以用Lambda的Sub类型绑定事件，直接捕获当前的RTB变量：

方式A：直接在Lambda中编写处理逻辑

Private Sub RTBCheckText(ByRef RTB As RichTextBox, e As MouseEventArgs)
    Dim text As String = RTB.Text

    ' 其他业务逻辑...

    Dim item As New ToolStripMenuItem("item1")
    AddHandler item.Click, Sub(s, args)
                              Dim selectedText As String = RTB.SelectedText
                              ' 执行你的文本处理逻辑
                              RTB.SelectedText = "替换后的内容"
                          End Sub
    menu.Items.Add(item)

    ' 其他业务逻辑...

    menu.Show(RTB, e.Location)
End Sub

方式B：通过Lambda调用独立处理方法

如果希望保留独立的RTB_MenuItem_Click方法，改用Sub类型的Lambda传递参数：

' 在RTBCheckText中绑定事件
AddHandler item.Click, Sub(s, args) RTB_MenuItem_Click(RTB)

' 修改RTB_MenuItem_Click方法参数
Private Sub RTB_MenuItem_Click(ByVal targetRTB As RichTextBox)
    Dim selectedText As String = targetRTB.SelectedText
    ' 执行你的文本处理逻辑
    targetRTB.SelectedText = "处理后的文本"
End Sub

注意事项 #

• 使用Lambda捕获变量时，要确保目标RichTextBox在事件触发时未被销毁（这里RTB是方法参数，只要菜单显示期间控件正常存在即可）
• 用Tag属性时，注意类型转换的安全性，避免因类型不匹配引发异常

内容的提问来源于stack exchange，提问作者Mika