In: Computer Science
'create following form interface
'A visual basic solution contains two main files
(1) Form1.Designer.vb (It generates code automatically when we drag and drop any control on form)
(2) Form.vb (The user code for form application)
'Form1.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
_
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form
Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.lblResOne = New System.Windows.Forms.Label()
Me.lblResTwo = New System.Windows.Forms.Label()
Me.lblResThree = New System.Windows.Forms.Label()
Me.btnShow = New System.Windows.Forms.Button()
Me.btnExit = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'lblResOne
'
Me.lblResOne.AutoSize = True
Me.lblResOne.Font = New System.Drawing.Font("Times New Roman",
14.25!, System.Drawing.FontStyle.Bold)
Me.lblResOne.Location = New System.Drawing.Point(59, 25)
Me.lblResOne.Name = "lblResOne"
Me.lblResOne.Size = New System.Drawing.Size(185, 22)
Me.lblResOne.TabIndex = 0
Me.lblResOne.Text = "Favorite Restaurant1"
Me.lblResOne.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'lblResTwo
'
Me.lblResTwo.AutoSize = True
Me.lblResTwo.Font = New System.Drawing.Font("Times New Roman",
14.25!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblResTwo.Location = New System.Drawing.Point(59, 67)
Me.lblResTwo.Name = "lblResTwo"
Me.lblResTwo.Size = New System.Drawing.Size(185, 22)
Me.lblResTwo.TabIndex = 1
Me.lblResTwo.Text = "Favorite Restaurant2"
Me.lblResTwo.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'lblResThree
'
Me.lblResThree.AutoSize = True
Me.lblResThree.Font = New System.Drawing.Font("Times New Roman",
14.25!, System.Drawing.FontStyle.Bold)
Me.lblResThree.Location = New System.Drawing.Point(59, 106)
Me.lblResThree.Name = "lblResThree"
Me.lblResThree.Size = New System.Drawing.Size(185, 22)
Me.lblResThree.TabIndex = 2
Me.lblResThree.Text = "Favorite Restaurant3"
Me.lblResThree.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'btnShow
'
Me.btnShow.Location = New System.Drawing.Point(34, 164)
Me.btnShow.Name = "btnShow"
Me.btnShow.Size = New System.Drawing.Size(75, 23)
Me.btnShow.TabIndex = 3
Me.btnShow.Text = "Show"
Me.btnShow.UseVisualStyleBackColor = True
'
'btnExit
'
Me.btnExit.Location = New System.Drawing.Point(170, 164)
Me.btnExit.Name = "btnExit"
Me.btnExit.Size = New System.Drawing.Size(75, 23)
Me.btnExit.TabIndex = 4
Me.btnExit.Text = "Exit"
Me.btnExit.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!,
13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(289, 230)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnShow)
Me.Controls.Add(Me.lblResThree)
Me.Controls.Add(Me.lblResTwo)
Me.Controls.Add(Me.lblResOne)
Me.Name = "Form1"
Me.Text = "Favorite Restaurants"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblResOne As Label
Friend WithEvents lblResTwo As Label
Friend WithEvents lblResThree As Label
Friend WithEvents btnShow As Button
Friend WithEvents btnExit As Button
End Class
'Form1.vb
Public Class Form1
'When from is loaded, it makes labels invisible
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
lblResOne.Visible = False
lblResThree.Visible = False
lblResTwo.Visible = False
End Sub
Private Sub btnShow_Click(sender As Object, e As EventArgs)
Handles btnShow.Click
'When user click show button
'all levels are visible
lblResOne.Visible = True
lblResThree.Visible = True
lblResTwo.Visible = True
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs)
Handles btnExit.Click
Me.Close()
End Sub
End Class
''Output
'If you need any help regarding this solution...... please leave a comment..... thanks