Een tip ivm het wegschrijven en terug ophalen van een tekstbestand en weergeven in een tekstbox zonder streamwriter en streamreader.
Controls:
- 1 Textbox (txtTekstveld)
- 2 Buttons : Openen (btnOpenen), Opslaan (btnOpslaan)
- OpenFileDialog (OpenFileDialog1)
- SaveFileDialog (SaveFileDialog1)
Design modus:
Code:
Public Class Form1
Private Sub btnOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpslaan.Click
'bij gebruik van de 'With'-optie is het onnodig om (in dit geval) SaveFileDialog1 steeds opnieuw te typen
With SaveFileDialog1
.Filter = "Tekstbestanden (*.txt)|*.txt" 'het bestandtype
.OverwritePrompt = True 'indien het bestand bestaat, een melding geven
.Title = "Bestand opslaan" 'de titel van het frame
End With
'Indien er op OK word geklikt:
'SaveFileDialog1.FileName = naam van het bestand
'txtTekstvak.Text = de tekst die moet worden weggeschreven
'False = required
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, txtTekstvak.Text, False)
End If
End Sub
Private Sub btnOpenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenen.Click
With OpenFileDialog1
'filter welke types van bestanden worden weergegeven
.Filter = "Alle bestanden (*.*)|*.*|Tekstbestanden (*.txt)|*.txt"
.FilterIndex = 2 'de 2e index staat gelijk aan: Tekstbestanden (*.txt)
.Title = "Open een tekstbestand" 'de titel van het frame
.FileName = "" 'de naam die word weergeven indien er nog geen bestand is geselecteerd
End With
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'Indien er op OK word geklikt:
'In 'txtTekstvak' komt de tekst uit het geselecteerde bestand te staan
txtTekstvak.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
End If
End Sub
End Class
| 
