Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click ' Pour la lecture du fichier Load_RRI.Filter = "RRI_txt files (*.txt)|*.txt" Load_RRI.FilterIndex = 2 If Load_RSI.ShowDialog = 1 Then Dim StrReader As New System.IO.StreamReader(Load_RRI.FileName) ' Lecture du fichier et assigne le contenu de la ligne correspondante à la textbox TextBox10.Text = StrReader.ReadLine TextBox8.Text = StrReader.ReadLine TextBox7.Text = StrReader.ReadLine RadioButton1.Checked = CBool(StrReader.ReadLine) CheckBox1.Checked = CBool(StrReader.ReadLine) GroupBox1.Controls.Add(RadioButton2.Checked) = StrReader.ReadLine 'GroupBox1.Text = StrReader.ReadLine 'Fermeture de ton flux StrReader.Close() End If End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Save_RRI.Filter = "RRI_txt files (*.txt)|*.txt" '|All files (*.*)|*.*" Save_RRI.FilterIndex = 2 Save_RRI.RestoreDirectory = True If Save_RSI.ShowDialog() = DialogResult.OK Then Dim Rbutton1 As Boolean Dim fileNumber As Integer fileNumber = FreeFile() FileOpen(fileNumber, Save_RRI.FileName, OpenMode.Output) PrintLine(fileNumber, TextBox10.Text) PrintLine(fileNumber, TextBox8.Text) PrintLine(fileNumber, TextBox7.Text) PrintLine(fileNumber, RadioButton1.Checked.ToString) PrintLine(fileNumber, CheckBox1.Checked.ToString) PrintLine(fileNumber, Me.GroupBox1.Controls.Add(Me.RadioButton2)) 'bug' FileClose(fileNumber) End If
PrintLine(fileNumber, Me.GroupBox1.Controls.Add(Me.RadioButton2)) 'bug'
GroupBox1.Controls.Add(RadioButton2.Checked) = StrReader.ReadLine
monStreamWriter.WriteLine
PrintLine?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit On Imports System.IO Public Class Form2 Dim fichier As String
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click 'lire Dim ofnDialog As New OpenFileDialog With ofnDialog .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" .FilterIndex = 1 If .ShowDialog() = DialogResult.OK Then fichier = .FileName ' Insert code to read the stream here. Dim monStreamReader As StreamReader = New System.IO.StreamReader(fichier) TextBox1.Text = monStreamReader.ReadLine If monStreamReader.ReadLine = "True" Then RadioButton1.Checked = True Else RadioButton2.Checked = True End If 'Fermeture du StreamReader (Trés important) monStreamReader.Close() Else Exit Sub End If End With End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click 'ecrire Dim saveFileDialog As New SaveFileDialog() With saveFileDialog .Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" .FilterIndex = 1 If .ShowDialog() = DialogResult.OK Then fichier = .FileName Dim monStreamWriter As StreamWriter = New StreamWriter(fichier) monStreamWriter.WriteLine(TextBox1.Text) monStreamWriter.WriteLine(RadioButton1.Checked.ToString) 'Fermeture du StreamWriter (Trés important) monStreamWriter.Close() Else Exit Sub End If End With End Sub End Class