如何将DataReceivedEventHandler传入BatchFile类构造函数？

核心要求 #

要正确传递自定义处理方法，必须保证你的处理方法签名完全匹配DataReceivedEventHandler委托的定义：

• 必须是无返回值的Sub
• 参数列表为：sender As Object 和 e As DataReceivedEventArgs

正确的BatchFile类实现 #

Imports System.Diagnostics

Public Class BatchFile
    Private ReadOnly _outputHandler As DataReceivedEventHandler
    Private ReadOnly _errorHandler As DataReceivedEventHandler

    ' 构造函数接收输出和错误处理委托
    Public Sub New(outputHandler As DataReceivedEventHandler, errorHandler As DataReceivedEventHandler)
        _outputHandler = outputHandler
        _errorHandler = errorHandler
    End Sub

    Public Sub ExecuteCommands(commands As IEnumerable(Of String))
        Dim batchContent As String = String.Join(vbCrLf, commands)

        Using process As New Process()
            With process.StartInfo
                .FileName = "cmd.exe"
                .Arguments = $"/c ""{batchContent}"""
                .UseShellExecute = False
                .RedirectStandardOutput = True
                .RedirectStandardError = True
                .CreateNoWindow = True
            End With

            ' 绑定传入的处理委托
            AddHandler process.OutputDataReceived, _outputHandler
            AddHandler process.ErrorDataReceived, _errorHandler

            process.Start()
            process.BeginOutputReadLine()
            process.BeginErrorReadLine()
            process.WaitForExit()
        End Using
    End Sub
End Class

定义符合要求的处理方法 #

' 自定义输出处理逻辑
Private Sub CustomOutputHandler(sender As Object, e As DataReceivedEventArgs)
    If Not String.IsNullOrEmpty(e.Data) Then
        ' 替换成你的业务逻辑，比如写入日志、更新UI等
        Console.WriteLine($"[批处理输出] {e.Data}")
    End If
End Sub

' 自定义错误处理逻辑
Private Sub CustomErrorHandler(sender As Object, e As DataReceivedEventArgs)
    If Not String.IsNullOrEmpty(e.Data) Then
        ' 替换成你的错误处理逻辑，比如记录错误日志、抛出异常等
        Console.WriteLine($"[批处理错误] {e.Data}")
    End If
End Sub

正确的调用方式 #

直接使用AddressOf关键字指向你的处理方法，无需额外实例化委托：

' 实例化BatchFile并传入自定义处理方法
Dim batchRunner As New BatchFile(AddressOf CustomOutputHandler, AddressOf CustomErrorHandler)

' 执行命令列表（示例包含psql、gpg命令）
Dim commands As New List(Of String) From {
    "echo 开始执行批处理",
    "psql -U myuser -d mydb -c ""SELECT COUNT(*) FROM users""",
    "gpg --decrypt secret.gpg"
}
batchRunner.ExecuteCommands(commands)

常见错误排查 #

• 签名不匹配：如果处理方法写成Function（有返回值），或者参数类型错误（比如把DataReceivedEventArgs写成EventArgs），会导致无法传递。
• 构造函数参数类型错误：确保构造函数的参数定义为DataReceivedEventHandler，而非普通的Delegate。
• 错误的委托实例化方式：VB.NET中不需要手动调用DataReceivedEventHandler(AddressOf ...)，直接用AddressOf即可完成委托的隐式转换。

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