Function ouvrir() As Stream openFileDialog1.InitialDirectory = "c:" openFileDialog1.Filter = "gtf files (*.gtf)|*.txt" openFileDialog1.RestoreDirectory = True openFileDialog1.FilterIndex = 2 If openFileDialog1.ShowDialog() = DialogResult.OK Then myStream = openFileDialog1.OpenFile() Dim lecture As New StreamReader(myStream) RichTextBox1.Text = lecture.ReadLine lecture.Close() If Not (myStream Is Nothing) Then myStream.Close() End If End If Return myStream End Function
Function enregistrer() As System.IO.StreamWriter If Form2.extension Is Nothing Then Dim fichier2 As New StreamWriter(openFileDialog1.FileName) fichier2.WriteLine(RichTextBox1.Text) fichier2.Close() Else Dim fichier As New StreamWriter(Form2.extension) fichier.WriteLine(RichTextBox1.Text) fichier.Close() End If Return Nothing End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question