Discussion :

[newbie_vbexpress2008]

Bonsoir,

J'essaie d'écrire une petit programme de base pour mes débuts en VB express 2008.

J'ai créé une form avec 2 boutons
cde ouvrir pour ouvrir un fichier
cde fermer pour refermer ce fichier

Pour ouvrir ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Class Form1
    Dim myShell
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myShell = Shell("""chemin de l'application externe associée"" ""chemin du fichier à ouvrir""", AppWinStyle.MaximizedFocus)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Comment faire pour refermer

Merci de votre aide

[Pol63]

utilise process plutot que shell (system.diagnostics)

et sinon je te conseille http://plasserre.developpez.com/cours/vb-net/

[tobba]

Oui il a raison tu doit essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Diagnostics.Process.Start("chemin de l'application")

et pour la fermer tu peut utliser la methode kill de l'objet process

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 For Each p As Process In System.Diagnostics.Process.GetProcesses
            If p.ProcessName = "nom de processus" Then
                p.Kill()
            End If
   Next

[Pol63]

plutot que de reparcourir les processus pour rechercher celui qui a été créé, il suffit de garder une référence dessus avec une variable

et ensuite if not p.hasexited then p.kill

[tobba]

oui t'a raison sa sera plus professionnel merci pour cette information .

[newbie_vbexpress2008]

Bonsoir,

merci pour cette aide, je vais mettre en pratique et je reviens vers vous pour info

Je suis désolé, j'ai reçu un MP qui à été viré automatiquement par mes protections, j'ai maintenant déverrouillé.

[newbie_vbexpress2008]

Re,

Pour l'ouverture du fichier c'est nickel

Quand tobba dit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 For Each p As Process In System.Diagnostics.Process.GetProcesses
            If p.ProcessName = "nom de processus" Then
                p.Kill()
            End If
   Next

je comprends que pour tous les process en cours celui dont le nom est "mon process" doit être fermé (équivalent alt+F4)


Mais quand Pol63 dit

plutot que de reparcourir les processus pour rechercher celui qui a été créé, il suffit de garder une référence dessus avec une variable

et ensuite if not p.hasexited then p.kill

Là, je suis largué

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
private _process as process
 
 
sub start()
  _process = process.Start("monexe.exe")
end sub
 
 
sub stop()
    if _process is nothing then exit sub ' pas lancé
    if _process.hasexited then exit sub ' il s'est fermé tout seul ou par l'utilisateur
    _process.close
end sub

voir si close ferme bien l'appli, kill la ferme pas forcément proprement (arret du processus sans le prévenir je pense)
voir aussi waitforexit ou tout ce qui traine sur la classe via l'intellisense ...

[newbie_vbexpress2008]

Essai N°1 Ouverture=OK Fermeture=KO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("chemin du fichier à ouvrir")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each p As Process In System.Diagnostics.Process.GetProcesses
            If p.ProcessName = "nom de processus" Then
                p.Kill()
            End If
            Next
    End Sub
 
    End Class

Commentaires : 2 essais faits pour "nom du processus"
a/ "process.exe" (le programme qui ouvre le fichier)
b/ "le chemin complet\process.exe"

Edité
Essai N°2 Ouverture=OK Fermeture=KO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form1
    Private _process As Process
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        _process = Process.Start("chemin du fichier à ouvrir")
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If _process Is Nothing Then Exit Sub ' pas lancé
        If _process.HasExited Then Exit Sub ' il s'est fermé tout seul ou par l'utilisateur
        _process.Close()
    End Sub
 
    End Class