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 use 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.
This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)
Math Primers for Programmers