Bonjour le forum,

Je souhaiterais récupérer les valeurs Boolean ci dessous, ces valeurs permettent à l'utilisateur de sauvegarder ses choix.

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
Paramètres_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fichier = My.Application.Info.DirectoryPath & "\SETUPTL.txt"
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(fichier)
CheckBox1.Checked = CBool(monStreamReader.ReadLine)
        CheckBox2.Checked = CBool(monStreamReader.ReadLine)
        RadioButton1.Checked = CBool(monStreamReader.ReadLine)
        RadioButton2.Checked = CBool(monStreamReader.ReadLine)
        RadioButton4.Checked = CBool(monStreamReader.ReadLine)
        RadioButton5.Checked = CBool(monStreamReader.ReadLine)
         RadioButton6.Checked = CBool(monStreamReader.ReadLine)
 monStreamReader.Close()
    End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Dim son = New Media.SoundPlayer(My.Resources.Bip3)
        son.Play()
        ' Création_fichier()
        fichier = My.Application.Info.DirectoryPath & "\SETUPTL.txt" 'chemin du fichier texte
        Dim monStreamWriter As StreamWriter = New StreamWriter(fichier)
monStreamWriter.WriteLine(CheckBox1.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox2.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton1.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton2.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton4.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton5.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton6.Checked.ToString)
 monStreamWriter.Close()
        Menu1.Show()
        Me.Hide()
    End Sub
Cela permettra de choisir entre différentes images de fond et d'activer ou non le son ou encore de choisir entre différentes music dans une autre form.

Voici un petit exemple.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
  if "ma première ligne de mon fichier txt est false" then
Dim son = New Media.SoundPlayer(My.Resources.Bip3)
son.play
 
else
Dim son = New Media.SoundPlayer(My.Resources.Bip2)
 son.Play
 
End if
Après plusieurs recherche sur le net et différentes possibilitées de testes, je suis un peu "beaucoup" perdu.
Pouvez vous m'aider afin que je puisse terminer ce bout de code.

Merci à vous.