Executable dans un cadre

Version imprimable

23/01/2011, 20h33
Dev222

Executable dans un cadre

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.
24/01/2011, 14h40
alex61

euh ....

tu peut préciser ?
25/01/2011, 18h57
Dev222

Détails

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:

http://m2hsdevsite.hackr3dofficial.x10.mx/Apercu.PNG

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

Bonne soirée

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:

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

26/01/2011, 13h41
Dev222

Merci mais il me lance le programme selectionné par l'openfiledialog normalement :?
28/01/2011, 22h03
tomlev

Citation:

Envoyé par Dev222

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

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:

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

29/01/2011, 08h43
Dev222

OK

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 ?
29/01/2011, 14h29
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
29/01/2011, 14h41
Dev222

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