Ajout d'un exe à un projet

Heu, si j'ai bien compris, ton exe peut lancer un autre exe, voire même à ce
qu'ils se passent la main entre eux (API shellExecute), par des fichiers et
des variables d'environnement...

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"John" <john@nospam.com> a écrit dans le message de news:
O73MEpvNGHA.3924@TK2MSFTNGP14.phx.gbl...

Bonjour,

j'ai un projet vb qui démarre sur un écran avec une barre de menus (de
type
.frm)

Je souhaiterais avant d'accéder à la barre des menus lancer un "petit"
exécutable (un .exe) qui est, en fait, une animation flash.
Pour après revenir sur la barre de menu principale.

Mais je ne sais pas trop comment faire ça.

Quelqu'un a-t-il une idée ?

Merci par avance

John a écrit :

Bonjour,

j'ai un projet vb qui démarre sur un écran avec une barre de menus (de type
.frm)

Je souhaiterais avant d'accéder à la barre des menus lancer un "petit"
exécutable (un .exe) qui est, en fait, une animation flash.
Pour après revenir sur la barre de menu principale.

Mais je ne sais pas trop comment faire ça.

Quelqu'un a-t-il une idée ?

Merci par avance

Au lieu de démarrer ton programme par le chargement d'une feuille, tu
peux aussi démarrer ton programme par l'exécution d'une procédure
'Start' d'un module public. Dans cette procédure, tu pourras alors
lancer ton animation, puis seulement charger la feuille.

Vincent Guichard

Tu peux faire ceci
Dans un module tu ajoutes le source ci-dessous

Module.bas

Option Explicit

Private Const SYNCHRONIZE As Long = &H100000
Private Const WAIT_TIMEOUT As Long = &H102&

Private Declare Function OpenProcess _
Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle _
Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject _
Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long


Public Sub prcShellExecuteAndWait(ByVal strApplication As String, _
ByVal intWindowStyle As
VbAppWinStyle)
Const strProc As String = "launch a shell command"
Dim lngPID As Double
On Error GoTo Erreur
' Launch of process
'
lngPID = Shell(strApplication, intWindowStyle)

If lngPID <> 0# Then ' Wait until the end of a task
?
prcWaitTaskEnd CLng(lngPID)
End If

Exit Sub
Erreur:
End Sub

Private Sub prcWaitTaskEnd(ByVal lngPID As Long)
Const strProc As String = "wait until end of a task"
Dim lngPHnd As Long
Dim lngRetV As Long
On Error GoTo Erreur
' Get the handle of the process
'
lngPHnd = OpenProcess(SYNCHRONIZE, 0, lngPID)
If lngPHnd <> 0& Then
lngRetV = WaitForSingleObject(lngPHnd, 0) ' Wait a little
While lngRetV = WAIT_TIMEOUT ' Timeout (not
completed)
DoEvents
lngRetV = WaitForSingleObject(lngPHnd, 0) ' Wait a little
more
Wend

' Close of the handle
'
Call CloseHandle(lngPHnd)
End If
Exit Sub
Erreur:
End Sub

Dans ta fenêtre
Private Sub Form_Load()
prcShellExecuteAndWait "MonExe.exe", vbNormalFocus
MsgBox "C'est fini"
End Sub

Est-ce qu'il y a des exemples de code quelque part pour lancer directement
un fichier .swf ?

merci


"Vincent Guichard" <vg.bleuciel.sa@wanadoo.fr> wrote in message
news:43fc2e3a$0$18339$8fcfb975@news.wanadoo.fr...

John a écrit :
> Bonjour,
>
> j'ai un projet vb qui démarre sur un écran avec une barre de menus (de

type

> .frm)
>
> Je souhaiterais avant d'accéder à la barre des menus lancer un "petit"
> exécutable (un .exe) qui est, en fait, une animation flash.
> Pour après revenir sur la barre de menu principale.
>
> Mais je ne sais pas trop comment faire ça.
>
> Quelqu'un a-t-il une idée ?
>
> Merci par avance
>
>
Au lieu de démarrer ton programme par le chargement d'une feuille, tu
peux aussi démarrer ton programme par l'exécution d'une procédure
'Start' d'un module public. Dans cette procédure, tu pourras alors
lancer ton animation, puis seulement charger la feuille.

Vincent Guichard

oui j'en ai vu passer sur vbfrance.com ou planet-source-code.com

Driss
"jack" <jack@nospam.fr> a écrit dans le message de
news:%23yg$rT6NGHA.2916@tk2msftngp13.phx.gbl...

Est-ce qu'il y a des exemples de code quelque part pour lancer directement
un fichier .swf ?

merci


"Vincent Guichard" <vg.bleuciel.sa@wanadoo.fr> wrote in message
news:43fc2e3a$0$18339$8fcfb975@news.wanadoo.fr...
> John a écrit :
> > Bonjour,
> >
> > j'ai un projet vb qui démarre sur un écran avec une barre de menus (de
type
> > .frm)
> >
> > Je souhaiterais avant d'accéder à la barre des menus lancer un "petit"
> > exécutable (un .exe) qui est, en fait, une animation flash.
> > Pour après revenir sur la barre de menu principale.
> >
> > Mais je ne sais pas trop comment faire ça.
> >
> > Quelqu'un a-t-il une idée ?
> >
> > Merci par avance
> >
> >
> Au lieu de démarrer ton programme par le chargement d'une feuille, tu
> peux aussi démarrer ton programme par l'exécution d'une procédure
> 'Start' d'un module public. Dans cette procédure, tu pourras alors
> lancer ton animation, puis seulement charger la feuille.
>
> Vincent Guichard