Click here to Skip to main content
15,882,063 members
Articles / Programming Languages / Visual Basic

GN Wizard Framework

Rate me:
Please Sign up or sign in to vote.
4.73/5 (51 votes)
21 Dec 2006CPOL3 min read 175.6K   1.7K   94  
A simple Wizard framework.
Public Class frmTest1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()
        Application.EnableVisualStyles()
        Application.DoEvents()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    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.

    Friend WithEvents WizardTemplate2 As GNWizardFrameWork.WizardTemplate
    Friend WithEvents WizStartPage As GNWizardFrameWork.WizardPage
    Friend WithEvents WizConfigurationPage As GNWizardFrameWork.WizardPage
    Friend WithEvents WizFinisgPage As GNWizardFrameWork.WizardPage
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents pnlProgress As System.Windows.Forms.Panel
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents lblProgress As System.Windows.Forms.Label
    Friend WithEvents lblProceed As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents WizAcceptLicense As GNWizardFrameWork.WizardPage
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
    Friend WithEvents WizardPage1 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage2 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage3 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage4 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage5 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage6 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage7 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage8 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage9 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage10 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage11 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage12 As GNWizardFrameWork.WizardPage
    Friend WithEvents WizardPage13 As GNWizardFrameWork.WizardPage
    Friend WithEvents chkShowError As System.Windows.Forms.CheckBox
    Friend WithEvents lblError As System.Windows.Forms.Label
    Friend WithEvents pnlShowError As System.Windows.Forms.Panel
    Friend WithEvents lblErrormain As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmTest1))
        Me.WizardTemplate2 = New GNWizardFrameWork.WizardTemplate
        Me.WizFinisgPage = New GNWizardFrameWork.WizardPage
        Me.WizStartPage = New GNWizardFrameWork.WizardPage
        Me.lblProceed = New System.Windows.Forms.Label
        Me.WizConfigurationPage = New GNWizardFrameWork.WizardPage
        Me.pnlShowError = New System.Windows.Forms.Panel
        Me.Label5 = New System.Windows.Forms.Label
        Me.lblErrormain = New System.Windows.Forms.Label
        Me.lblError = New System.Windows.Forms.Label
        Me.pnlProgress = New System.Windows.Forms.Panel
        Me.lblProgress = New System.Windows.Forms.Label
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.WizAcceptLicense = New GNWizardFrameWork.WizardPage
        Me.chkShowError = New System.Windows.Forms.CheckBox
        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
        Me.RadioButton2 = New System.Windows.Forms.RadioButton
        Me.RadioButton1 = New System.Windows.Forms.RadioButton
        Me.WizardPage1 = New GNWizardFrameWork.WizardPage
        Me.WizardPage2 = New GNWizardFrameWork.WizardPage
        Me.WizardPage3 = New GNWizardFrameWork.WizardPage
        Me.WizardPage4 = New GNWizardFrameWork.WizardPage
        Me.WizardPage5 = New GNWizardFrameWork.WizardPage
        Me.WizardPage6 = New GNWizardFrameWork.WizardPage
        Me.WizardPage7 = New GNWizardFrameWork.WizardPage
        Me.WizardPage8 = New GNWizardFrameWork.WizardPage
        Me.WizardPage9 = New GNWizardFrameWork.WizardPage
        Me.WizardPage10 = New GNWizardFrameWork.WizardPage
        Me.WizardPage11 = New GNWizardFrameWork.WizardPage
        Me.WizardPage12 = New GNWizardFrameWork.WizardPage
        Me.WizardPage13 = New GNWizardFrameWork.WizardPage
        Me.WizardTemplate2.SuspendLayout()
        Me.WizStartPage.SuspendLayout()
        Me.WizConfigurationPage.SuspendLayout()
        Me.pnlShowError.SuspendLayout()
        Me.pnlProgress.SuspendLayout()
        Me.WizAcceptLicense.SuspendLayout()
        Me.SuspendLayout()
        '
        'WizardTemplate2
        '
        Me.WizardTemplate2.BannerImage = CType(resources.GetObject("WizardTemplate2.BannerImage"), System.Drawing.Image)
        Me.WizardTemplate2.Controls.Add(Me.WizFinisgPage)
        Me.WizardTemplate2.Controls.Add(Me.WizStartPage)
        Me.WizardTemplate2.Controls.Add(Me.WizConfigurationPage)
        Me.WizardTemplate2.Controls.Add(Me.WizAcceptLicense)
        Me.WizardTemplate2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.WizardTemplate2.Location = New System.Drawing.Point(0, 0)
        Me.WizardTemplate2.Name = "WizardTemplate2"
        Me.WizardTemplate2.Pages.Add(Me.WizStartPage)
        Me.WizardTemplate2.Pages.Add(Me.WizAcceptLicense)
        Me.WizardTemplate2.Pages.Add(Me.WizConfigurationPage)
        Me.WizardTemplate2.Pages.Add(Me.WizFinisgPage)
        Me.WizardTemplate2.Size = New System.Drawing.Size(488, 350)
        Me.WizardTemplate2.StartItemIndex = 0
        Me.WizardTemplate2.TabIndex = 0
        '
        'WizFinisgPage
        '
        Me.WizFinisgPage.BackgroundImage = CType(resources.GetObject("WizFinisgPage.BackgroundImage"), System.Drawing.Image)
        Me.WizFinisgPage.HasCancelButton = True
        Me.WizFinisgPage.HasFinishButton = True
        Me.WizFinisgPage.HasNextButton = False
        Me.WizFinisgPage.HasPreviousButton = False
        Me.WizFinisgPage.HeaderCaption = "Wizard Item"
        Me.WizFinisgPage.Location = New System.Drawing.Point(0, 0)
        Me.WizFinisgPage.Name = "WizFinisgPage"
        Me.WizFinisgPage.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Exterior
        Me.WizFinisgPage.Size = New System.Drawing.Size(488, 310)
        Me.WizFinisgPage.SubHeaderCaption = "Panel Item"
        Me.WizFinisgPage.TabIndex = 6
        Me.WizFinisgPage.Text = "New Tab Item 3"
        '
        'WizStartPage
        '
        Me.WizStartPage.BackColor = System.Drawing.Color.White
        Me.WizStartPage.BackgroundImage = CType(resources.GetObject("WizStartPage.BackgroundImage"), System.Drawing.Image)
        Me.WizStartPage.Controls.Add(Me.lblProceed)
        Me.WizStartPage.HasCancelButton = True
        Me.WizStartPage.HasFinishButton = False
        Me.WizStartPage.HasNextButton = True
        Me.WizStartPage.HasPreviousButton = False
        Me.WizStartPage.HeaderCaption = "Wizard Item"
        Me.WizStartPage.Location = New System.Drawing.Point(0, 0)
        Me.WizStartPage.Name = "WizStartPage"
        Me.WizStartPage.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Exterior
        Me.WizStartPage.Size = New System.Drawing.Size(488, 310)
        Me.WizStartPage.SubHeaderCaption = "Panel Item"
        Me.WizStartPage.TabIndex = 4
        Me.WizStartPage.Text = "New Tab Item 1"
        '
        'lblProceed
        '
        Me.lblProceed.BackColor = System.Drawing.Color.Transparent
        Me.lblProceed.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblProceed.ForeColor = System.Drawing.Color.Black
        Me.lblProceed.Location = New System.Drawing.Point(176, 288)
        Me.lblProceed.Name = "lblProceed"
        Me.lblProceed.Size = New System.Drawing.Size(160, 13)
        Me.lblProceed.TabIndex = 1
        Me.lblProceed.Text = "To continue press next"
        '
        'WizConfigurationPage
        '
        Me.WizConfigurationPage.Controls.Add(Me.pnlShowError)
        Me.WizConfigurationPage.Controls.Add(Me.pnlProgress)
        Me.WizConfigurationPage.Controls.Add(Me.Label1)
        Me.WizConfigurationPage.Controls.Add(Me.Label2)
        Me.WizConfigurationPage.HasCancelButton = True
        Me.WizConfigurationPage.HasFinishButton = False
        Me.WizConfigurationPage.HasNextButton = True
        Me.WizConfigurationPage.HasPreviousButton = True
        Me.WizConfigurationPage.HeaderCaption = "Importing your Data"
        Me.WizConfigurationPage.Location = New System.Drawing.Point(0, 56)
        Me.WizConfigurationPage.Name = "WizConfigurationPage"
        Me.WizConfigurationPage.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizConfigurationPage.Size = New System.Drawing.Size(488, 254)
        Me.WizConfigurationPage.SubHeaderCaption = "Nothing is actually  happening here!"
        Me.WizConfigurationPage.TabIndex = 5
        Me.WizConfigurationPage.Text = "New Tab Item 2"
        '
        'pnlShowError
        '
        Me.pnlShowError.BackColor = System.Drawing.Color.White
        Me.pnlShowError.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.pnlShowError.Controls.Add(Me.Label5)
        Me.pnlShowError.Controls.Add(Me.lblErrormain)
        Me.pnlShowError.Controls.Add(Me.lblError)
        Me.pnlShowError.Location = New System.Drawing.Point(120, 8)
        Me.pnlShowError.Name = "pnlShowError"
        Me.pnlShowError.Size = New System.Drawing.Size(256, 192)
        Me.pnlShowError.TabIndex = 4
        Me.pnlShowError.Visible = False
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.Color.Transparent
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.Color.Red
        Me.Label5.Location = New System.Drawing.Point(32, 152)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(200, 24)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "Click finish to exit the wizard"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblErrormain
        '
        Me.lblErrormain.BackColor = System.Drawing.Color.Transparent
        Me.lblErrormain.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblErrormain.ForeColor = System.Drawing.Color.Blue
        Me.lblErrormain.Image = CType(resources.GetObject("lblErrormain.Image"), System.Drawing.Image)
        Me.lblErrormain.Location = New System.Drawing.Point(8, 32)
        Me.lblErrormain.Name = "lblErrormain"
        Me.lblErrormain.Size = New System.Drawing.Size(240, 120)
        Me.lblErrormain.TabIndex = 3
        Me.lblErrormain.Text = "Unable to Import your data. Please contact your systems administrator"
        Me.lblErrormain.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'lblError
        '
        Me.lblError.BackColor = System.Drawing.Color.Transparent
        Me.lblError.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblError.ForeColor = System.Drawing.Color.Red
        Me.lblError.Location = New System.Drawing.Point(80, 8)
        Me.lblError.Name = "lblError"
        Me.lblError.Size = New System.Drawing.Size(96, 24)
        Me.lblError.TabIndex = 2
        Me.lblError.Text = "Oops!"
        Me.lblError.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'pnlProgress
        '
        Me.pnlProgress.Controls.Add(Me.lblProgress)
        Me.pnlProgress.Controls.Add(Me.ProgressBar1)
        Me.pnlProgress.Location = New System.Drawing.Point(16, 8)
        Me.pnlProgress.Name = "pnlProgress"
        Me.pnlProgress.Size = New System.Drawing.Size(456, 192)
        Me.pnlProgress.TabIndex = 1
        '
        'lblProgress
        '
        Me.lblProgress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblProgress.ForeColor = System.Drawing.Color.Red
        Me.lblProgress.Location = New System.Drawing.Point(136, 56)
        Me.lblProgress.Name = "lblProgress"
        Me.lblProgress.Size = New System.Drawing.Size(176, 32)
        Me.lblProgress.TabIndex = 1
        Me.lblProgress.Text = "Please wait...         Importing your data"
        Me.lblProgress.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(112, 104)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(224, 23)
        Me.ProgressBar1.TabIndex = 0
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(128, 48)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(240, 72)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "The wizard has completed your task."
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.Color.Transparent
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(255, Byte))
        Me.Label2.Location = New System.Drawing.Point(152, 112)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(192, 23)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Press next to continue"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'WizAcceptLicense
        '
        Me.WizAcceptLicense.Controls.Add(Me.chkShowError)
        Me.WizAcceptLicense.Controls.Add(Me.RichTextBox1)
        Me.WizAcceptLicense.Controls.Add(Me.RadioButton2)
        Me.WizAcceptLicense.Controls.Add(Me.RadioButton1)
        Me.WizAcceptLicense.HasCancelButton = True
        Me.WizAcceptLicense.HasFinishButton = False
        Me.WizAcceptLicense.HasNextButton = False
        Me.WizAcceptLicense.HasPreviousButton = True
        Me.WizAcceptLicense.HeaderCaption = "License Agreement"
        Me.WizAcceptLicense.Location = New System.Drawing.Point(0, 56)
        Me.WizAcceptLicense.Name = "WizAcceptLicense"
        Me.WizAcceptLicense.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizAcceptLicense.Size = New System.Drawing.Size(488, 254)
        Me.WizAcceptLicense.SubHeaderCaption = "Before you continue please read the license attached to this update"
        Me.WizAcceptLicense.TabIndex = 7
        Me.WizAcceptLicense.Text = "New Tab Item 4"
        '
        'chkShowError
        '
        Me.chkShowError.BackColor = System.Drawing.Color.Transparent
        Me.chkShowError.Location = New System.Drawing.Point(336, 224)
        Me.chkShowError.Name = "chkShowError"
        Me.chkShowError.Size = New System.Drawing.Size(144, 24)
        Me.chkShowError.TabIndex = 3
        Me.chkShowError.Text = "Example (Display Error)"
        '
        'RichTextBox1
        '
        Me.RichTextBox1.Location = New System.Drawing.Point(24, 16)
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.ReadOnly = True
        Me.RichTextBox1.Size = New System.Drawing.Size(440, 168)
        Me.RichTextBox1.TabIndex = 2
        Me.RichTextBox1.Text = "Put your License agreement Here......."
        '
        'RadioButton2
        '
        Me.RadioButton2.Location = New System.Drawing.Point(32, 216)
        Me.RadioButton2.Name = "RadioButton2"
        Me.RadioButton2.Size = New System.Drawing.Size(312, 24)
        Me.RadioButton2.TabIndex = 1
        Me.RadioButton2.TabStop = True
        Me.RadioButton2.Text = "I do not accept the terms of the license agreement"
        '
        'RadioButton1
        '
        Me.RadioButton1.Location = New System.Drawing.Point(32, 192)
        Me.RadioButton1.Name = "RadioButton1"
        Me.RadioButton1.Size = New System.Drawing.Size(264, 24)
        Me.RadioButton1.TabIndex = 0
        Me.RadioButton1.TabStop = True
        Me.RadioButton1.Text = "I accept the terms of the license agreement"
        '
        'WizardPage1
        '
        Me.WizardPage1.HasCancelButton = True
        Me.WizardPage1.HasFinishButton = False
        Me.WizardPage1.HasNextButton = False
        Me.WizardPage1.HasPreviousButton = False
        Me.WizardPage1.HeaderCaption = "Wizard Item"
        Me.WizardPage1.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage1.Name = "WizardPage1"
        Me.WizardPage1.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage1.SubHeaderCaption = "Panel Item"
        Me.WizardPage1.TabIndex = 0
        '
        'WizardPage2
        '
        Me.WizardPage2.HasCancelButton = True
        Me.WizardPage2.HasFinishButton = False
        Me.WizardPage2.HasNextButton = False
        Me.WizardPage2.HasPreviousButton = False
        Me.WizardPage2.HeaderCaption = "Wizard Item"
        Me.WizardPage2.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage2.Name = "WizardPage2"
        Me.WizardPage2.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage2.SubHeaderCaption = "Panel Item"
        Me.WizardPage2.TabIndex = 0
        '
        'WizardPage3
        '
        Me.WizardPage3.HasCancelButton = True
        Me.WizardPage3.HasFinishButton = False
        Me.WizardPage3.HasNextButton = False
        Me.WizardPage3.HasPreviousButton = False
        Me.WizardPage3.HeaderCaption = "Wizard Item"
        Me.WizardPage3.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage3.Name = "WizardPage3"
        Me.WizardPage3.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage3.SubHeaderCaption = "Panel Item"
        Me.WizardPage3.TabIndex = 0
        '
        'WizardPage4
        '
        Me.WizardPage4.HasCancelButton = True
        Me.WizardPage4.HasFinishButton = False
        Me.WizardPage4.HasNextButton = False
        Me.WizardPage4.HasPreviousButton = False
        Me.WizardPage4.HeaderCaption = "Wizard Item"
        Me.WizardPage4.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage4.Name = "WizardPage4"
        Me.WizardPage4.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage4.SubHeaderCaption = "Panel Item"
        Me.WizardPage4.TabIndex = 0
        '
        'WizardPage5
        '
        Me.WizardPage5.HasCancelButton = True
        Me.WizardPage5.HasFinishButton = False
        Me.WizardPage5.HasNextButton = False
        Me.WizardPage5.HasPreviousButton = False
        Me.WizardPage5.HeaderCaption = "Wizard Item"
        Me.WizardPage5.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage5.Name = "WizardPage5"
        Me.WizardPage5.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage5.SubHeaderCaption = "Panel Item"
        Me.WizardPage5.TabIndex = 0
        '
        'WizardPage6
        '
        Me.WizardPage6.HasCancelButton = True
        Me.WizardPage6.HasFinishButton = False
        Me.WizardPage6.HasNextButton = False
        Me.WizardPage6.HasPreviousButton = False
        Me.WizardPage6.HeaderCaption = "Wizard Item"
        Me.WizardPage6.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage6.Name = "WizardPage6"
        Me.WizardPage6.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage6.SubHeaderCaption = "Panel Item"
        Me.WizardPage6.TabIndex = 0
        '
        'WizardPage7
        '
        Me.WizardPage7.HasCancelButton = True
        Me.WizardPage7.HasFinishButton = False
        Me.WizardPage7.HasNextButton = False
        Me.WizardPage7.HasPreviousButton = False
        Me.WizardPage7.HeaderCaption = "Wizard Item"
        Me.WizardPage7.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage7.Name = "WizardPage7"
        Me.WizardPage7.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage7.SubHeaderCaption = "Panel Item"
        Me.WizardPage7.TabIndex = 0
        '
        'WizardPage8
        '
        Me.WizardPage8.HasCancelButton = True
        Me.WizardPage8.HasFinishButton = False
        Me.WizardPage8.HasNextButton = False
        Me.WizardPage8.HasPreviousButton = False
        Me.WizardPage8.HeaderCaption = "Wizard Item"
        Me.WizardPage8.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage8.Name = "WizardPage8"
        Me.WizardPage8.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage8.SubHeaderCaption = "Panel Item"
        Me.WizardPage8.TabIndex = 0
        '
        'WizardPage9
        '
        Me.WizardPage9.HasCancelButton = True
        Me.WizardPage9.HasFinishButton = False
        Me.WizardPage9.HasNextButton = False
        Me.WizardPage9.HasPreviousButton = False
        Me.WizardPage9.HeaderCaption = "Wizard Item"
        Me.WizardPage9.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage9.Name = "WizardPage9"
        Me.WizardPage9.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage9.SubHeaderCaption = "Panel Item"
        Me.WizardPage9.TabIndex = 0
        '
        'WizardPage10
        '
        Me.WizardPage10.HasCancelButton = True
        Me.WizardPage10.HasFinishButton = False
        Me.WizardPage10.HasNextButton = False
        Me.WizardPage10.HasPreviousButton = False
        Me.WizardPage10.HeaderCaption = "Wizard Item"
        Me.WizardPage10.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage10.Name = "WizardPage10"
        Me.WizardPage10.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage10.SubHeaderCaption = "Panel Item"
        Me.WizardPage10.TabIndex = 0
        '
        'WizardPage11
        '
        Me.WizardPage11.HasCancelButton = True
        Me.WizardPage11.HasFinishButton = False
        Me.WizardPage11.HasNextButton = False
        Me.WizardPage11.HasPreviousButton = False
        Me.WizardPage11.HeaderCaption = "Wizard Item"
        Me.WizardPage11.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage11.Name = "WizardPage11"
        Me.WizardPage11.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage11.SubHeaderCaption = "Panel Item"
        Me.WizardPage11.TabIndex = 0
        '
        'WizardPage12
        '
        Me.WizardPage12.HasCancelButton = True
        Me.WizardPage12.HasFinishButton = False
        Me.WizardPage12.HasNextButton = False
        Me.WizardPage12.HasPreviousButton = False
        Me.WizardPage12.HeaderCaption = "Wizard Item"
        Me.WizardPage12.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage12.Name = "WizardPage12"
        Me.WizardPage12.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage12.SubHeaderCaption = "Panel Item"
        Me.WizardPage12.TabIndex = 0
        '
        'WizardPage13
        '
        Me.WizardPage13.HasCancelButton = True
        Me.WizardPage13.HasFinishButton = False
        Me.WizardPage13.HasNextButton = False
        Me.WizardPage13.HasPreviousButton = False
        Me.WizardPage13.HeaderCaption = "Wizard Item"
        Me.WizardPage13.Location = New System.Drawing.Point(0, 0)
        Me.WizardPage13.Name = "WizardPage13"
        Me.WizardPage13.PageStyle = GNWizardFrameWork.PageStyle.eWPS_Interior
        Me.WizardPage13.SubHeaderCaption = "Panel Item"
        Me.WizardPage13.TabIndex = 0
        '
        'frmTest1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(488, 350)
        Me.Controls.Add(Me.WizardTemplate2)
        Me.MaximizeBox = False
        Me.Name = "frmTest1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Wizard Sample"
        Me.WizardTemplate2.ResumeLayout(False)
        Me.WizStartPage.ResumeLayout(False)
        Me.WizConfigurationPage.ResumeLayout(False)
        Me.pnlShowError.ResumeLayout(False)
        Me.pnlProgress.ResumeLayout(False)
        Me.WizAcceptLicense.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub WizardTemplate2_OnMoveNext(ByVal NextWizPanel As GNWizardFrameWork.WizardPage) Handles WizardTemplate2.OnMoveNext

        If NextWizPanel Is Me.WizConfigurationPage Then

            Me.pnlProgress.Visible = True

            WizConfigurationPage.HasNextButton = False
            WizConfigurationPage.HasPreviousButton = False
            WizConfigurationPage.HasCancelButton = False
            Me.pnlShowError.Visible = False

            Application.DoEvents()

            Threading.Thread.CurrentThread.Sleep(10)

            '-- Pretend To Do something!!!!
            If ProceedWithDummyUpdate() Then
                Application.DoEvents()
                Me.pnlProgress.Visible = False
                WizConfigurationPage.HasNextButton = True
                WizConfigurationPage.HasPreviousButton = True
                WizConfigurationPage.HasCancelButton = True

            Else
                Me.pnlProgress.Visible = False
                Me.pnlShowError.Visible = True
                Application.DoEvents()
                WizConfigurationPage.HasNextButton = False
                WizConfigurationPage.HasPreviousButton = False
                WizConfigurationPage.HasCancelButton = False
                WizConfigurationPage.HasFinishButton = True

            End If

        ElseIf NextWizPanel Is Me.WizAcceptLicense Then
            Me.WizAcceptLicense.HasNextButton = Me.RadioButton1.Checked
        End If

    End Sub
    Private Function ProceedWithDummyUpdate() As Boolean

        Try


            For i As Integer = 1 To 100

                Me.ProgressBar1.Value = i
                Threading.Thread.Sleep(10)
                Application.DoEvents()

            Next


            Return Not chkShowError.Checked

        Catch ex As Exception
            Return False
        End Try


    End Function

    Private Sub WizardTemplate2_FinishClick() Handles WizardTemplate2.FinishClick
        Dim _res As DialogResult

        _res = MsgBox("Would you like to see that again?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirm")
        If _res = DialogResult.Yes Then
            Me.RadioButton1.Checked = False
            Me.WizardTemplate2.GotoPage(0)


        Else
            Me.Close()
        End If

    End Sub

    Private Sub WizardTemplate2_CancelClick() Handles WizardTemplate2.CancelClick
        Dim _res As DialogResult

        _res = MsgBox("Are you sure you wan to close the wizard?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirm")
        If _res = DialogResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Me.WizAcceptLicense.HasNextButton = Me.RadioButton1.Checked
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Me.WizAcceptLicense.HasNextButton = Me.RadioButton1.Checked
    End Sub

    Private Sub frmTest1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub WizardTemplate2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WizardTemplate2.Load

    End Sub
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Software Developer
United Kingdom United Kingdom
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions