Login

Xiantrius · (Dieser Beitrag wurde zuletzt bearbeitet: 16.12.2012, 13:24 von Xiantrius.)

(16.12.2012, 02:47)sILeNt heLLsCrEAm schrieb: Und was hälst Du davon???
http://www.vbarchiv.net

Hmm tut mir leid, aber da friert weiterhin meine Form ein.
Es muss doch etwas geben was weiter hilft.

Versucht doch mal selbst zu testen und nicht immer nur andere links zu geben die dann doch das asyncron machen das ich aber nicht will. Da könnte ich genauso gut mein Code verwenden funktioniert genauso und sogar besser wie der umständliche code der nicht mal das kann was ich wollte.

Ich sagte syncron nicht anders.
Trotzdem danke für dein versuch mir zu helfen, nicht böse gemeint...

Edit:
Hab das jetzt mal so probiert, aber funktioniert nicht... was mach ich falsch?

Code:

    Delegate Sub UpdateTextBoxTextDelegate(ByVal text As String)

    Sub Processtart()
        Try
            Dim p As New Process
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.ToString()
            p.StartInfo.CreateNoWindow = True
            p.StartInfo.FileName = "DTC.exe"
            p.StartInfo.Arguments = " -f" & TextBox1.Text & " -w -wp1 -l15"
            p.Start()
            Dim text As String = p.StandardOutput.ReadToEnd
            p.WaitForExit()
            p.Start()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button10_Test_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Processtart()
    End Sub

    Private Sub UpdateTextBoxText(ByVal text As String)
#If DEBUG Then
        Debug.WriteLine(text)
#End If
        If Me.CheckBox1.Checked Then
            Me.TextBox2.AppendText(text + Environment.NewLine)
        Else
            Me.TextBox2.Text = text
        End If
    End Sub

    Private Sub ProcessOutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles '???? Was brauche ich da?
        If Not String.IsNullOrEmpty(e.Data) Then
            Me.Invoke(New UpdateTextBoxTextDelegate(AddressOf UpdateTextBoxText), New Object() {e.Data})
        End If
    End Sub

Login
Benutzername:
Passwort:	Passwort vergessen?
	Merken