J'ai fais un programme, qui lance un 2ème programme.
Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme
se referme, le premier programme s'affiche en premier plan devans le 2ème
programme.
Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier
plan ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
X
OUVRIR UNE APPLICATION TOUJOURS A L'ECRAN (1er plan) ------------------------------------------------------------------------
Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long ' Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_SHOWWINDOW = &H40 ' Dim hWndCalc As Long
Sub Command2_Click() 'calculatrice affiche Dim lResult As Long ' On Error GoTo erreur lResult = Shell("calc.exe") hWndCalc = FindWindow("SciCalc", "Calculatrice") lResult = SetWindowPos(hWndCalc, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOSIZE Or SWP_NOMOVE Or SWP_SHOWWINDOW) Exit Sub ' erreur: If Err = 53 Then MsgBox "La calculatrice n'est pas installée, remédier... ", vbExclamation On Error Resume Next End Sub
-- 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 ------------------------------------------------------------------------------------ a écrit dans le message de news: 447a5ebc$0$20150$
Bonjour,
J'ai fais un programme, qui lance un 2ème programme. Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme se referme, le premier programme s'affiche en premier plan devans le 2ème programme. Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier plan ?
D'avance merci. Jocelyn GARBAY
OUVRIR UNE APPLICATION TOUJOURS A L'ECRAN (1er plan)
------------------------------------------------------------------------
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
'
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_SHOWWINDOW = &H40
'
Dim hWndCalc As Long
Sub Command2_Click() 'calculatrice affiche
Dim lResult As Long
'
On Error GoTo erreur
lResult = Shell("calc.exe")
hWndCalc = FindWindow("SciCalc", "Calculatrice")
lResult = SetWindowPos(hWndCalc, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOSIZE
Or SWP_NOMOVE Or SWP_SHOWWINDOW)
Exit Sub
'
erreur:
If Err = 53 Then MsgBox "La calculatrice n'est pas installée, remédier...
", vbExclamation
On Error Resume Next
End Sub
--
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
------------------------------------------------------------------------------------
<ide.jocelyn.garbay@wanadoo.fr> a écrit dans le message de news:
447a5ebc$0$20150$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai fais un programme, qui lance un 2ème programme.
Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème
programme
se referme, le premier programme s'affiche en premier plan devans le 2ème
programme.
Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier
plan ?
OUVRIR UNE APPLICATION TOUJOURS A L'ECRAN (1er plan) ------------------------------------------------------------------------
Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long ' Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_SHOWWINDOW = &H40 ' Dim hWndCalc As Long
Sub Command2_Click() 'calculatrice affiche Dim lResult As Long ' On Error GoTo erreur lResult = Shell("calc.exe") hWndCalc = FindWindow("SciCalc", "Calculatrice") lResult = SetWindowPos(hWndCalc, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOSIZE Or SWP_NOMOVE Or SWP_SHOWWINDOW) Exit Sub ' erreur: If Err = 53 Then MsgBox "La calculatrice n'est pas installée, remédier... ", vbExclamation On Error Resume Next End Sub
-- 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 ------------------------------------------------------------------------------------ a écrit dans le message de news: 447a5ebc$0$20150$
Bonjour,
J'ai fais un programme, qui lance un 2ème programme. Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme se referme, le premier programme s'affiche en premier plan devans le 2ème programme. Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier plan ?
D'avance merci. Jocelyn GARBAY
X
Bonjour, tu peux utiliser aussi:
sub load...() Me.Show
-- 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 ------------------------------------------------------------------------------------ a écrit dans le message de news: 447a5ebc$0$20150$
Bonjour,
J'ai fais un programme, qui lance un 2ème programme. Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme se referme, le premier programme s'affiche en premier plan devans le 2ème programme. Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier plan ?
D'avance merci. Jocelyn GARBAY
Bonjour, tu peux utiliser aussi:
sub load...()
Me.Show
--
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
------------------------------------------------------------------------------------
<ide.jocelyn.garbay@wanadoo.fr> a écrit dans le message de news:
447a5ebc$0$20150$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai fais un programme, qui lance un 2ème programme.
Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème
programme
se referme, le premier programme s'affiche en premier plan devans le 2ème
programme.
Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier
plan ?
-- 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 ------------------------------------------------------------------------------------ a écrit dans le message de news: 447a5ebc$0$20150$
Bonjour,
J'ai fais un programme, qui lance un 2ème programme. Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme se referme, le premier programme s'affiche en premier plan devans le 2ème programme. Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier plan ?
D'avance merci. Jocelyn GARBAY
Sebdraluorg
Salut a tous,
Eh je pense que le plus simple est l'api BringWindowToTop
Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
BringWindowToTop Form1.Hwnd
++ -- http://forum.zebulon.fr/blog/sebdraluorg
"X" a écrit :
Bonjour, tu peux utiliser aussi:
sub load...() Me.Show
-- 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 ------------------------------------------------------------------------------------ a écrit dans le message de news: 447a5ebc$0$20150$ > Bonjour, > > J'ai fais un programme, qui lance un 2ème programme. > Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème > programme > se referme, le premier programme s'affiche en premier plan devans le 2ème > programme. > Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier > plan ? > > D'avance merci. > Jocelyn GARBAY > >
Salut a tous,
Eh je pense que le plus simple est l'api BringWindowToTop
Public Declare Function BringWindowToTop Lib "user32" Alias
"BringWindowToTop" (ByVal hwnd As Long) As Long
BringWindowToTop Form1.Hwnd
++
--
http://forum.zebulon.fr/blog/sebdraluorg
"X" a écrit :
Bonjour, tu peux utiliser aussi:
sub load...()
Me.Show
--
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
------------------------------------------------------------------------------------
<ide.jocelyn.garbay@wanadoo.fr> a écrit dans le message de news:
447a5ebc$0$20150$8fcfb975@news.wanadoo.fr...
> Bonjour,
>
> J'ai fais un programme, qui lance un 2ème programme.
> Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème
> programme
> se referme, le premier programme s'affiche en premier plan devans le 2ème
> programme.
> Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier
> plan ?
>
> D'avance merci.
> Jocelyn GARBAY
>
>
Eh je pense que le plus simple est l'api BringWindowToTop
Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
BringWindowToTop Form1.Hwnd
++ -- http://forum.zebulon.fr/blog/sebdraluorg
"X" a écrit :
Bonjour, tu peux utiliser aussi:
sub load...() Me.Show
-- 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 ------------------------------------------------------------------------------------ a écrit dans le message de news: 447a5ebc$0$20150$ > Bonjour, > > J'ai fais un programme, qui lance un 2ème programme. > Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème > programme > se referme, le premier programme s'affiche en premier plan devans le 2ème > programme. > Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier > plan ? > > D'avance merci. > Jocelyn GARBAY > >
Pascal B.
Salut Jocelyn,
Dans le 3eme programme avant de le quitter (par ex. dans le Unload de la Form principale), il faut ajouter l'instruction suivante:
AppActivate "TitreDuProgramme2"
(TitreDuProgamme2 est le titre qui apparait dans la form principale du 2eme programme)
Cordialement, Pascal B.
wrote in message news:447a5ebc$0$20150$ | Bonjour, | | J'ai fais un programme, qui lance un 2ème programme. | Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme | se referme, le premier programme s'affiche en premier plan devans le 2ème | programme. | Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier | plan ? | | D'avance merci. | Jocelyn GARBAY | |
Salut Jocelyn,
Dans le 3eme programme avant de le quitter (par ex. dans le Unload de la Form principale), il faut ajouter l'instruction suivante:
AppActivate "TitreDuProgramme2"
(TitreDuProgamme2 est le titre qui apparait dans la form principale du 2eme programme)
Cordialement,
Pascal B.
<ide.jocelyn.garbay@wanadoo.fr> wrote in message news:447a5ebc$0$20150$8fcfb975@news.wanadoo.fr...
| Bonjour,
|
| J'ai fais un programme, qui lance un 2ème programme.
| Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme
| se referme, le premier programme s'affiche en premier plan devans le 2ème
| programme.
| Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier
| plan ?
|
| D'avance merci.
| Jocelyn GARBAY
|
|
Dans le 3eme programme avant de le quitter (par ex. dans le Unload de la Form principale), il faut ajouter l'instruction suivante:
AppActivate "TitreDuProgramme2"
(TitreDuProgamme2 est le titre qui apparait dans la form principale du 2eme programme)
Cordialement, Pascal B.
wrote in message news:447a5ebc$0$20150$ | Bonjour, | | J'ai fais un programme, qui lance un 2ème programme. | Ce deuxième programme peut lancer un 3ème programme. Quand le 3ème programme | se referme, le premier programme s'affiche en premier plan devans le 2ème | programme. | Y-a-t'il une méthode pour forcer l'affichage du 2ème programme au premier | plan ? | | D'avance merci. | Jocelyn GARBAY | |