Executável como MdiChild

[Wencesláu Pereira De Abreu Filho]

O código abaixo somente funciona com o notepad.exe. 

Os demais executáveis (Calculadora, Word e Excel), abrem fora do formulário pai.

Que posso fazer para que qualquer executável rode dentro dos limites do MdiContainer?

Desde já, agradeço qualquer ajuda!

Public Class Form1

    Dim myProcess As Process = New Process()
    Public WithEvents Btn As Button = New System.Windows.Forms.Button
    Public Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As System.IntPtr

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WindowState = FormWindowState.Maximized
        Text = "Executável Mdi Child"
        IsMdiContainer = True
        Btn.Location = New System.Drawing.Point(20, 20)
        Btn.Name = "Btn"
        Btn.Size = New System.Drawing.Size(100, 30)
        Btn.TabIndex = 1
        Btn.Text = " Abre executável "
        Btn.UseVisualStyleBackColor = True
        Controls.Add(Me.Btn)
        myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        myProcess.StartInfo.FileName = "C:\Windows\notepad.exe"
        'myProcess.StartInfo.FileName = "C:\Windows\System32\calc.exe"
        'myProcess.StartInfo.FileName = "C:\Program Files (x86)\Microsoft Office\Office12\WinWord.exe"
        'myProcess.StartInfo.FileName = "C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE"
    End Sub

    Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click
        myProcess.Start()
        myProcess.WaitForInputIdle()
        SetParent(myProcess.MainWindowHandle, Me.Handle)
    End Sub
End Class

[freecrackspc]

Thanks for sharing this content with us. you can visit this software Microsoft Office Visio 2013