VB.Net Tutorial/GUI/Wizard
Wizard Controls
<source lang="vbnet">Imports System.Windows.Forms public class WizardPageDemo
public Shared Sub Main Application.Run(New Form1) End Sub
End class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public 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) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.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.btnCancel = New System.Windows.Forms.Button Me.btnOk = New System.Windows.Forms.Button Me.TabControl1 = New System.Windows.Forms.TabControl Me.TabPage1 = New System.Windows.Forms.TabPage Me.TextBox3 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.TabPage2 = New System.Windows.Forms.TabPage Me.TabPage3 = New System.Windows.Forms.TabPage Me.TextBox8 = New System.Windows.Forms.TextBox Me.Label9 = New System.Windows.Forms.Label Me.TextBox7 = New System.Windows.Forms.TextBox Me.Label8 = New System.Windows.Forms.Label Me.TextBox4 = New System.Windows.Forms.TextBox Me.Label7 = New System.Windows.Forms.Label Me.ruboBox1 = New System.Windows.Forms.ruboBox Me.TextBox5 = New System.Windows.Forms.TextBox Me.TextBox6 = New System.Windows.Forms.TextBox Me.Label4 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.TabPage4 = New System.Windows.Forms.TabPage Me.TabPage5 = New System.Windows.Forms.TabPage Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage3.SuspendLayout() Me.SuspendLayout() " "btnCancel " Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCancel.Location = New System.Drawing.Point(308, 49) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(56, 24) Me.btnCancel.TabIndex = 5 Me.btnCancel.Text = "Cancel" " "btnOk " Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOk.Enabled = False Me.btnOk.Location = New System.Drawing.Point(308, 9) Me.btnOk.Name = "btnOk" Me.btnOk.Size = New System.Drawing.Size(56, 24) Me.btnOk.TabIndex = 4 Me.btnOk.Text = "OK" " "TabControl1 " Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage4) Me.TabControl1.Controls.Add(Me.TabPage5) Me.TabControl1.Location = New System.Drawing.Point(8, 9) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(280, 200) Me.TabControl1.TabIndex = 3 " "TabPage1 " Me.TabPage1.Controls.Add(Me.TextBox3) Me.TabPage1.Controls.Add(Me.TextBox2) Me.TabPage1.Controls.Add(Me.TextBox1) Me.TabPage1.Controls.Add(Me.Label3) Me.TabPage1.Controls.Add(Me.Label2) Me.TabPage1.Controls.Add(Me.Label1) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Size = New System.Drawing.Size(272, 174) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Name" Me.TabPage1.UseVisualStyleBackColor = False " "TextBox3 " Me.TextBox3.Location = New System.Drawing.Point(80, 56) Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(185, 20) Me.TextBox3.TabIndex = 23 Me.TextBox3.Text = "Q" " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(80, 32) Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(32, 20) Me.TextBox2.TabIndex = 22 " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(80, 8) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(185, 20) Me.TextBox1.TabIndex = 21 Me.TextBox1.Text = "A" " "Label3 " Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(8, 56) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(58, 13) Me.Label3.TabIndex = 20 Me.Label3.Text = "Last Name" " "Label2 " Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(8, 32) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(65, 13) Me.Label2.TabIndex = 19 Me.Label2.Text = "Middle Initial" " "Label1 " Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(8, 8) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(57, 13) Me.Label1.TabIndex = 18 Me.Label1.Text = "First Name" " "TabPage2 " Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Size = New System.Drawing.Size(272, 174) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Identification" Me.TabPage2.UseVisualStyleBackColor = False " "TabPage3 " Me.TabPage3.Controls.Add(Me.TextBox8) Me.TabPage3.Controls.Add(Me.Label9) Me.TabPage3.Controls.Add(Me.TextBox7) Me.TabPage3.Controls.Add(Me.Label8) Me.TabPage3.Controls.Add(Me.TextBox4) Me.TabPage3.Controls.Add(Me.Label7) Me.TabPage3.Controls.Add(Me.ruboBox1) Me.TabPage3.Controls.Add(Me.TextBox5) Me.TabPage3.Controls.Add(Me.TextBox6) Me.TabPage3.Controls.Add(Me.Label4) Me.TabPage3.Controls.Add(Me.Label5) Me.TabPage3.Controls.Add(Me.Label6) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(272, 174) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Address" Me.TabPage3.UseVisualStyleBackColor = False " "TextBox8 " Me.TextBox8.Location = New System.Drawing.Point(80, 144) Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3) Me.TextBox8.Name = "TextBox8" Me.TextBox8.Size = New System.Drawing.Size(80, 20) Me.TextBox8.TabIndex = 29 Me.TextBox8.Text = "121-232-3434" " "Label9 " Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(8, 144) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(24, 13) Me.Label9.TabIndex = 28 Me.Label9.Text = "Cell" " "TextBox7 " Me.TextBox7.Location = New System.Drawing.Point(80, 120) Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3) Me.TextBox7.Name = "TextBox7" Me.TextBox7.Size = New System.Drawing.Size(80, 20) Me.TextBox7.TabIndex = 27 Me.TextBox7.Text = "123-456-7890" " "Label8 " Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(8, 120) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(38, 13) Me.Label8.TabIndex = 26 Me.Label8.Text = "Phone" " "TextBox4 " Me.TextBox4.Location = New System.Drawing.Point(80, 80) Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3) Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(64, 20) Me.TextBox4.TabIndex = 25 Me.TextBox4.Text = "12345-6789" " "Label7 " Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(8, 80) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(22, 13) Me.Label7.TabIndex = 24 Me.Label7.Text = "Zip" " "ComboBox1 " Me.ruboBox1.FormattingEnabled = True Me.ruboBox1.Items.AddRange(New Object() {"CA", "CO", "CT", "VT", "NV", "WA", "OR", "OH", "ID", "MN", "MT", "PA", "FL", "GA"}) Me.ruboBox1.Location = New System.Drawing.Point(80, 56) Me.ruboBox1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 2) Me.ruboBox1.Name = "ComboBox1" Me.ruboBox1.Size = New System.Drawing.Size(48, 21) Me.ruboBox1.TabIndex = 23 Me.ruboBox1.Text = "AAA" " "TextBox5 " Me.TextBox5.Location = New System.Drawing.Point(80, 32) Me.TextBox5.Name = "TextBox5" Me.TextBox5.Size = New System.Drawing.Size(185, 20) Me.TextBox5.TabIndex = 22 Me.TextBox5.Text = "B" " "TextBox6 " Me.TextBox6.Location = New System.Drawing.Point(80, 8) Me.TextBox6.Name = "TextBox6" Me.TextBox6.Size = New System.Drawing.Size(185, 20) Me.TextBox6.TabIndex = 21 Me.TextBox6.Text = "1" " "Label4 " Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(8, 56) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(32, 13) Me.Label4.TabIndex = 20 Me.Label4.Text = "State" " "Label5 " Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(8, 32) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(24, 13) Me.Label5.TabIndex = 19 Me.Label5.Text = "City" " "Label6 " Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(8, 8) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(35, 13) Me.Label6.TabIndex = 18 Me.Label6.Text = "Street" " "TabPage4 " Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Size = New System.Drawing.Size(272, 174) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Office" Me.TabPage4.UseVisualStyleBackColor = False " "TabPage5 " Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Size = New System.Drawing.Size(272, 174) Me.TabPage5.TabIndex = 4 Me.TabPage5.Text = "Privileges" Me.TabPage5.UseVisualStyleBackColor = False " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(372, 219) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOk) Me.Controls.Add(Me.TabControl1) Me.Name = "Form1" Me.Text = "Make Employee" Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.ResumeLayout(False) End Sub Friend WithEvents btnCancel As System.Windows.Forms.Button Friend WithEvents btnOk As System.Windows.Forms.Button Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TextBox8 As System.Windows.Forms.TextBox Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents TextBox7 As System.Windows.Forms.TextBox Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox Friend WithEvents TextBox5 As System.Windows.Forms.TextBox Friend WithEvents TextBox6 As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
End Class</source>