1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As IntPtr) As Boolean
Private Sub MettreAuPremierPlan(ByVal nomProcess As String)
'Exemples de noms de Process en entrée : excel, notepad, outlook, photoshop, winword, wmplayer, etc.
'On peut trouver le nom d'un Process en ouvrant le Gestionnaire de Périphériques (ctrl + alt + suppr)
'
'1) Récupérer toutes les instances pour le Process recherché
Dim processes As Process() = Process.GetProcessesByName(nomProcess)
If processes.Length > 0 Then
Try
'2) Mettre au premier la 1ère instance de l'application
SetForegroundWindow(processes(0).MainWindowHandle)
Catch ex As Exception
'Erreur lors de la mise au premier plan
MessageBox.Show(ex.Message)
End Try
Else
'Aucune instance trouvée pour nomProcess
MessageBox.Show("Aucune instance trouvée pour " & nomProcess & ".")
End If
End Sub |
Partager