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 (c) 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
- '-------------------------------------------------------------------------------------------
- 'AltAboutBoxForm (Design Time Settings)
- 'Form:
- 'Name - AltAboutBoxForm
- 'CancelButton - OKButton
- 'MaximizeBox - False
- 'MinimizeBox - False
- 'ShowInTaskbar - False
- 'Size - 300,300
- 'StartPositon - CenterParent
- 'Label:
- 'Name - AppTitleLabel
- 'Anchor - Top,Left,Right
- 'AutoSize - False
- 'Font - Segoe UI, 15.75pt
- 'ForeColor - RoyalBlue
- 'Text - Text Editor
- 'TextAlign - MiddleCenter
- 'Label:
- 'Name - AppVersionLabel
- 'Anchor - Top,Left,Right
- 'AutoSize - False
- 'Font - Segoe UI, 12pt
- 'ForeColor - RoyalBlue
- 'Text - Version 1.0
- 'TextAlign - MiddleCenter
- 'Button:
- 'Name - OKButton
- 'Anchor - Bottom,Right
- 'DialogResult - Cancel
- 'Location - 197,209
- 'Size - 75,23
- 'Text - &OK
- 'PictureBox:
- 'Name - PictureBox1
- 'Anchor - Bottom,Left
- 'Image - Public Domain Image
- 'Size - 118,135
- 'SizeMode - Zoom (This maintains the aspect ratio.)
- '-------------------------------------------------------------------------------------------
- Public Class AltAboutBoxForm
- ' Initialize the labels of form.
- Private Sub AltAboutBox_Load(sender As Object, e As EventArgs) _
- Handles MyBase.Load
- AppTitleLabel.Text = My.Application.Info.Title
- AppVersionLabel.Text = "Verson - " & My.Application.Info.Version.ToString
- Me.Text = "About " & My.Application.Info.Title
- End Sub
- ' Close the form when OK button is clicked.
- Private Sub OKButton_Click(sender As Object, e As EventArgs) _
- Handles OKButton.Click
- Me.Close()
- End Sub
- End Class
- '-------------------------------------------------------------------------------------------
- Public Class MainForm
- #Region " Help Menu"
- ' Help About option.
- Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) _
- Handles AboutToolStripMenuItem.Click, HelpToolStripButton.Click
- ' AboutBoxForm.ShowDialog()
- ' AltAboutBoxForm.ShowDialog()
- BolenAboutBoxForm.ShowDialog()
- End Sub
- #End Region
- End Class
Advertisement
Add Comment
Please, Sign In to add comment