Bonjour à tous,

Dans un premier temps je m'excuse si j'ai mal placé ce sujet.
Ensuite je tiens à préciser que je cherche depuis plusieurs jours sur les forums anglais et français et mon problème semble ne pas avoir encore été rencontré.

Je développe une petite application winform sur visual studio 2010 : une textbox multiligne et un bouton.

Lors du clic sur le bouton, le texte contenu dans la textbox est envoyé vers un fichier texte.

Lors du déploiement de mon application celle-ci marche parfaitement.

Seulement lorsque je la place sur un autre ordinateur (avec la même version de windows : Windows 7 Professionnel; et le même type du système : 64 bits), au moment de rentrer le premier caractère dans la textbox un message d'erreur apparaît :

WindowsApplication1 a cessé de fonctionner

Puis l'application se ferme. Ce qui est étrange c'est que cette erreur ne se produit que sur un seul ordinateur.

Voici les erreurs renvoyées par windows :

C:\Users\***\AppData\Local\Temp\WER6C81.tmp.WERInternalMetadata.xml
C:\Users\***\AppData\Local\Temp\WER8446.tmp.appcompat.txt
C:\Users\***\AppData\Local\Temp\WER8456.tmp.mdmp

Après de multiples recherches, il semble que l'application soit en conflit avec un autre programme, mais impossible de définir lequel.

Pour précision : Une textbox avec la propriété multiligne à false fonctionne parfaitement.

Code utilisé :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports System
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = Application.StartupPath & "\Test.txt"
        Dim sw As StreamWriter
 
        Try
 
 
            If File.Exists(path) = False Then
 
                sw = File.CreateText(path)
 
                sw.WriteLine(TextBox1.Text)
                sw.Flush()
                sw.Close()
            End If
 
 
            sw = File.AppendText(path)
            sw.WriteLine(TextBox1.Text)
            sw.Flush()
            sw.Close()
 
 
            Dim sr As StreamReader = File.OpenText(path)
            Dim s As String
            Do While sr.Peek() >= 0
                s = sr.ReadLine()
                Console.WriteLine(s)
            Loop
            sr.Close()
 
        Catch ex As Exception
 
        End Try
    End Sub
End Class
Je sollicite votre aide pour ce problème en espérant que quelqu'un ait la solution.

Merci

Florient