Discussion :

[Jiyuu]

Bonjour,

J'ai créer un formulaire où il y a plusieurs TextBox et CheckBox.
Je veux pouvoir écrire ce formulaire sur un document text et le relire par la suite. (Ceci me permet donc de faire une sauvegarde d'un projet "x").

Avec l'exemple ReadWrite que l'on trouve dans l'aide de VB.net, facilement à faire ceci sur les textbox et checkbox.

Par contre avec mon programme, que j'ai conçu avec les outils de VB.net je ne peux qu'écrire dans le fichier text.
Lors de la lecture le programme se plante et m'indique ce message d'erreur:

"L'exception InvalidCastException n'a pas été gérée

La conversion de la chaîne "" en type 'Boolean' n'est pas valide."

tout en surlignant en jaune la première ligne de type:
CheckBox1.Checked = sr.ReadLine.

Quelqu'un peut-il m'aider.
D'avance merci.

Charlie

[bidou]

Code :

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

CheckBox1.Checked = Ctype(sr.ReadLine, Boolean)

[Jiyuu]

Désolé mais ça me fait toujours la même erreur...

[bidou]

que renvoie sr.Readline ?

[More]

je crois que la chaine est String, et si c'est le cas tu ne peux pas l'affecter a un type Boolean

[Jiyuu]

Pour BIDOU:

Voilà mon code

Private Sub Lire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lire.Click
If txtchemin.Text.Length = 0 Then
MessageBox.Show("Erreur, vous devez choisir un fichier", "Erreur")
Else

Dim sr As StreamReader = New StreamReader(txtchemin.Text, System.Text.Encoding.Default)
Textbox1.Text = sr.ReadLine
CheckBox1.Checked = sr.ReadLine
sr.Close()
End If
End Sub


Private Sub Ecrire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrire.Click
If txtchemin.Text.Length = 0 OrElse txtchemin.Text.Length = 0 Then
MessageBox.Show("Erreur, vous devez choisir un fichier/Ecrire du texte à insérer", "Erreur")
Else

Dim sw As StreamWriter = New StreamWriter(txtchemin.Text, 0, System.Text.Encoding.Default)
Dim bw As Boolean

bw = CheckBox1.Checked
sw.WriteLine(TextBox1.Text)
sw.WriteLine(bw)
sw.Close()

MessageBox.Show("Fichier écrit avec succès", "Succès")
End If
End Sub


Peux-tu m'aider.

Pour More:
Le problème c'est qu'avec l'exemple ReadWrite cela fonctionne.


D'avance merci pour l'aide