VB.net重定向实时过程输出

Question

我有重定向实时过程输出的一个问题，我运行一个Java的.jar文件从 vb.net的过程，我想重定向它。我用richtextbox创建了一个控制台表单。 参数很长，所以我不写在那里。该代码（它不是重定向任意）：

console.show() 'Console is a console window... 
dim p as new process 
p.startinfo.filename = java '(java as string: C:\Program Files\java....) 
p.startinfo.argument = "-Xms2048M -Xmx4096M...." 
p.startinfo.redirectstandardoutput = true 
'what is comme there? 
console.richtextbox1.text = 'and here is a redirected output, but i want redirect real time. 

Thx任何想法和有用的答案！

Answer 1

问题解决了，答曰：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

dim p as process() 
p.startinfo.filename = "xyz" 
p.startinfo.arguments = "...." 
p.startinfo.workingdirectory = "some path" 
p.startinfo.redirectstandarderror = true 
p.startinfo.redirectstandardoutput = true 
p.enableraisingevents = True 
Application.DoEvents() 
AddHandler proc.ErrorDataReceived, AddressOf proc_OutputDataReceived 
AddHandler proc.OutputDataReceived, AddressOf proc_OutputDataReceived 
p.start() 
proc.BeginErrorReadLine() 
proc.BeginOutputReadLine() 

End Sub 

Delegate Sub UpdateTextBoxDelg(text As String) 
    Public myDelegate As UpdateTextBoxDelg = New UpdateTextBoxDelg(AddressOf UpdateTextBox) 
    Public Sub UpdateTextBox(text As String) 
     Console.RichTextBox1.Text += text & Environment.NewLine 
     Console.RichTextBox1.SelectionStart = Console.RichTextBox1.Text.Length 
     Console.RichTextBox1.ScrollToCaret() 
    End Sub 

    Public Sub proc_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) 
     If Me.InvokeRequired = True Then 
      Me.Invoke(myDelegate, e.Data) 
     Else 
      UpdateTextBox(e.Data) 
     End If 
    End Sub 

Answer 2

你忘了开始这个过程。

p.Start()