Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '------------------------------------------------------------------------------------------
- ' Notice of My Copyright and Intellectual Property Rights
- '
- ' Any intellectual property contained within the program by Joseph L. Bolen remains the
- ' intellectual property of the Joseph L. Bolen. This means that no person may distribute,
- ' publish or provide such intellectual property to any other person or entity for any
- ' reason, commercial or otherwise, without the express written permission of Joseph L. Bolen.
- '
- ' Copyright © 2015. All rights reserved.
- ' All trademarks remain the property of their respective owners.
- '-------------------------------------------------------------------------------------------
- ' Program Name: Text Editor
- ' Author: Joseph L. Bolen
- ' Date Created: Feb 2015
- '
- ' Description: Simple plain text editor program with printing ability.
- '
- ' Documentation is at:
- ' App's screen image is at: http://imgur.com/TzWs9kO
- ' App's screen design time specs at: http://pastebin.com/bhinRQ5d
- ' App's Visual Basic .NET Event Procedures & TODO's is at
- ' http://pastebin.com/UZ4tcEpE
- ' App's Visual Basic .NET code is at http://pastebin.com/u/jaybeeoh
- ' Video tutorial at YouTube: http://www.youtube.com/user/bolenpresents
- '-------------------------------------------------------------------------------------------
- Public Class MainForm
- #Region " Declare Class Level Variables"
- #End Region
- #Region " File Menu"
- ' File New option.
- Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles NewToolStripMenuItem.Click, NewToolStripButton.Click
- 'TODO: Code File New option.
- MsgBox("Code File New option.")
- End Sub
- ' File Open option.
- Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
- 'TODO: Code File Open option.
- MsgBox("Code File Open option.")
- End Sub
- ' File Save option.
- Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles SaveToolStripMenuItem.Click, SaveToolStripButton.Click
- 'TODO: Code File Save option.
- MsgBox("Code File Save option.")
- End Sub
- ' File Save As option.
- Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles SaveAsToolStripMenuItem.Click
- 'TODO: Code File Save As option.
- MsgBox("Code File Save As option.")
- End Sub
- #Region " Printing"
- ' File Page Setup option
- Private Sub PageSetupToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles PageSetupToolStripMenuItem.Click
- 'TODO: Code File Page Setup option.
- MsgBox("Code File Page Setup option.")
- End Sub
- ' File Print option
- Private Sub PrintToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles PrintToolStripMenuItem.Click, PrintToolStripButton.Click
- 'TODO: Code File Print option.
- MsgBox("Code File Print option.")
- End Sub
- ' File Print Preview option
- Private Sub PrintPreviewToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles PrintPreviewToolStripMenuItem.Click
- 'TODO: Code File Print Preview option.
- MsgBox("Code File Print Preview option.")
- End Sub
- #End Region
- ' File Exit program.
- Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles ExitToolStripMenuItem.Click
- 'TODO: Code File Exit option.
- MsgBox("Code File Exit option.")
- End Sub
- #End Region
- #Region " Edit Menu"
- ' Edit Undo option.
- Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles UndoToolStripMenuItem.Click
- 'TODO: Code Edit Undo option.
- MsgBox("Code Edit Undo option.")
- End Sub
- #Region " Cut / Copy / Replace / Delete"
- ' Edit Cut option.
- Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles CutToolStripMenuItem.Click, CutToolStripButton.Click
- 'TODO: Code Edit Cut option.
- MsgBox("Code Edit Cut option.")
- End Sub
- ' Edit Copy option
- Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles CopyToolStripMenuItem.Click, CopyToolStripButton.Click
- 'TODO: Code Edit Copy option.
- MsgBox("Code Edit Copy option.")
- End Sub
- ' Edit Paste option.
- Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles PasteToolStripMenuItem.Click, PasteToolStripButton.Click
- 'TODO: Code Edit Paste option.
- MsgBox("Code Edit Paste option.")
- End Sub
- ' Edit Delete option.
- Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles DeleteToolStripMenuItem.Click
- 'TODO: Code Edit Delete option.
- MsgBox("Code Edit Delete option.")
- End Sub
- #End Region
- #Region " Find / Find Next / Replace / Select All"
- ' Edit Find option.
- Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles FindToolStripMenuItem.Click
- 'TODO: Code Edit Find option.
- MsgBox("Code Edit Find option.")
- End Sub
- ' Edit Find Next option.
- Private Sub FindNextToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles FindNextToolStripMenuItem.Click
- 'TODO: Code Edit Find Next option.
- MsgBox("Code Edit Find Next option.")
- End Sub
- ' Edit Replace option.
- Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles ReplaceToolStripMenuItem.Click
- 'TODO: Code Edit Replace option.
- MsgBox("Code Edit Replace option.")
- End Sub
- ' Edit Select All option.
- Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles SelectAllToolStripMenuItem.Click
- 'TODO: Code Edit Select All option.
- MsgBox("Code Edit Select All option.")
- End Sub
- #End Region
- ' Edit Time/Date option.
- Private Sub TimeDateToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles TimeDateToolStripMenuItem.Click
- 'TODO: Code Edit Time/Date option.
- MsgBox("Code Edit Time/Date option.")
- End Sub
- #End Region
- #Region " Format Menu"
- ' Format Word Wrap option.
- Private Sub WordWrapToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles WordWrapToolStripMenuItem.Click
- 'TODO: Code Format Word Wrap option.
- MsgBox("Code Format Word Wrap option.")
- End Sub
- ' Format Font option.
- Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles FontToolStripMenuItem.Click
- 'TODO: Code Format Font option.
- MsgBox("Code Format Font option.")
- End Sub
- #End Region
- #Region " Help Menu"
- ' Help About option.
- Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles AboutToolStripMenuItem.Click, HelpToolStripButton.Click
- 'TODO: Code Help About option.
- MsgBox("Code Help About option.")
- End Sub
- #End Region
- #Region " Settings"
- #Region " ApplySettings"
- #End Region
- #Region " SaveSettings"
- #End Region
- #End Region
- End Class
Advertisement
Add Comment
Please, Sign In to add comment