Discussion :

[Dev222]

Bonjour,
Il y avait longtemps, j'avait vu une source qui permettait d'afficher un executable dans un un cadre (je pense que c'est un panel). Depuis que j'ai formaté mon disque dur, je n'ai plus le lien. J'ai effectué de nombreuses recherches mais rien ne correspond a ce que je veut. Connaissez-vous une source similaire SVP ? Merci d'avance et bonne soirée.

[alex61]

euh ....

tu peut préciser ?

[Dev222]

Pas de problèmes
J'aimerais savoir comment on affiche le contenu d'un exe externe compilé à l'interieur d'un cadre dans mon programme en vb.net .
Voici un montage photo que j'ai fait:



J'éspère que c'est plus clair

Bonne soirée

[tomlev]

C'est assez simple en fait... il faut récupérer le handle de la fenêtre de l'application, et définir le contrôle "hote" comme parent de cette fenêtre, à l'aide de l'API SetParent

Petit exemple vite fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Class AppHostForm
	Inherits Form
	Private _hostPanel As Panel
 
	Public Sub New()
		_hostPanel = New Panel()
		_hostPanel.Size = New Size(ClientSize.Width - 50, ClientSize.Height - 50)
		_hostPanel.Location = New Point(25, 25)
		_hostPanel.BackColor = Color.Black
		_hostPanel.Anchor = AnchorStyles.Bottom Or AnchorStyles.Right Or AnchorStyles.Left Or AnchorStyles.Top
		Me.Controls.Add(_hostPanel)
 
		Dim btn As New Button()
		btn.Text = "Run app"
		AddHandler btn.Click, AddressOf btn_Click
		Me.Controls.Add(btn)
	End Sub
 
	Private Sub btn_Click(sender As Object, e As EventArgs)
		Dim dialog = New OpenFileDialog()
		dialog.Filter = "Exécutable|*.exe"
		If dialog.ShowDialog() = DialogResult.OK Then
			Dim proc = Process.Start(dialog.FileName)
			proc.WaitForInputIdle()
			If proc.MainWindowHandle <> IntPtr.Zero Then
				SetParent(proc.MainWindowHandle, _hostPanel.Handle)
			End If
		End If
	End Sub
	<DllImport("user32")> _
	Private Shared Function SetParent(child As IntPtr, newParent As IntPtr) As IntPtr
	End Function
End Class

[Dev222]

Merci mais il me lance le programme selectionné par l'openfiledialog normalement

[tomlev]

Merci mais il me lance le programme selectionné par l'openfiledialog normalement

Je comprends pas ce que tu veux dire... Oui, il lance le programme sélectionné dans le dialog. Ce n'est pas ce que tu veux ?

EDIT: ah ok, j'ai compris... j'avais testé avec notepad et ça marchait, mais je viens de retester avec la calculatrice et ça ne marche plus... je vais voir ce qu'on peut y faire