Discussion :

[Tempus01]

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.

[Miska59]

Bonjour,
Pour ça fonctionne mieux vous pouvez faire ceci :

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
  Dim Filepath As String = path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "action.txt")
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(Filepath)
        CheckBox1.Checked = CBool(monStreamReader.ReadLine)
        CheckBox2.Checked = CBool(monStreamReader.ReadLine)
        CheckBox3.Checked = CBool(monStreamReader.ReadLine)
        CheckBox4.Checked = CBool(monStreamReader.ReadLine)
        monStreamReader.Close()
    End Sub
 
    Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim monStreamWriter As StreamWriter = New StreamWriter(Filepath)
        monStreamWriter.WriteLine(CheckBox1.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox2.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox3.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox4.Checked.ToString)
        monStreamWriter.Close()
    End Sub

Vous pouvez faire aussi cela :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            Dim son = New Media.SoundPlayer(My.Resources.Bip3)
            son.play()
        ElseIf CheckBox1.Checked = False Then
            Dim son = New Media.SoundPlayer(My.Resources.Bip2)
            son.Play()
        End If
    End Sub

cordialement,

[Tempus01]

Bonjour Miska59,

Merci pour ce bout de code.

Je me suis mal expliquer, l'écriture et la lecture dans le fichier txt fonctionnent très bien, je cherche juste à récupérer les infos qui sont dans ce fichier.txt à partir d'une autre form.

Voila le contenu du fichier.

False
False
False
True
True
False
False

J'ai vu sur le net que certain utilisent des Combobox ou des tableaux, mais le code pour faire cela m'échappe.

Merci encore pour votre aide.

[Miska59]

voici un exemple pour recuperer sur un autre form2 par rapport form1 du fichier texte:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(Filepath)
        Form2.CheckBox1.Checked = CBool(monStreamReader.ReadLine)
        Form2.CheckBox2.Checked = CBool(monStreamReader.ReadLine)
        Form2.CheckBox3.Checked = CBool(monStreamReader.ReadLine)
        Form2.CheckBox4.Checked = CBool(monStreamReader.ReadLine)
        monStreamReader.Close()
    End Sub

dans combobox aussi :

Code :

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

ComboBox1.Items.AddRange(File.ReadAllLines(Filepath))

[bhaal76]

Bonjour,

Code :

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

Form2.CheckBox1.Checked = (monStreamReader.ReadLine = "True")

après, à toi de jouer avec des Lcase() et des OR si les valeurs dans le fichier ne sont pas toujours parfaitement "False" et "True" ...

Par contre, perso, je n'enregistrerai dans le fichier que l'Id du RadioButton (genre, un index dans la propriété Tag), et j'affecterai le bon "son" sur un CheckChanged()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
        Select Case CType(sender, RadioButton).Tag
            Case 1
                son = "....."
            Case 2
                son = "....."
 
            Case Else
                son = "....."
        End Select
    End Sub

[Tempus01]

Bonjour,

Super, merci à vous deux, je vais essayer d'incorporer ces bouts de code dans mes form.

Je vous ferais un retour.

Bonne soirée.