Discussion :

[Minuitdixhuit]

Bonjour,
avec une petit programme en VB j'ouvre un fichier texte créé par mon programme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Private Sub OuvrirLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirLog.Click
           Try
                If File.Exists(FicLire) Then
                    Shell("C:\Windows\notepad.exe " + FicLire, vbMaximizedFocus)
                Else
                    msgbox("Message 901" + Chr(10), FicLire + Chr(10), "introuvable")
                End If
            Catch ex As Exception
                msgbox(ex.Message)
            End Try
 End Sub

J'aimerais pouvoir fermer ce fichier (fermer la fenêtre afin qu'elle n'apparaisse plus sur mon écran au lieu de le faire en cliquant sur «Fermer» du programme notepad.exe ) mais à partir de mon programme, par exemple en cliquant sur un bouton (ou le même).
Merci pour votre aide.

[umfred]

une façon brutale c'est de tuer le processus de l'application ciblée

[Minuitdixhuit]

Merci
J'ai entendu parler de cela, mais je n'ai pas réussi à le faire correctement : ça me ferme tous les fichiers notepad ouverts !

Code :

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

1
2
3
4
5
6
7
8
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each process__1 In Process.GetProcessesByName("notepad")
            Try
                process__1.Kill()
            Catch ex As Exception
            End Try
        Next
    End Sub

[popo]

Si l'objectif est de montrer le contenu du fichier, tu n'a pas besoin de l'ouvrir avec Notepad.
Tu peux te contenter de l'afficher dans ton programme avec un composant TextBox dont la propriété Multiline est active (ou bien un RichTextBox).

[Minuitdixhuit]

Merci pour cette suggestion, mais le fichier texte est très volumineux et il n'est pas aisé de le lire dans un textbox. Je l'ai fait mais ça n'est pas très pratique.
D'autre part, mon application ouvre sur demande plusieurs fichiers en même temps et ce sont ceux-là que je voudrais fermer en une seule fois (mais pas d'autres ouverts que je veux garder ouverts)


EDIT : Voici la «solution» que j'ai trouvée...

1) j'ai téléchargé un free genre notepad : TedNPad.exe
2) je l'ai renommé «TedNPadInfoDynamik.exe» et copié dans le répertoire de mon application (qui se nome InfoDynamik).
3) j'ouvre le ou les fichiers texte avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click
        Try
            If File.Exists(Myfile) Then
                Dim Ted As String = Application.StartupPath + "\TedNPadInfoDynamik.exe " + Myfile
                Shell(Ted, vbMaximizedFocus)
            Else
                MsgBox("Message 501" + Chr(10), Myfile , "introuvable")
            End If
        Catch ex As Exception
            MsgBox("Message 502", ex.Message, " ")
        End Try
 
    End Sub

4) je ferme avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Myprocess In Process.GetProcessesByName("TedNPadInfoDynamik")
            Try
                Myprocess.Kill()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
    End Sub

Pas très élégant mais ça le fait...

[popo]

Merci pour cette suggestion, mais le fichier texte est très volumineux et il n'est pas aisé de le lire dans un textbox. Je l'ai fait mais ça n'est pas très pratique

Certainement parce que tu t'es contenté de poser le composant sur la fiche.
Il faut paramétrer les propriétés suivantes :
Multiline à true,
Scrollbars à Both,
Dock à Fill.

C'est exactement ce qu'est Notepad, une fenêtre avec un grosse Textbox au milieu...

D'autre part, mon application ouvre sur demande plusieurs fichiers en même temps et ce sont ceux-là que je voudrais fermer en une seule fois (mais pas d'autres ouverts que je veux garder ouverts)

Rien ne t'empêche d'ouvrir plusieurs instances de la même fenêtre de ton application.

Pas très élégant mais ça le fait...

Sans commentaires...

[Phil Rob]

Bonjour,

Quasi identique au code de Excalybur, j'utilise celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub KillOldProcess(NomDuProcess As String)
        Dim Cpt As Integer = 0   ' Inutile si pas de MessageBox
        Dim P As System.Diagnostics.Process
        Try
            For Each P In System.Diagnostics.Process.GetProcesses
                If P.ProcessName.ToUpper Like "*" & NomDuProcess.ToUpper & "*" Then
                    P.Kill()
                    Cpt += 1   ' Inutile si pas de MessageBox
                End If
            Next
        Catch
        End Try
        ' MessageBox.Show(Cpt & " Process trouvé(s)")  ' La MessageBox facultative
    End Sub

Et pour arrêter le Notepad.exe, il suffit d'appeler KillOldProcess("Notepad").

...

[excalybur]

Bonjour

C'est vrai Phil Rob que nous avons pas mal échangé il y a quelques temps sur le sujet ! Ta solution est plus complète encore avec les messages optionnels.

a+

[Phil Rob]

Merci Ecalybur, mais je ne suis pas que l'une soit meilleure que l'autre.
Ma solution n'est qu'une légère variante.
A Minuitdixhuit de choisir celle qui lui plait le mieux.
Bon dimanche

[Minuitdixhuit]

Pour être honnête, je n'ai pas encore eu le temps d'appliquer vos solutions. Je vous remercie grandement de vos conseils !
Mais, il me semble que la solution (par rapport à la très peu orthodoxe que j'ai utilisée) ne résout pas, sauf erreur, un des petits soucis : ce sont TOUS les .txt notepad (ou autre selon le prog ouvert) qui sont fermés et non juste seuls appelés par le programme qui les a ouvert.
Encore une fois, je suis loin d'être une flèche en analyse et en programmation, mais je suis surpris qu'il ne semble pas exister de fonction permettant de fermer par programmation, par exemple, un .txt bien précis ouvert par notepad (ou autre) et pas les autres qui auraient été ouverts pour une autre raison et qu'on ne désirerait pas fermer.
Pardonnez-moi si je ne suis pas clair ou si je n'ai pas bien compris vos solutions.
Bon Dimanche.

[Phil Rob]

ce sont TOUS les .txt notepad (ou autre selon le prog ouvert) qui sont fermés et non juste seuls appelés par le programme qui les a ouvert

En effet ...

Mais en parcourant les codes que tu as postés précédemment, je vois que tu lances le Notepad avec la commande Shell. Or, celle=ci renvoie l'Id du process ouvert. Il te suffit donc (sauf erreur de ma part) de faire un Kill de ce process pour fermer ce Notepad.

Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
' Au niveau du Form :
 Dim LeProcess As Integer
' ..........
  Private Sub OuvrirLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirLog.Click
           Try
                If File.Exists(FicLire) Then
                  LeProcess =  Shell("C:\Windows\notepad.exe " + FicLire, vbMaximizedFocus)
                Else
                    msgbox("Message 901" + Chr(10), FicLire + Chr(10), "introuvable")
                End If
            Catch ex As Exception
                msgbox(ex.Message)
            End Try
 End Sub
 
' Et ailleurs,là où cela te convient, dans une procédure :
         Dim P As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessById(LeProcess)
         P.Kill()
' ..........

J'espère que ceci t'aidera ...

[Minuitdixhuit]

Super.
Merci à tous pour votre patience et vos divers commentaires instructifs.