هندل کردن یک process از طریق ماژول یا کلاس

[ravaei]

با سلام
بنده میخوام یک ماژول با کلاس داشته باشم که شامل 2 متد فرستادن دستور و استارت یک پروسس باشد که از تمامی فرم های برنامه به این دو متد دسترسی داشته باشم.
قابل ذکره که بنده 2 تا رویداد خواندن خروجی و خواندن ارور را هم که از سمت آبجکت پروسس ایجاد میشه رو هم هندل کنم .

این 2 تا متد ماژول :



Module Module1


Public Sub start(ByVal appName As String, ByVal outPut As Boolean, ByVal _error As Boolean)

Form1.myProcess = New Process
With Form1.myProcess.StartInfo
.FileName = appName
.UseShellExecute = False
.CreateNoWindow = True
.RedirectStandardInput = True
.RedirectStandardOutput = True
.RedirectStandardError = True

End With


Form1.myProcess.Start()
If (outPut) Then
Form1.myProcess.BeginErrorReadLine()
End If
If (_error) Then
Form1.myProcess.BeginOutputReadLine()
End If


End Sub




Public Sub sendCommand(ByVal command As String)

Form1.myProcess.StartInfo.RedirectStandardError = False
Form1.myProcess.StartInfo.RedirectStandardOutput = False
Form1.myProcess.StandardInput.WriteLine(command)
Form1.myProcess.StandardInput.Flush()

End Sub

End Module






و این هم کدهای داخل فرم 1 :


Public Class Form1


Public WithEvents myProcess As Process
Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)









Private Sub AppendOutputText(ByVal text As String)
If TextBoxout.InvokeRequired Then
Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
Me.Invoke(myDelegate, text)
Else
TextBoxout.AppendText(text)
End If


End Sub


Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles myProcess.ErrorDataReceived


AppendOutputText(vbCrLf & "Error: " & e.Data)

End Sub


Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles myProcess.OutputDataReceived

AppendOutputText(vbCrLf & "Output: " & e.Data)



End Sub




Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

start("cmd.exe", True, True)
sendCommand("dir")



End Sub


End Class




همینطور که مشاهده میکنید :
در داخل ماژول من مجبور شدم به myprocess در form1 دستور بدم و در داخل فرم 1 هم رویدادهای گرفتن ارور و کرفتن خروجی رو هم باید بنویسم.

چطور میتونم تمام این کارها در داخل یک کلاس یا یک ماژول انجام بدم.

البته راهی که به ذهن من رسید اینه که یک کلاس به نام myform ایجاد کنم که از فرم ارث بری کنه و myprocess و 2 رویداد را override کنم و در زمان استفاده از متدهای ماژول
فرم 1 را نیز در وردی توابع به ماژول پاس بدم و به آبجکت process هر فرم دستورات را اعمال کنم...

[gilsoft]

چطور میتونم تمام این کارها در داخل یک کلاس یا یک ماژول انجام بدم.

سلام دوست عزیز

پروژه‌ای که ضمیمه کردم .. تا حدی مشکل شما رو برطرف می‌کنه ...

فقط اینکه باید ازش ایده بگیری

قبل از اولین اجرا .. پروژه رو Build کن ...

موفق باشید .....