Integrer un fichier executable dans un formulaire vb.net

Version imprimable

28/05/2010, 11h24
dahiri10

Integrer un fichier executable dans un formulaire vb.net

bonjour,

je développe avec vb.net 2008

je veux intégrer un calendrier portable (Non instalable) dans un formulaire ,

aidez moi si vous avez l'astuce ou un bou de code et merci d'avance .
28/05/2010, 11h32
benji_dv

Alors, pourrais tu donner plus de détails :

- techno, web je présume,
- qu'entends tu par " calendrier portable "
28/05/2010, 12h02
dahiri10

merci d'avoir lire mon sujet benji_dv

il y'a des logiciel portable c a dire non installable voir ce site http://portableappz.blogspot.com/

qui s'exécute directement sons installation je veux intégrer un de ces apps dan un formulaire vb.net

j'ai deja vu se genre d'application mais j'ai pas vu le code source :calim2:
28/05/2010, 12h08
benji_dv

Ok,
lorsque tu parles de formulaire, tu parles de web ? donc d'asp.net ?
28/05/2010, 12h20
dahiri10

nooooooooo

je ve dire formulaire=windows form

je developpe une application windows form vb.net 2008
28/05/2010, 12h33
benji_dv

Alors, tu veux donc utiliser un controle que tu as vu dans une autre application...
:)

Pose toi ces questions
- Le controle est il protégé par une licence ?
- as tu le droit d'utiliser le controle ?

Si l'application est en .net ... oui techniquement, ya moyen,
si elle ne l'est pas ... peut etre, mais ce sera plus chaud.

A ta place,
Soit je me crée mon controle,
Soit j'utilise ce qui existe
- dans VS.net en natif (et des calendar, yen a)
- soit glané depuis le web (il existe des pack de ctrls payant et gratuit)

Bon courage :)
28/05/2010, 12h39
dahiri10

si j'ai bien expliqué , je ne veux pas intégrer un control mais une petite application

open source et gratuit et non installable (exécution en un clik )

ex: intégrer une app comme : calculatrice de windows xp . dans une MDI parent:ccool:

et merci encore d'avoir suivi mon sujet.
28/05/2010, 12h47
benji_dv
Tu peux exécuter l'application depuis la tienne, mais pas l'intégrer en tant que telle dans tes écrans.
Pour l'exécuter :
Code:

1 2 3 4 5 6 7 Process notePad = new Process(); notePad.StartInfo.FileName = "notepad.exe"; notePad.StartInfo.Arguments = "ProcessStart.cs"; notePad.Start();
Mais à ma connaissance, tu ne pourras pas intégrer l'application dans la tienne (comme MDI par exemple ;) )
28/05/2010, 13h03
dahiri10
pour ce genre d'exécution je fait simplement
Code:

1 2 3 process.start("chemin\nomapplication.exe")
mais je trouve pas comment ajouter des programme .exe dans l'empaquetage
28/05/2010, 13h13
_PascalC_

Citation:

Envoyé par benji_dv

Tu peux exécuter l'application depuis la tienne, Mais à ma connaissance, tu ne pourras pas intégrer l'application dans la tienne (comme MDI par exemple ;) )

si si on peut via des API ;);). Voir http://www.developpez.net/forums/d83...terne-winform/
28/05/2010, 13h17
benji_dv

Ahh merci PascalC, je la connaissais pas celle là !:ccool:
28/05/2010, 15h27
dahiri10

merciiii pascal

j'ai lu votre sujet mais je suis nul en C# ,s'il vous plais si vous avez des astuces

en vb.net

et merciiiiii d'avance

j'ai rien pour faire du vb.net sur mon portable alors je ne garantis rien sur ma conversion c# => Vb.net, mais en gros ça devrait donner ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<DllImport("user32.dll")> _
private function SetParent(byval hWndChild as IntPtr, byval hWndNewParent as IntPtr) as IntPtr
 
<DllImport("user32.dll")> _
private function SetWindowPos(byval hWnd as IntPtr, byval hWndInsertAfter as IntPtr, byval X as integer, byval Y as integer, byval cx as integer, byval cy as integer, byval uFlags as integer) as boolean
 
private sub btnRun_Click(byval sender as object, byval e as EventArgs)
	Dim p as Process
	p = Process.Start("C:\Program Files\Notepad++\notepad++.exe")
	p.WaitForInputIdle()
 
	SetParent(p.MainWindowHandle, Me.Handle)
	SetWindowPos(p.MainWindowHandle, IntPtr.Zero, 50, 50, 600, 500, 0)
End sub

merciiiii a tous bon voila j'ai trouver la solus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Imports System.Runtime.InteropServices
Public Class Form1
 
    Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
 
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
   Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Process
        p = Process.Start("C:\Windows\System32\notepad.exe")
        p.WaitForInputIdle()
        SetParent(p.MainWindowHandle, Me.Handle)
        SetWindowPos(p.MainWindowHandle, IntPtr.Zero, 50, 50, 60, 50, 0)
    End Sub
End Class

31/05/2010, 13h55
Eric_M

Le code marche, mais seulement avec de petites applications (comme notepad.exe ou wordpad.exe). Les grosses applications, comme Internet Explorer ou Word ne marche pas avec ce code.

Y aurait-il une manière de le faire fonctionner avec les grosses applications ou sinon, d'enlever la TitleBar de l'application et mettre le DockStill à Fill?
31/05/2010, 14h23
_PascalC_

Citation:

Envoyé par Eric_M

Le code marche, mais seulement avec de petites applications (comme notepad.exe ou wordpad.exe). Les grosses applications, comme Internet Explorer ou Word ne marche pas avec ce code.

...il y aura sûrement quelques applis où ça ne passe pas ;). Retourne voir le lien que j'ai passé plus haut : http://www.developpez.net/forums/d83...terne-winform/ il y a une astuce (voir la Visionneuse autodesk en bas). Je viens de refaire le test sur xp et ça passe avec Internet explorer 8, word 2007, Windows media player, VS2010 ultimate. Je crois qu'avec Firefox ça ne passe pas par contre...

Citation:

enlever la TitleBar de l'application et mettre le DockStill à Fill?

Oui tu peux mais je sais plus avec quelle API par contre.
01/06/2010, 01h56
Eric_M

Merci Beaucoup Pascal!
Grâce à toi, je peux enfin faire ce que je voulais de puis longtemps!

Citation:

Envoyé par _PascalC_

Oui tu peux mais je sais plus avec quelle API par contre.

Si tu t'en souviens, dis moi le. :ccool:
Merci

P.S.: Internet Explorer marche avec ce code mais son navigateur web non.

slt pascal

cette function ne marche pas

Code:

1
2
3
4
5
 
 
 Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
 
    End Function

meme j,ai modifier ces paramettre la locaion d'application fils reste la meme dans le mileu

Code:

1
2
3
4
 
 
 
         SetWindowPos(p.MainWindowHandle, IntPtr.Zero, 50, 50, 60, 50, 0)