Option Strict On Option Explicit On Public Class frmMain Private Sub OpenFile() Dim Result As DialogResult Result = ofdMain.ShowDialog If Result = Windows.Forms.DialogResult.OK Then rtbNotes.LoadFile(ofdMain.FileName, RichTextBoxStreamType.RichText) End If tsslFileName.Text = ofdMain.FileName End Sub Private Sub SaveFile() Dim Result As DialogResult Result = sfdMain.ShowDialog If Result = Windows.Forms.DialogResult.OK Then rtbNotes.SaveFile(sfdMain.FileName, RichTextBoxStreamType.RichText) End If End Sub Private Sub NavigateFirst() rtbNotes.Selectionstart = 0 rtbNotes.SelectionLength = 0 End Sub Private Sub NavigateLast() rtbNotes.Selectionstart = rtbNotes.Text.Length - 1 End Sub Private Sub msExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msExit.Click Me.Close() End Sub Private Sub msOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msOpen.Click Call OpenFile() End Sub Private Sub msSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msSave.Click Call SaveFile() End Sub Private Sub tsOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsOpen.Click Call OpenFile() End Sub Private Sub tsSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSave.Click Call SaveFile() End Sub End Class
Attached File(s)
-
Demo.txt (502bytes)
Number of downloads: 197
This post has been edited by snssewell: 15 January 2008 - 10:49 AM


Reply





MultiQuote






|