Discussion :

[pascb423]

Bonjour,
en vb.net j'ai un bouton, quand je clic dessus, un fichier texte s'ouvre avec un process.start, quand je quitte le fichier texte après l'avoir enregistré j'aimerai savoir si on peut coder après la fermeture du fichier texte, ca n'est pas la fonction lostfocus mais il en existe une autre pour faire ça?

[Miska59]

Bonsoir,

quand je quitte le fichier texte après l'avoir enregistré j'aimerai savoir si on peut coder après la fermeture du fichier texte

vous pouvez fermer avec process.close() ou process.kill().

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Dim process As New Process
        process.Start("Notepad.exe")
        Threading.Thread.Sleep("10000")
        process.Close()
 
Dim process As New Process
        process.Start("Notepad.exe")
        Threading.Thread.Sleep("10000")
        process.Kill()

definition :

Process.close :

La méthode Close empêche le processus d'attendre la sortie s'il était en attente, ferme le descripteur de processus et efface les propriétés spécifiques au processus. Fermer ne ferme pas les lecteurs et les rédacteurs de sortie, d'entrée et d'erreur standard s'ils sont référencés de manière externe. [c'est à dire. le processus lui-même continue à fonctionner, vous ne pouvez plus le contrôler à l'aide de votre instance de processus]

Process.kill()

Kill force la fin du processus, alors que CloseMainWindow ne demande qu'une fin. [...] La demande de quitter le processus en appelant CloseMainWindow ne force pas l'application à quitter. L'application peut demander la vérification de l'utilisateur avant de quitter ou refuser de quitter. Pour forcer l'application à quitter, utilisez la méthode Kill. Le comportement de CloseMainWindow est identique à celui d'un utilisateur qui ferme la fenêtre principale d'une application à l'aide du menu système. Par conséquent, la demande de quitter le processus en fermant la fenêtre principale ne force pas l'application à quitter immédiatement.

Process.CloseMainWindows :

Ferme un processus comportant une interface utilisateur en envoyant un message de fermeture à la fenêtre principale.

Cordialement,

[pascb423]

merci, je vais essayer mais la fin du processus se fait normalement quand quelqu'un ferme le fichier texte?, je vais essayer un if process.close dans un timer?

[wallace1]

Lol.....

Il te faudra créer des events pour pouvoir gérer l ouverture et la fermeture.
Je rajoute que cela peut se faire via les objets WMI en surveillant l ouverture et la fermeture du processus notepad (par exemple)....Je t aurais bien redirigé sur un de mes projets pour cela mais je suis certain que tu ne comprendra pas le fonctionnement dans son ensemble

[Pol63]

il doit y avoir un event exited sur process, donc tu devrais pouvoir exécuter du code juste après la fermeture
sinon vu que tu as l'air de connaitre l'emplacement du fichier ouvert tu dois pouvoir utiliser le filesystemwatcher sur ce fichier pour être averti d'un changement (sans forcément que le process soit terminé)

[pascb423]

Lol.....

Il te faudra créer des events pour pouvoir gérer l ouverture et la fermeture.
Je rajoute que cela peut se faire via les objets WMI en surveillant l ouverture et la fermeture du processus notepad (par exemple)....Je t aurais bien redirigé sur un de mes projets pour cela mais je suis certain que tu ne comprendra pas le fonctionnement dans son ensemble

ca m'intéresse

[pascb423]

j'ai fait autrement, quand on clic sur le bouton enregistrer de la boite bloc note, il enregistre le fichier avec la date actuelle et je test simplement si la date du fichier moins la date actuelle est inférieur à 1 seconde, voici le code:

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
Dim LaDate2 As DateTime = IO.File.GetLastWriteTime(".\ateliers\" & ComboBox1.Text & ".txt")
        If DateTime.Now - LaDate2 < TimeSpan.Parse("00:00:01") Then
            ComboBox2.Items.Clear()
            Dim SR2 As New StreamReader(".\ateliers\" & ComboBox1.Text & ".txt", System.Text.Encoding.UTF7)
            Do Until SR2.Peek = -1
                Dim Ligne5 As String
                Ligne5 = SR2.ReadLine()
                If Ligne5 <> "" Then
                    Me.ComboBox2.Items.Add(Ligne5)
                End If
            Loop
            ComboBox2.Sorted = True
            If ComboBox2.Items.Count > 0 Then
                Me.ComboBox2.SelectedIndex = 0
            Else
                combobox2.Text = ""
            End If
            SR2.Close()
        End If