JayBeeOH

TxtEditor - Event Procedures & TODO's

Feb 15th, 2015
558
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 7.56 KB | None | 0 0
  1. '------------------------------------------------------------------------------------------
  2. '           Notice of My Copyright and Intellectual Property Rights
  3. '
  4. ' Any intellectual property contained within the program by Joseph L. Bolen remains the
  5. ' intellectual property of the Joseph L. Bolen. This means that no person may distribute,
  6. ' publish or provide such intellectual property to any other person or entity for any
  7. ' reason, commercial or otherwise, without the express written permission of Joseph L. Bolen.
  8. '
  9. '                 Copyright © 2015. All rights reserved.
  10. '        All trademarks remain the property of their respective owners.
  11. '-------------------------------------------------------------------------------------------
  12. ' Program Name:   Text Editor
  13.  
  14. ' Author:         Joseph L. Bolen
  15. ' Date Created:   Feb 2015
  16. '
  17. ' Description:    Simple plain text editor program with printing ability.
  18. '
  19. '                 Documentation is at:
  20. '                   App's screen image is at: http://imgur.com/TzWs9kO
  21. '                   App's screen design time specs at: http://pastebin.com/bhinRQ5d
  22. '                   App's Visual Basic .NET Event Procedures & TODO's is at
  23. '                       http://pastebin.com/UZ4tcEpE
  24. '                   App's Visual Basic .NET code is at http://pastebin.com/u/jaybeeoh
  25. '                   Video tutorial at YouTube: http://www.youtube.com/user/bolenpresents
  26. '-------------------------------------------------------------------------------------------
  27. Public Class MainForm
  28.  
  29. #Region "  Declare Class Level Variables"
  30.  
  31. #End Region
  32.  
  33. #Region " File Menu"
  34.  
  35.     ' File New option.
  36.     Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  37.         Handles NewToolStripMenuItem.Click, NewToolStripButton.Click
  38.  
  39.         'TODO: Code File New option.
  40.         MsgBox("Code File New option.")
  41.     End Sub
  42.  
  43.     ' File Open option.
  44.     Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  45.         Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
  46.  
  47.         'TODO: Code File Open option.
  48.         MsgBox("Code File Open option.")
  49.     End Sub
  50.  
  51.     ' File Save option.
  52.     Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  53.         Handles SaveToolStripMenuItem.Click, SaveToolStripButton.Click
  54.  
  55.         'TODO: Code File Save option.
  56.         MsgBox("Code File Save option.")
  57.     End Sub
  58.  
  59.     ' File Save As option.
  60.     Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  61.         Handles SaveAsToolStripMenuItem.Click
  62.  
  63.         'TODO: Code File Save As option.
  64.         MsgBox("Code File Save As option.")
  65.     End Sub
  66.  
  67. #Region " Printing"
  68.  
  69.     ' File Page Setup option
  70.     Private Sub PageSetupToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  71.         Handles PageSetupToolStripMenuItem.Click
  72.  
  73.         'TODO: Code File Page Setup option.
  74.         MsgBox("Code File Page Setup option.")
  75.     End Sub
  76.  
  77.     ' File Print option
  78.     Private Sub PrintToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  79.         Handles PrintToolStripMenuItem.Click, PrintToolStripButton.Click
  80.  
  81.         'TODO: Code File Print option.
  82.         MsgBox("Code File Print option.")
  83.     End Sub
  84.  
  85.     ' File Print Preview option
  86.     Private Sub PrintPreviewToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  87.         Handles PrintPreviewToolStripMenuItem.Click
  88.  
  89.         'TODO: Code File Print Preview option.
  90.         MsgBox("Code File Print Preview option.")
  91.     End Sub
  92.  
  93. #End Region
  94.  
  95.     ' File Exit program.
  96.     Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  97.         Handles ExitToolStripMenuItem.Click
  98.  
  99.         'TODO: Code File Exit option.
  100.         MsgBox("Code File Exit option.")
  101.     End Sub
  102.  
  103. #End Region
  104.  
  105. #Region " Edit Menu"
  106.  
  107.     ' Edit Undo option.
  108.     Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  109.         Handles UndoToolStripMenuItem.Click
  110.  
  111.         'TODO: Code Edit Undo option.
  112.         MsgBox("Code Edit Undo option.")
  113.     End Sub
  114.  
  115. #Region " Cut / Copy / Replace / Delete"
  116.  
  117.     ' Edit Cut option.
  118.     Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  119.         Handles CutToolStripMenuItem.Click, CutToolStripButton.Click
  120.  
  121.         'TODO: Code Edit Cut option.
  122.         MsgBox("Code Edit Cut option.")
  123.     End Sub
  124.  
  125.     ' Edit Copy option
  126.     Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  127.         Handles CopyToolStripMenuItem.Click, CopyToolStripButton.Click
  128.  
  129.         'TODO: Code Edit Copy option.
  130.         MsgBox("Code Edit Copy option.")
  131.     End Sub
  132.  
  133.     ' Edit Paste option.
  134.     Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  135.         Handles PasteToolStripMenuItem.Click, PasteToolStripButton.Click
  136.  
  137.         'TODO: Code Edit Paste option.
  138.         MsgBox("Code Edit Paste option.")
  139.     End Sub
  140.  
  141.     ' Edit Delete option.
  142.     Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  143.         Handles DeleteToolStripMenuItem.Click
  144.  
  145.         'TODO: Code Edit Delete option.
  146.         MsgBox("Code Edit Delete option.")
  147.     End Sub
  148.  
  149. #End Region
  150.  
  151. #Region " Find / Find Next / Replace / Select All"
  152.  
  153.     ' Edit Find option.
  154.     Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  155.         Handles FindToolStripMenuItem.Click
  156.  
  157.         'TODO: Code Edit Find option.
  158.         MsgBox("Code Edit Find option.")
  159.     End Sub
  160.  
  161.     ' Edit Find Next option.
  162.     Private Sub FindNextToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  163.         Handles FindNextToolStripMenuItem.Click
  164.  
  165.         'TODO: Code Edit Find Next option.
  166.         MsgBox("Code Edit Find Next option.")
  167.     End Sub
  168.  
  169.     ' Edit Replace option.
  170.     Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  171.         Handles ReplaceToolStripMenuItem.Click
  172.  
  173.         'TODO: Code Edit Replace option.
  174.         MsgBox("Code Edit Replace option.")
  175.     End Sub
  176.  
  177.     ' Edit Select All option.
  178.     Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  179.         Handles SelectAllToolStripMenuItem.Click
  180.  
  181.         'TODO: Code Edit Select All option.
  182.         MsgBox("Code Edit Select All option.")
  183.     End Sub
  184.  
  185. #End Region
  186.  
  187.     ' Edit Time/Date option.
  188.     Private Sub TimeDateToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  189.         Handles TimeDateToolStripMenuItem.Click
  190.  
  191.         'TODO: Code Edit Time/Date option.
  192.         MsgBox("Code Edit Time/Date option.")
  193.     End Sub
  194.  
  195. #End Region
  196.  
  197. #Region " Format Menu"
  198.  
  199.     ' Format Word Wrap option.
  200.     Private Sub WordWrapToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  201.         Handles WordWrapToolStripMenuItem.Click
  202.  
  203.         'TODO: Code Format Word Wrap option.
  204.         MsgBox("Code Format Word Wrap option.")
  205.     End Sub
  206.  
  207.     ' Format Font option.
  208.     Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  209.         Handles FontToolStripMenuItem.Click
  210.  
  211.         'TODO: Code Format Font option.
  212.         MsgBox("Code Format Font option.")
  213.     End Sub
  214.  
  215. #End Region
  216.  
  217. #Region " Help Menu"
  218.  
  219.     ' Help About option.
  220.     Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  221.         Handles AboutToolStripMenuItem.Click, HelpToolStripButton.Click
  222.  
  223.         'TODO: Code Help About option.
  224.         MsgBox("Code Help About option.")
  225.     End Sub
  226.  
  227. #End Region
  228.  
  229. #Region " Settings"
  230.  
  231. #Region " ApplySettings"
  232.  
  233. #End Region
  234.  
  235. #Region " SaveSettings"
  236.  
  237. #End Region
  238.  
  239. #End Region
  240.  
  241. End Class
Advertisement
Add Comment
Please, Sign In to add comment