Bestanden openen en opslaan

Je kan verschillende bestanden openen en opslaan in Visual Basic .NET:

• Tekstbestanden
  Dit kan je doen met een Streamreader klasse. Vóór het begin van de klasse voeg je toe
  Imports System.io
  Daarna kan je een bestand openen met
  Dim reader As StreamReader = New StreamReader(fileName)
  TextBox1.Text = reader.ReadToEnd
  Toepassing: Notepad
• In de 2005 versie is het een stuk eenvoudiger:
  Dim fileReader As String
  fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt")
  MsgBox(fileReader)
• RTF bestanden kan je rechtstreeks openen met een RTF box.
  RichTextBox1.LoadFile(fileName)
• Beelden kan je rechtstreeks openen met een PictureBox
  PictureBox1.Image = Image.FromFile(fileName)
• Databanken
• XML bestanden

De selectie van welk bestand wordt geopend of opgeslagen, gebeurd meestal via een OpenFileDialog / SaveFileDialog. Het spreekt vanzelf dat indien de gebruiker de naam van het bestand reeds gekozen heeft (door het bestand te openen of het reeds eerder op te slaan).

Omdat er vanalles kan misgaan bij het openen van bestanden (geen schijf in het gekozen station enz.) voorzien we foutafhandeling.

Dit is de code:

Imports System.io
Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub mnuOpenImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenImage.Click
Try
PictureBox1.Visible = True
TextBox1.Visible = False
RichTextBox1.Visible = False
OpenFileDialog1.Filter = "JPEG files|*.jpg;*.jpeg|GIF files|*.gif|BMP files|*.bmp|All files|*.*"
OpenFileDialog1.ShowDialog()
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

Private Sub mnuOpenText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenText.Click
Try
PictureBox1.Visible = False
TextBox1.Visible = True
RichTextBox1.Visible = False
OpenFileDialog1.Filter = "Text files|*.txt|All files|*.*"
OpenFileDialog1.ShowDialog()
Dim reader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
TextBox1.Text = reader.ReadToEnd
Catch ex As Exception
MsgBox(ex.ToString)
End Try

End Sub

Private Sub mnuOpenRTF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenRTF.Click
Try
PictureBox1.Visible = False
TextBox1.Visible = False
RichTextBox1.Visible = True
OpenFileDialog1.Filter = "RTF files files|*.rtf|All files|*.*"
OpenFileDialog1.ShowDialog()
RichTextBox1.LoadFile(OpenFileDialog1.FileName)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
 

Je kan het programma en het volledige project downloaden.

[VB Web] - [hlrnet] - [copyright]