JayBeeOH

TxtEditor - Help About Option - AboutBox.

Mar 6th, 2015
367
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 3.64 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 (c) 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.  
  28.     'AltAboutBoxForm (Design Time Settings)
  29.  
  30.     'Form:
  31.     'Name -     AltAboutBoxForm
  32.     'CancelButton - OKButton
  33.     'MaximizeBox -  False
  34.     'MinimizeBox -  False
  35.     'ShowInTaskbar -    False
  36.     'Size -     300,300
  37.     'StartPositon - CenterParent
  38.  
  39.     'Label:
  40.     'Name -     AppTitleLabel
  41.     'Anchor -       Top,Left,Right
  42.     'AutoSize -     False
  43.     'Font -     Segoe UI, 15.75pt
  44.     'ForeColor -    RoyalBlue
  45.     'Text -     Text Editor
  46.     'TextAlign -    MiddleCenter
  47.  
  48.     'Label:
  49.     'Name -     AppVersionLabel
  50.     'Anchor -       Top,Left,Right
  51.     'AutoSize -     False
  52.     'Font -     Segoe UI, 12pt
  53.     'ForeColor -    RoyalBlue
  54.     'Text -     Version 1.0
  55.     'TextAlign -    MiddleCenter
  56.  
  57.     'Button:
  58.     'Name -     OKButton
  59.     'Anchor -       Bottom,Right
  60.     'DialogResult - Cancel
  61.     'Location -     197,209
  62.     'Size -     75,23
  63.     'Text -     &OK
  64.  
  65.     'PictureBox:
  66.     'Name -     PictureBox1
  67.     'Anchor -       Bottom,Left
  68.     'Image -        Public Domain Image
  69.     'Size -     118,135
  70.     'SizeMode -     Zoom (This maintains the aspect ratio.)
  71. '-------------------------------------------------------------------------------------------
  72.  
  73. Public Class AltAboutBoxForm
  74.  
  75.     ' Initialize the labels of form.
  76.     Private Sub AltAboutBox_Load(sender As Object, e As EventArgs) _
  77.         Handles MyBase.Load
  78.  
  79.         AppTitleLabel.Text = My.Application.Info.Title
  80.         AppVersionLabel.Text = "Verson - " & My.Application.Info.Version.ToString
  81.         Me.Text = "About " & My.Application.Info.Title
  82.     End Sub
  83.  
  84.     ' Close the form when OK button is clicked.
  85.     Private Sub OKButton_Click(sender As Object, e As EventArgs) _
  86.         Handles OKButton.Click
  87.  
  88.         Me.Close()
  89.     End Sub
  90.  
  91. End Class
  92. '-------------------------------------------------------------------------------------------
  93.  
  94. Public Class MainForm
  95.  
  96. #Region "  Help Menu"
  97.  
  98.     ' Help About option.
  99.     Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) _
  100.         Handles AboutToolStripMenuItem.Click, HelpToolStripButton.Click
  101.  
  102.         ' AboutBoxForm.ShowDialog()
  103.         ' AltAboutBoxForm.ShowDialog()
  104.         BolenAboutBoxForm.ShowDialog()
  105.     End Sub
  106.  
  107. #End Region
  108.  
  109. End Class
Advertisement
Add Comment
Please, Sign In to add comment