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

[tomlev]

OK, je pensais que WaitForInputIdle attendrait jusqu'à ce que la fenêtre soit affichée, mais apparemment ce n'est pas le cas...

Rajoute ça après proc.WaitForInputIdle

Code :

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

1
2
3
4
5
6
            Dim count As Integer = 0
            While count < 10 AndAlso proc.MainWindowHandle = IntPtr.Zero
                count = count + 1
                Thread.Sleep(200)
                proc.WaitForInputIdle()
            End While

Ca permet d'attendre un peu que la fenêtre ait apparu... tu peux augmenter le nombre d'essais si besoin

[Dev222]

Merci beaucoup, je test !

EDIT: C'est bien mais ce n'est pas trop ce que je voulait (je suis difficile ^^)
Je voudrais qu'il n'y ai pas les bordures et boutons fermer, réduire et agrandir et que l'application soit affichée dans tout le cadre
Est-ce possible ?

[tomlev]

Pour l'agrandir, tu peux utiliser l'API ShowWindow avec le flag SW_MAXIMIZE
Pour supprimer les bordures, il faut utiliser l'API SetWindowLong, avec GWL_STYLE comme id. Je ne sais pas exactement quelles valeurs il faut passer, regarde les différents styles possibles ici

Pour savoir comment déclarer ces fonctions en VB.NET, regarde sur ce site

[Dev222]

Encore merci et bonne journée ! Je pense que le sujet est résolu une fois pour toutes !