Private Sub mnuFileNew_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles mnuFileNew.Click
Dim f As New Form1
f.Show()
End Sub
Private Sub mnuFileOpen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuFileOpen.Click
Try
Dim bestandsnaam As String
OpenFileDialog1.Filter = "Tekstbestanden|*.txt|RTF bestanden|*.rtf|Alle
bestanden|*.*"
OpenFileDialog1.ShowDialog()
bestandsnaam = OpenFileDialog1.FileName
If LCase(extensie(bestandsnaam)) = "txt" Then
'in een textbox: textbox.Text=My.Computer.FileSystem.ReadAllText(filename, System.Text.Encoding.Default)
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
Else 'geen txt, dus RTF?
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub mnuFilleClose_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuFilleClose.Click
Me.Dispose()
End Sub
Private Function extensie(ByVal filename As String) As String
Dim letter As String
Dim positie As Integer
For positie = Len(filename) To 1 Step -1
letter = Mid(filename, positie, 1)
If letter = "." Then 'we hebben de hele extensie
Exit For
Else
extensie = letter & extensie
End If
Next
End Function