Interférence dans un processus

Version imprimable

Bonjour,

J'écris dans Notepad des données provenant d'une table. Le problème est : tant que le processus n'est pas terminé je ne peux rien faire. Si j'utilise ma souris pour faire une action quelconque, l'écriture s'arrête.

Comment faire pour pouvoir continuer à utiliser mon application pendant l'écriture du fichier afin de ne pas devoir attendre la fin du processus

Merci de vos réponses.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Async Sub btnImprimer_Click(sender As Object, e As EventArgs) Handles btnImprimer.Click
 
        Dim notepad As Process = New Process()
        notepad.StartInfo.FileName = "Notepad.exe"
        notepad.StartInfo.UseShellExecute = False
        notepad.StartInfo.RedirectStandardInput = True
 
        notepad.Start()
        notepad.WaitForInputIdle()
 
        OuvrirConnection()
 
        Dim Select_cmd As New SQLiteCommand("Select * FROM Phrases order by Etape")
        Select_cmd.Connection = ObjetConnection
        Dim reader As SQLiteDataReader = Select_cmd.ExecuteReader()
 
        If notepad.Responding Then
 
            Do While reader.Read
 
                Dim maLigne As String = reader.Item("Phrase_ES") & vbCrLf &
                                        reader.Item("Phrase_FR") & vbCrLf
                System.Windows.Forms.SendKeys.SendWait(maLigne)
            Loop
 
        End If
 
        FermerConnection()
        notepad.Close()
 
    End Sub

28/01/2024, 11h24
Pol63

backgroundworker ou thread
29/01/2024, 11h27
umfred

Pourquoi passer par du Sendkeys et pas par les fonctions d'écriture dans un fichier ?
Le SendWait attend la fin du traitement du message envoyé.

Interférence suite

Bonjour,

J'ai essayé de suivre vos conseils mais sans succès. Dans les deux cas si j'utilise ma souris cela interromps l'écriture du texte.
Probablement une mauvaise utilisation ou mauvaise compréhension !???

Un peu d'aide serait bienvenue

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
'---- version avec un Thread ----
 
Private ThreadGenerer As System.Threading.Thread
 
 
Private Sub StartThread()
    ThreadGenerer = New Threading.Thread(AddressOf GenererFichierPhrases)
    ThreadGenerer.Start()
End Sub
 
 
'---- Version avec un backgroundworker ----
Private Sub btnVoca_bdMAJ_Click(sender As Object, e As EventArgs) Handles btnVoca_bdMAJ.Click
 
    BackgroundWorker1.RunWorkerAsync()
 
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
	GenererFichierPhrases()
 
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
 
        MsgBox("Mise à jour terminée.")
 
End Sub
 
Public Function GenererFichierPhrases()
 
        Dim notepad As Process = New Process()
        notepad.StartInfo.FileName = "Notepad.exe"
        notepad.StartInfo.UseShellExecute = False
        notepad.StartInfo.RedirectStandardInput = True
 
        notepad.Start()
        notepad.WaitForInputIdle()
 
        OuvrirConnection()
 
        Dim Select_cmd As New SQLiteCommand("Select * FROM Phrases order by RANDOM() LIMIT 15")
        Select_cmd.Connection = ObjetConnection
        Dim reader As SQLiteDataReader = Select_cmd.ExecuteReader()
 
        If notepad.Responding Then
 
            Do While reader.Read
 
                Dim maLigne As String = reader.Item("Phrase_ES") & vbCrLf &
                                        reader.Item("Phrase_FR") & vbCrLf
                System.Windows.Forms.SendKeys.SendWait(maLigne)
            Loop
 
        End If
 
        FermerConnection()
        notepad.Close()
 
 
    End Function

SendKeys.SendWait envoie les infos à l'application active, donc si ce n'est pas le notepad, les infos ne sont écrites dans le notepad.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Async Sub btnImprimer_Click(sender As Object, e As EventArgs) Handles btnImprimer.Click
 
        OuvrirConnection()
 
        Dim Select_cmd As New SQLiteCommand("Select * FROM Phrases order by Etape")
        Select_cmd.Connection = ObjetConnection
        Dim reader As SQLiteDataReader = Select_cmd.ExecuteReader()
 
        Using fs As StreamWriter = File.CreateText("c:\temp\recup.txt")  'on créé un fichier vide c:\temp\recup.txt
            Do While reader.Read
 
                Dim maLigne As String = reader.Item("Phrase_ES") & vbCrLf &
                                        reader.Item("Phrase_FR") & vbCrLf
                fs.Write(maLigne) 'on ajoute maLigne au fichier c:\temp\recup.txt
           Loop
        End Using
        FermerConnection()
 
    End Sub