Visual Basic

Private Sub OnProcesited(ByVal sender As Object, ByVal e As System.EventArgs)
   Dim p As System.Diagnostics.Process
   p = sender

   Dim rtnStr As String = String.Empty
   rtnStr = p.StandardOutput.ReadToEnd()

   If rtnStr.Contains(" FAST terminated normally.") = True Then
       rtnStr = rtnStr & vbCrLf & "Please click Postprocess -> View Output File in menu to view the file."
       updateViewMenu()
   End If
   '''progBarFrm.Close()
   '''progBarFrm.Dispose()
   
   Dim frm As New FormShowFASTResult
   frm.txtFASTResult.Text = rtnStr
   frm.Button1.Select()
   frm.ShowDialog()
 End Sub

  Private Sub Run_Tool()

    Dim sAppPath As String = ".\xxxx.exe"
    Dim fileName As String = "XXXXXX.TXT"
    Dim p As New System.Diagnostics.Process()

    Dim rtnStr As String = String.Empty

    p.StartInfo.FileName = Application.StartupPath & "\" & sAppPath
    p.StartInfo.Arguments = fileName

    'Do not use the system shell to start the program this is so we can hide the command dos window
    p.StartInfo.UseShellExecute = False
    p.StartInfo.WorkingDirectory = strOutputFilePath
    ' Show no dos window if false
    p.StartInfo.CreateNoWindow = True
    p.StartInfo.RedirectStandardOutput = True

    Dim progBarFrm As New FormProgressBar
    progBarFrm.Show()


    Try
        p.Start()
    Catch ex As Exception
        ShowValidationMessage("Unexception error is caught, please close and try again.", "Error")
        'p.Kill()
        progBarFrm.Close()
        Return
    End Try


    rtnStr = p.StandardOutput.ReadToEnd()

    ''p.WaitForExit(120000)   '= 1.5 min: 1000 millisecond = 1 second
    ' if the process doesn't complete within 5400 seconds, kill it
    ''If Not p.HasExited Then
    ''p.Kill()
    ''End If

    If rtnStr.Contains(" FAST terminated normally.") = True Then
        rtnStr = rtnStr & vbCrLf & "Please click Postprocess -> View Output File in menu to view the file."
        updateViewMenu()
    End If
    progBarFrm.Close()

    Dim frm As New FormShowFASTResult
    frm.txtFASTResult.Text = rtnStr
    frm.Button1.Select()
    frm.ShowDialog()

End Sub

Public Class FormProgressBar

    Private Sub FormProgressBar_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Timer1.Stop()
    End Sub



    Private Sub FormProgressBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
        Timer1.Interval = 1
        Timer1.Start()

    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        Else
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

Private Sub StartConsoleRead(ByRef st As Stream)
        Dim rdo As New ReadData
        'rdo.s = _conStream.BaseStream
        rdo.s = st

        Dim consoleReadAsyncCallback As New AsyncCallback(AddressOf ConsoleReadCallback)
        _conStream.BaseStream.BeginRead(rdo.buffer, 0, rdo.buffer.Length, consoleReadAsyncCallback, rdo)
    End Sub

    Private Sub ConsoleReadCallback(ByVal asyncResult As IAsyncResult)
        Dim rdo As ReadData = DirectCast(asyncResult.AsyncState, ReadData)
        Dim bytesRead As Integer = rdo.s.EndRead(asyncResult)
        Dim enc As Encoding = Encoding.ASCII
        Dim s As String = enc.GetString(rdo.buffer, 0, bytesRead)

        CmdOutput.Invoke(UpdateCmdOutputDelegate, New Object() {s})
        StartConsoleRead(rdo.s)
    End Sub
 
 

Public Class ReadData
    Public buffer(20480) As Byte
    Public s As Stream
End Class

 Private Sub Run_FAST_Tool()

    Dim sAppPath As String = ".\FAST.exe"
    Dim fileName As String = objFASTPrimaryData.FASTPrimaryFileName_FST
    Dim p As New System.Diagnostics.Process()

    Dim rtnStr As String = String.Empty

    p.StartInfo.FileName = Application.StartupPath & "\" & sAppPath
    p.StartInfo.Arguments = fileName

    'Do not use the system shell to start the program this is so we can hide the command dos window
    p.StartInfo.UseShellExecute = False
    p.StartInfo.WorkingDirectory = strOutputFilePath
    ' Show no dos window if false
    p.StartInfo.CreateNoWindow = True
    p.StartInfo.RedirectStandardOutput = True

    Dim progBarFrm As New FormProgressBar
    progBarFrm.Show()
end sub

Private Sub OnProcesited(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim p As System.Diagnostics.Process
        p = sender

        Dim rtnStr As String = String.Empty
        rtnStr = p.StandardOutput.ReadToEnd()

        If rtnStr.Contains(" FAST terminated normally.") = True Then
            rtnStr = rtnStr & vbCrLf & "Please click Postprocess -> View Output File in menu to view the file."
            updateViewMenu()
        End If
        progBarFrm.Close()
        progBarFrm.Dispose()

        Dim frm As New FormShowFASTResult
        frm.txtFASTResult.Text = rtnStr
        frm.Button1.Select()
        frm.ShowDialog()

    End Sub


    Private Sub Run_Tool()

        Dim sAppPath As String = ".\XXXXX.exe"
        Dim fileName As String = "XXXXX.txt"
        Dim p As New System.Diagnostics.Process()



        p.StartInfo.FileName = Application.StartupPath & "\" & sAppPath
        p.StartInfo.Arguments = fileName

        'Do not use the system shell to start the program this is so we can hide the command dos window
        p.StartInfo.UseShellExecute = False
        p.StartInfo.WorkingDirectory = strOutputFilePath
        ' Show no dos window if false
        p.StartInfo.CreateNoWindow = True
        p.StartInfo.RedirectStandardOutput = True
        p.EnableRaisingEvents = True
        AddHandler p.Exited, AddressOf OnProcesited


        progBarFrm = New FormProgressBar

        Try
            p.Start()

            progBarFrm.Show()
            progBarFrm.Refresh()            
        Catch ex As Exception
            ShowValidationMessage("Unexception error is caught, please close and try again.", "Error")
            
            Return
        End Try    
   End Sub

<br />
<br />
Report_DateFromTo.ParameterFields.Item(1).AddCurrentValue Me.DTPicker1.Value<br />
Report_DateFromTo.ParameterFields.Item(2).AddCurrentValue Me.DTPicker2.Value<br />
Me.CRViewer1.ReportSource = Report_DateFromTo<br />
Me.CRViewer1.ViewReport<br />
<br />
<br />