Public Class StartForm Private Sub StartForm _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load VerifNotePad() End Sub Sub VerifNotePad() 'Sub VerifNotePad() 'Vérifie la présence d'outloo, si le process n'est pas présent on lance Outlook. Dim p As New Process Try 'Vérification de l'existence du process (on le trouve dans le gestionnaire des taches ^^) If UBound(Diagnostics.Process.GetProcessesByName("NotePad")) < 0 Then 'Si il n'est pas déjà lancé on le lance donc manuellement p.StartInfo.FileName = "C:\Windows\System32\notepad.exe" 'Définition du style de la fenêtre (maximisé, minimisé, normal, caché) p.StartInfo.WindowStyle = ProcessWindowStyle.Normal 'Démarrage du process p.Start() End If Catch err As Exception MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !") End Try End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question