VB2010 Semikolon Problem

[Msp 4. (msp430_crew)]

Hallo Liebes Forum. Ich versuche gerade einen String mit Semikolons zu 
übergeben.

Der unten folgende Code funktioniert nicht :-). Wenn ich jedoch die 
System.Diagnostics.Process.Start("c:\test\main.exe " , "\test\ -vga") 
direkt befülle, findet er den Pfad. Wo iat mein Denkfehler?

 Private Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal p As System.Windows.Forms.Panel)
        Try
            Dim hProcess As System.Diagnostics.Process = System.Diagnostics.Process.Start(CallingApplication)
            hProcess.WaitForInputIdle()
            SetParent(hProcess.MainWindowHandle, p.Handle)
            ShowWindow(hProcess.MainWindowHandle, SW_MAXIMIZE)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Info")
          End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const APP_NAME As String = Chr(34) & "c:\test\main.exe"
        Const APP_SEM As String = Chr(34) & " , " & Chr(34)
        Const APP_PARAM As String = "\test\ -vga" & Chr(34)
        Const APP As String = APP_NAME & APP_SEM & APP_PARAM

        'System.Diagnostics.Process.Start("C:\Datei.exe", "-Parameter")
        SetApplicationAsChild(APP, Panel1)
    End Sub

[Peter II (Gast)]

wo soll das Semikolons überhaupt sein?

Und was heist "funktioniert nicht" gibt es eine Fehlermeldung?

[Msp 4. (msp430_crew)]

Der String soll so aussehen:

"c:\test\main.exe " , "\test\ -vga"

und System.Diagnostics.Process.Start als CallingApplication übergeben 
werden.
Der Parameter wird nicht korrekt übergeben dadurch kann das Sysem die 
Datei nicht finden.

[Peter II (Gast)]

Msp 430_crew schrieb:
> Der Parameter wird nicht korrekt übergeben dadurch kann das Sysem die
> Datei nicht finden.

wie wird er denn übergeben? Gibt ihn doch mal aus.

[Msp 4. (msp430_crew)]

Im Debugger sehe die Ausgabe:

"c:\test\main.exe " , "\test\ -vga"

[Rufus Τ. F. (rufus)]

Und was soll das Komma da?

Der Funktion System.Diagnostics.Process.Start müssen zwei Parameter 
übergeben werden.

Also musst Du Deiner Funktion SetApplicationAsChild auch diese beiden 
Parameter übergeben, damit Du sie dort beide an 
System.Diagnostics.Process.Start übergeben kannst.

Und die Anführungszeichen gehören da auch nicht hin.

 Private Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal Parameters As String, ByVal p As System.Windows.Forms.Panel)
        Try
            Dim hProcess As System.Diagnostics.Process = System.Diagnostics.Process.Start(CallingApplication, Parameters)
            hProcess.WaitForInputIdle()
            SetParent(hProcess.MainWindowHandle, p.Handle)
            ShowWindow(hProcess.MainWindowHandle, SW_MAXIMIZE)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Info")
          End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const APP_NAME As String = "c:\test\main.exe"
        Const APP_PARAM As String = "\test\ -vga"

        SetApplicationAsChild(APP_NAME, APP_PARAM, Panel1)
    End Sub

[Msp 4. (msp430_crew)]

Hallo Rufus,
schön von Dir zu hören. Es funktioniert jetzt wie gewünscht. Nur öffnet 
sich jetzt die APP nicht eingebettet. Wie kann das sein?

VG
Patti

[Rufus Τ. F. (rufus)]

Hat denn das jemals schon funktioniert?

[Msp 4. (msp430_crew)]

Ja, ich habe angefangen mit dem BSPL. wo Notepad eingebettet wurde und 
die APP wurde auch in meinem Panel1 angezeigt.

Private Sub SetApplicationAsChild(ByVal CallingApplication As String, ByVal p As System.Windows.Forms.Panel)
    Try
        Dim hProcess As System.Diagnostics.Process = System.Diagnostics.Process.Start(CallingApplication)
        hProcess.WaitForInputIdle()
        SetParent(hProcess.MainWindowHandle, p.Handle)
        ShowWindow(hProcess.MainWindowHandle, SW_MAXIMIZE)
    Catch ex As Exception
        MessageBox.Show(ex.Message.ToString(), "Info")
    End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Const APP_NAME As String = "notepad.exe"
    SetApplicationAsChild(APP_NAME, Panel1)
End Sub

[Rufus Τ. F. (rufus)]

Nun, ist die "App" "main.exe" denn ein Windows-Programm mit Fenster(n) 
oder ist das eine Konsolapplikation?

[Msp 4. (msp430_crew)]

Hi Rufus,
es handelt sich hier um ein normales Fernsterprogramm.

[horstfh (Gast)]

Sieh' Dir doch einmal die Lösung unter 
http://www.vbarchiv.net/tipps/tipp_1794-notepadexe-editor-in-vb-oberflaeche-integrieren-anwendung-einfangen.html 
an.