Windows Form File /FormAbout.vb (VB.NET)
1: Option Strict Off
2: Option Explicit On
3: Friend Class FormAbout
4: Inherits System.Windows.Forms.Form
5: #Region "Windows Form Designer generated code "
6: Public Sub New()
7: MyBase.New()
8: If m_vb6FormDefInstance Is Nothing Then
9: If m_InitializingDefInstance Then
10: m_vb6FormDefInstance = Me
11: Else
12: Try
13: 'For the start-up form, the first instance created is the default instance.
14: If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
15: m_vb6FormDefInstance = Me
16: End If
17: Catch
18: End Try
19: End If
20: End If
21: 'This call is required by the Windows Form Designer.
22: InitializeComponent()
23: End Sub
24: 'Form overrides dispose to clean up the component list.
25: Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
26: If Disposing Then
27: If Not components Is Nothing Then
28: components.Dispose()
29: End If
30: End If
31: MyBase.Dispose(Disposing)
32: End Sub
33: 'Required by the Windows Form Designer
34: Private components As System.ComponentModel.IContainer
35: Public ToolTip1 As System.Windows.Forms.ToolTip
36: Public WithEvents picIcon As System.Windows.Forms.PictureBox
37: Public WithEvents cmdOK As System.Windows.Forms.Button
38: Public WithEvents _Line1_1 As System.Windows.Forms.Label
39: Public WithEvents lblDescription As System.Windows.Forms.Label
40: Public WithEvents lblTitle As System.Windows.Forms.Label
41: Public WithEvents _Line1_0 As System.Windows.Forms.Label
42: Public WithEvents lblVersion As System.Windows.Forms.Label
43: Public WithEvents Line1 As Microsoft.VisualBasic.Compatibility.VB6.LabelArray
44: 'NOTE: The following procedure is required by the Windows Form Designer
45: 'It can be modified using the Windows Form Designer.
46: 'Do not modify it using the code editor.
47: <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
48: Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FormAbout))
49: Me.components = New System.ComponentModel.Container()
50: Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
51: Me.ToolTip1.Active = True
52: Me.picIcon = New System.Windows.Forms.PictureBox
53: Me.cmdOK = New System.Windows.Forms.Button
54: Me._Line1_1 = New System.Windows.Forms.Label
55: Me.lblDescription = New System.Windows.Forms.Label
56: Me.lblTitle = New System.Windows.Forms.Label
57: Me._Line1_0 = New System.Windows.Forms.Label
58: Me.lblVersion = New System.Windows.Forms.Label
59: Me.Line1 = New Microsoft.VisualBasic.Compatibility.VB6.LabelArray(components)
60: CType(Me.Line1, System.ComponentModel.ISupportInitialize).BeginInit()
61: Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
62: Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
63: Me.Text = "About MyApp"
64: Me.ClientSize = New System.Drawing.Size(382, 205)
65: Me.Location = New System.Drawing.Point(156, 129)
66: Me.MaximizeBox = False
67: Me.MinimizeBox = False
68: Me.ShowInTaskbar = False
69: Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
70: Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
71: Me.BackColor = System.Drawing.SystemColors.Control
72: Me.ControlBox = True
73: Me.Enabled = True
74: Me.KeyPreview = False
75: Me.Cursor = System.Windows.Forms.Cursors.Default
76: Me.RightToLeft = System.Windows.Forms.RightToLeft.No
77: Me.HelpButton = False
78: Me.WindowState = System.Windows.Forms.FormWindowState.Normal
79: Me.Name = "FormAbout"
80: Me.picIcon.Size = New System.Drawing.Size(36, 36)
81: Me.picIcon.Location = New System.Drawing.Point(16, 16)
82: Me.picIcon.Image = CType(resources.GetObject("picIcon.Image"), System.Drawing.Image)
83: Me.picIcon.TabIndex = 1
84: Me.picIcon.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
85: Me.picIcon.Dock = System.Windows.Forms.DockStyle.None
86: Me.picIcon.BackColor = System.Drawing.SystemColors.Control
87: Me.picIcon.CausesValidation = True
88: Me.picIcon.Enabled = True
89: Me.picIcon.ForeColor = System.Drawing.SystemColors.ControlText
90: Me.picIcon.Cursor = System.Windows.Forms.Cursors.Default
91: Me.picIcon.RightToLeft = System.Windows.Forms.RightToLeft.No
92: Me.picIcon.TabStop = True
93: Me.picIcon.Visible = True
94: Me.picIcon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
95: Me.picIcon.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
96: Me.picIcon.Name = "picIcon"
97: Me.cmdOK.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
98: Me.CancelButton = Me.cmdOK
99: Me.cmdOK.Text = "OK"
100: Me.AcceptButton = Me.cmdOK
101: Me.cmdOK.Size = New System.Drawing.Size(84, 23)
102: Me.cmdOK.Location = New System.Drawing.Point(283, 175)
103: Me.cmdOK.TabIndex = 0
104: Me.cmdOK.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
105: Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
106: Me.cmdOK.CausesValidation = True
107: Me.cmdOK.Enabled = True
108: Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
109: Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
110: Me.cmdOK.RightToLeft = System.Windows.Forms.RightToLeft.No
111: Me.cmdOK.TabStop = True
112: Me.cmdOK.Name = "cmdOK"
113: Me._Line1_1.BackColor = System.Drawing.Color.FromARGB(128, 128, 128)
114: Me._Line1_1.Visible = True
115: Me._Line1_1.Location = New System.Drawing.Point(5, 170)
116: Me._Line1_1.Width = 303
117: Me._Line1_1.Height = 1
118: Me._Line1_1.Name = "_Line1_1"
119: Me.lblDescription.Text = "App Description"
120: Me.lblDescription.ForeColor = System.Drawing.Color.Black
121: Me.lblDescription.Size = New System.Drawing.Size(259, 78)
122: Me.lblDescription.Location = New System.Drawing.Point(70, 75)
123: Me.lblDescription.TabIndex = 2
124: Me.lblDescription.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
125: Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopLeft
126: Me.lblDescription.BackColor = System.Drawing.SystemColors.Control
127: Me.lblDescription.Enabled = True
128: Me.lblDescription.Cursor = System.Windows.Forms.Cursors.Default
129: Me.lblDescription.RightToLeft = System.Windows.Forms.RightToLeft.No
130: Me.lblDescription.UseMnemonic = True
131: Me.lblDescription.Visible = True
132: Me.lblDescription.AutoSize = False
133: Me.lblDescription.BorderStyle = System.Windows.Forms.BorderStyle.None
134: Me.lblDescription.Name = "lblDescription"
135: Me.lblTitle.Text = "Application Title"
136: Me.lblTitle.ForeColor = System.Drawing.Color.Black
137: Me.lblTitle.Size = New System.Drawing.Size(259, 32)
138: Me.lblTitle.Location = New System.Drawing.Point(70, 16)
139: Me.lblTitle.TabIndex = 3
140: Me.lblTitle.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
141: Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.TopLeft
142: Me.lblTitle.BackColor = System.Drawing.SystemColors.Control
143: Me.lblTitle.Enabled = True
144: Me.lblTitle.Cursor = System.Windows.Forms.Cursors.Default
145: Me.lblTitle.RightToLeft = System.Windows.Forms.RightToLeft.No
146: Me.lblTitle.UseMnemonic = True
147: Me.lblTitle.Visible = True
148: Me.lblTitle.AutoSize = False
149: Me.lblTitle.BorderStyle = System.Windows.Forms.BorderStyle.None
150: Me.lblTitle.Name = "lblTitle"
151: Me._Line1_0.BackColor = System.Drawing.Color.White
152: Me._Line1_0.Visible = True
153: Me._Line1_0.Location = New System.Drawing.Point(6, 171)
154: Me._Line1_0.Width = 303
155: Me._Line1_0.Height = 1
156: Me._Line1_0.Name = "_Line1_0"
157: Me.lblVersion.Text = "Version"
158: Me.lblVersion.Size = New System.Drawing.Size(259, 15)
159: Me.lblVersion.Location = New System.Drawing.Point(70, 52)
160: Me.lblVersion.TabIndex = 4
161: Me.lblVersion.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
162: Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopLeft
163: Me.lblVersion.BackColor = System.Drawing.SystemColors.Control
164: Me.lblVersion.Enabled = True
165: Me.lblVersion.ForeColor = System.Drawing.SystemColors.ControlText
166: Me.lblVersion.Cursor = System.Windows.Forms.Cursors.Default
167: Me.lblVersion.RightToLeft = System.Windows.Forms.RightToLeft.No
168: Me.lblVersion.UseMnemonic = True
169: Me.lblVersion.Visible = True
170: Me.lblVersion.AutoSize = False
171: Me.lblVersion.BorderStyle = System.Windows.Forms.BorderStyle.None
172: Me.lblVersion.Name = "lblVersion"
173: Me.Controls.Add(picIcon)
174: Me.Controls.Add(cmdOK)
175: Me.Controls.Add(_Line1_1)
176: Me.Controls.Add(lblDescription)
177: Me.Controls.Add(lblTitle)
178: Me.Controls.Add(_Line1_0)
179: Me.Controls.Add(lblVersion)
180: Me.Line1.SetIndex(_Line1_1, CType(1, Short))
181: Me.Line1.SetIndex(_Line1_0, CType(0, Short))
182: CType(Me.Line1, System.ComponentModel.ISupportInitialize).EndInit()
183: End Sub
184: #End Region
185: #Region "Upgrade Support "
186: Private Shared m_vb6FormDefInstance As FormAbout
187: Private Shared m_InitializingDefInstance As Boolean
188: Public Shared Property DefInstance() As FormAbout
189: Get
190: If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
191: m_InitializingDefInstance = True
192: m_vb6FormDefInstance = New FormAbout()
193: m_InitializingDefInstance = False
194: End If
195: DefInstance = m_vb6FormDefInstance
196: End Get
197: Set
198: m_vb6FormDefInstance = Value
199: End Set
200: End Property
201: #End Region
202:
203: Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
204: FormAbout.DefInstance.Close()
205: End Sub
206:
207: Private Sub FormAbout_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
208: Me.Text = "About " & ApplicationName
209: lblVersion.Text = "Version " & ApplicationVersion
210: lblTitle.Text = ApplicationName
211: lblDescription.Text = ApplicationDescription
212: End Sub
213: End Class