Discussion :

[Whombat]

Bonjour à tous,

J'ai encore dû coincer quelque part...

J'ai déclaré, dans mon module les cultureInfos suivantes :

Code :

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

1
2
3
    Public Français_FranceCulture As New CultureInfo("fr-FR", False)
    Public Anglais_Etats_UnisCulture As New CultureInfo("en-US", False)
    ................

puis, dans la feuille main, je déclare :

Code :

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

1
2
3
4
    Sub New()
 
        Thread.CurrentThread.CurrentCulture = Français_FranceCulture
	.................

Du coup, vb 2010 ne reconnait plus les accents, ni dans les controls, ni dans la MessageBox...

Quelqu'un pourrait-il me dire ce qui se passe ?

Merci infiniment.

Cordialement,

Whombat

[tomlev]

Euh... Qu'est-ce que tu entends au juste par "ne reconnait plus les accents" ?

[Whombat]

Bonjour et merci pour la réponse. J'ai un peu tardé mais j'étais occupé ailleurs. C'est rare mais ça arrive.

Donc, VB ne reconnait plus les accents cad qu'il me met des petits losanges noirs à la place des caractères accentués, dans les MessageBox. Pour les controls ça va.

Je me dis (avec ma science très faible) que s'il reconnait les accents sur les contrôles, il les reconnait dans les messageBox, (je veux parler de la façon dont la culture info est déclarée). Et bien non. Ce doit être un pb de FrameWork, peut-être. Celui qui gère les contrôles d'une simple feuille form ne doit pas (peut-être...) être aussi à l'avangarde que celui qui crée les messageBox à la place des msgbox.

Bref, ça coince qq part.

[tomlev]

Celui qui gère les contrôles d'une simple feuille form ne doit pas (peut-être...) être aussi à l'avangarde que celui qui crée les messageBox à la place des msgbox.

Bah c'est le même...

D'où viennent ces accents ? De ton code où d'un fichier ? Quel est l'encodage du fichier ?

[Whombat]

En fait : correction. Lorsque je fais :

Code :

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

1
2
 
MessageBox.Show("Héhé, je fais un excès de zèle à la leçon")

les accents et la cédille sont présent.

J'ai un répertoire avec des fichiers qui portent, pour nom, des catégories précises il est donc interdit d'en modifier les accents. En lisant, par code, ce répertoire et en mettant, à chaque fichier, sa catégorie ou son nom dans une MessageBox alors là, et là seulement, plus d'accent...

Le code d'où viennent les MessageBox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
        Dim result As DialogResult = FolderBrowserDialog1.ShowDialog()
 
        If (result = DialogResult.OK) Then
 
            MyDir = FolderBrowserDialog1.SelectedPath
            For Each Fich In Directory.GetFiles(MyDir)
                      MessageBox.Show(Fich)
            next
 
        end if

[Whombat]

Nos réponses se sont croisées, je vais voir parce que j'ai un doute. En fait j'ai 2 entrées : la lecture d'un rep et la lecture ligna à ligne d'un fichier txt Note-Pad.

Je contrôle et je reviens.

[Whombat]

Me revoilà;

Donc, c'est, et ce n'est que lorsque je lis le fichier.
Fichier court, 30 lignes et presque autant de mots.

Lu comme suit :

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
 
 
        Dim fr As StreamReader = Nothing
        Dim FileString As String = String.Empty
 
        Try
            fr = New System.IO.StreamReader(CheminConfig & "\" & "repart.ini")
            Do
 
                FileString = fr.ReadLine
 
                If FileString <> "" Then
                    MessageBox.Show(FileString)
                End If
 
            Loop Until FileString Is Nothing
 
        Finally
            If fr IsNot Nothing Then
                fr.Close()
            End If
        End Try