Discussion :

[Bisounours63]

Bonjour à tous !

Je suis débutant en vb.net et suis face à un problème de taille. Auparavant j'étais sous Visual Basic 6.0 et avais le même soucis. Voici mon problème.
J'ai pris les codes suivants sur le site Microsoft. Je crée un fichier texte en écriture de cette façon :

Private Sub btnEcrire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEcrire.Click

Dim Phrase As String = rtbEcran.Text

My.Computer.FileSystem.WriteAllText("D:\VB.NET\MONFICHIER.TXT", Phrase, False)

end sub

En lecture cela donne :

Private Sub btnLire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLire.Click

rtbEcran.Text = My.Computer.FileSystem.ReadAllText ("D:\VB.NET\MONFICHIER.TXT") & vbCrLf

End Sub

J'ai mis sur la feuille un bouton Font me permettant d'ouvrir la boîte de dialogues des polices de caractères avec le code suivant :

Private Sub btnFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFont.Click

If font.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
rtbEcran.ForeColor = font.Color
rtbEcran.Font = font.Font

End If

End Sub

Tous ces codes ont été comme déjà dit copiés depuis le site Microsoft. Mon problème est que je ne parviens pas une fois le programme fermé puis relancé à récupérer tous les attributs de la police de caractères que j'avais choisis avant d'écrire dans le fichier.

Est-ce que quelqu'un pourrait me dire comment faire pour récupérer cette dernière ? Je précise que rtbEcran est une RichTextBox.

Je vous remercie tous d'avance et vous souhaite une agréable journée !

[wallace1]

Bonjour,

Lorsqu'on veut récupérer le paramétrage des contrôles de ton programme il faut créer un fichier de configuration. La "serialization xml" reste à mon humble avis la meilleure alternative pour sauvegarder tes paramètres d'application.

PS : Utilises la balise code pour insérer du code dans tes messages stp. :

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
 
Private Sub btnEcrire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEcrire.Click
    Dim Phrase As String = rtbEcran.Text
    My.Computer.FileSystem.WriteAllText("D:\VB.NET\MONFICHIER.TXT", Phrase, False)
End sub
 
Private Sub btnLire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLire.Click
    rtbEcran.Text = My.Computer.FileSystem.ReadAllText ("D:\VB.NET\MONFICHIER.TXT")
End Sub
 
Private Sub btnFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFont.Click
    If font.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
        rtbEcran.ForeColor = font.Color
        rtbEcran.Font = font.Font
    End If
End Sub

A+

[carl1963]

Merci de ta réponse Wallace,

Cependant elle soulève d'autres problèmes. Comment créer un fichier XML (je n'ai aucune connaissance en XML). Mais il n'y-a-t-il pas d'autre(s) moyen(s) de récupérer ma police de caractères avec tous ses attributs (police, taille, couleur etc...) sans passer par un XML ?

Comme je le disais dans mon précédent post j'ai connu le même problème en Visual Basic 6.0.

Je remercie vivement la ou les personnes qui pourront m'aider car pour le coup je désespère trouver une solution à mon problème. Mais de toute façon, merci beaucoup à toi Wallace d'avoir daigné me répondre !

[wallace1]

Il existe plusieurs manière de sauvegarder la configuration d'une application, et voici pour preuve un sujet qui a fait couler de l'encre :

https://www.developpez.net/forums/d1...s/#post7933572

Au cas ou tu te lancerais dans la Serialization Xml, voici un billet que j'ai écris suite à un sujet qui a été posté sur le forum :

https://www.developpez.net/forums/bl...alization-xml/

A+