Mette une application en premier plan

cs_deaqu1 Messages postés 3 Date d'inscription vendredi 29 avril 2005 Statut Membre Dernière intervention 25 août 2005 - 25 août 2005 à 10:18
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 25 août 2005 à 11:37
Bonjour,

J'ai besoin de mettre au premier plan une application qui est déjà en cours d'utilisation mais qui est iconisée ou en arrière plan. Cette application peut-être Word, Excel ou la calculatrice de Windows.

Merci.

Didier

2 réponses

MaDzA Messages postés 20 Date d'inscription mercredi 18 mai 2005 Statut Membre Dernière intervention 13 septembre 2005 1
25 août 2005 à 10:50
Shell "calc", vbNormalFocus

voilà j'espère que ça répond a ta question!
a++
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
25 août 2005 à 11:37
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long





Private Sub Command1_Click()

Dim Hwnd As Long

Hwnd = FindWindow(vbNullString, "Calculatrice")



If Hwnd Then

ShowWindow Hwnd, 0

ShowWindow Hwnd, 9

End If



End Sub


Daniel
0
Rejoignez-nous