samplewizard.vb

Magic Library 1.7,有说明文档

' *****************************************************************************
' 
'  (c) Crownwood Consulting Limited 2002 
'  All rights reserved. The software and associated documentation 
'  supplied hereunder are the proprietary information of Crownwood Consulting 
'  Limited, Haxey, North Lincolnshire, England and are supplied subject to 
'  licence terms.
' 
'  Magic Version 1.7	www.dotnetmagic.com
' *****************************************************************************

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports Crownwood.Magic.Controls

Namespace SampleWizard
    Public Class SampleWizard
        Inherits Crownwood.Magic.Forms.WizardDialog

        Private installTimer As Timer
        Private installCount As Int32
        Private wizardStartPage As Crownwood.Magic.Controls.WizardPage
        Private label1 As System.Windows.Forms.Label
        Private label2 As System.Windows.Forms.Label
        Private label3 As System.Windows.Forms.Label
        Private wizardInfo1 As Crownwood.Magic.Controls.WizardPage
        Private groupBox1 As System.Windows.Forms.GroupBox
        Private radioButton1 As System.Windows.Forms.RadioButton
        Private radioButton2 As System.Windows.Forms.RadioButton
        Private radioButton3 As System.Windows.Forms.RadioButton
        Private wizardLegal As Crownwood.Magic.Controls.WizardPage
        Private textBox1 As System.Windows.Forms.TextBox
        Private label4 As System.Windows.Forms.Label
        Private radioButton4 As System.Windows.Forms.RadioButton
        Private radioButton5 As System.Windows.Forms.RadioButton
        Private wizardInstall As Crownwood.Magic.Controls.WizardPage
        Private label5 As System.Windows.Forms.Label
        Private label6 As System.Windows.Forms.Label
        Private progressBar1 As System.Windows.Forms.ProgressBar
        Private label7 As System.Windows.Forms.Label
        Private wizardFinish As Crownwood.Magic.Controls.WizardPage
        Private wizardWarn As Crownwood.Magic.Controls.WizardPage
        Private wizardInfo2 As Crownwood.Magic.Controls.WizardPage
        Private textBox2 As System.Windows.Forms.TextBox
        Private label8 As System.Windows.Forms.Label
        Private textBox3 As System.Windows.Forms.TextBox
        Private label9 As System.Windows.Forms.Label
        Private label10 As System.Windows.Forms.Label
        Private components As System.ComponentModel.IContainer = Nothing

        Sub New()
            ' Me call is required by the Windows Form Designer.
            InitializeComponent()

            AddHandler radioButton5.CheckedChanged, AddressOf radioButton5_CheckedChanged
            AddHandler radioButton4.CheckedChanged, AddressOf radioButton4_CheckedChanged
        End Sub

        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

#Region "Designer generated code"
        Private Sub InitializeComponent()
            Me.wizardStartPage = New Crownwood.Magic.Controls.WizardPage()
            Me.label3 = New System.Windows.Forms.Label()
            Me.label2 = New System.Windows.Forms.Label()
            Me.label1 = New System.Windows.Forms.Label()
            Me.wizardInfo1 = New Crownwood.Magic.Controls.WizardPage()
            Me.groupBox1 = New System.Windows.Forms.GroupBox()
            Me.radioButton3 = New System.Windows.Forms.RadioButton()
            Me.radioButton2 = New System.Windows.Forms.RadioButton()
            Me.radioButton1 = New System.Windows.Forms.RadioButton()
            Me.wizardLegal = New Crownwood.Magic.Controls.WizardPage()
            Me.radioButton5 = New System.Windows.Forms.RadioButton()
            Me.radioButton4 = New System.Windows.Forms.RadioButton()
            Me.label4 = New System.Windows.Forms.Label()
            Me.textBox1 = New System.Windows.Forms.TextBox()
            Me.wizardWarn = New Crownwood.Magic.Controls.WizardPage()
            Me.label6 = New System.Windows.Forms.Label()
            Me.label5 = New System.Windows.Forms.Label()
            Me.wizardInstall = New Crownwood.Magic.Controls.WizardPage()
            Me.label7 = New System.Windows.Forms.Label()
            Me.progressBar1 = New System.Windows.Forms.ProgressBar()
            Me.wizardFinish = New Crownwood.Magic.Controls.WizardPage()
            Me.label10 = New System.Windows.Forms.Label()
            Me.wizardInfo2 = New Crownwood.Magic.Controls.WizardPage()
            Me.label9 = New System.Windows.Forms.Label()
            Me.textBox3 = New System.Windows.Forms.TextBox()
            Me.label8 = New System.Windows.Forms.Label()
            Me.textBox2 = New System.Windows.Forms.TextBox()
            Me.wizardStartPage.SuspendLayout()
            Me.wizardInfo1.SuspendLayout()
            Me.groupBox1.SuspendLayout()
            Me.wizardLegal.SuspendLayout()
            Me.wizardWarn.SuspendLayout()
            Me.wizardInstall.SuspendLayout()
            Me.wizardFinish.SuspendLayout()
            Me.wizardInfo2.SuspendLayout()
            Me.SuspendLayout()
            '
            'wizardControl
            '
            Me.wizardControl.Profile = Crownwood.Magic.Controls.WizardControl.Profiles.Install
            Me.wizardControl.SelectedIndex = 0
            Me.wizardControl.Size = New System.Drawing.Size(410, 351)
            Me.wizardControl.Title = "Sample Wizard using Install Profile"
            Me.wizardControl.Visible = True
            Me.wizardControl.WizardPages.AddRange(New Crownwood.Magic.Controls.WizardPage() {Me.wizardStartPage, Me.wizardLegal, Me.wizardInfo1, Me.wizardInfo2, Me.wizardWarn, Me.wizardInstall, Me.wizardFinish})
            '
            'wizardStartPage
            '
            Me.wizardStartPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.label3, Me.label2, Me.label1})
            Me.wizardStartPage.FullPage = False
            Me.wizardStartPage.Name = "wizardStartPage"
            Me.wizardStartPage.Size = New System.Drawing.Size(410, 222)
            Me.wizardStartPage.SubTitle = "Start page explaining what Me sample demonstrates"
            Me.wizardStartPage.TabIndex = 3
            Me.wizardStartPage.Title = "Start"
            '
            'label3
            '
            Me.label3.Location = New System.Drawing.Point(8, 136)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(400, 64)
            Me.label3.TabIndex = 3
            Me.label3.Text = "Therefore on the second to last page only the 'Cancel' button is available and us" & _
            "ed to abort the installation. On the last page only the 'Close' button is availa" & _
            "ble as the only possible action left is to exit the dialog.  On preceding pages " & _
            "the 'Next' and 'Back' buttons are displayed when appropriate as well as the 'Can" & _
            "cel' button."
            '
            'label2
            '
            Me.label2.Location = New System.Drawing.Point(8, 72)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(400, 64)
            Me.label2.TabIndex = 2
            Me.label2.Text = "In Me profile the last two pages have special significance. The second to last is" & _
            " used for conducting the actual installation. The last page is used to report th" & _
            "e success or failure of the install. All other preceding pages are for informati" & _
            "on gathering prior to the install attempt."
            '
            'label1
            '
            Me.label1.Location = New System.Drawing.Point(8, 8)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(400, 56)
            Me.label1.TabIndex = 1
            Me.label1.Text = "The WizardControl and associated WizardDialog can be used in three different prof" & _
            "iles depending on the type of Wizard required. Available options are 'Install', " & _
            "'Configure' and 'Controller'. Me sample is intended to demonstrate use of the 'I" & _
            "nstall' profile."
            '
            'wizardInfo1
            '
            Me.wizardInfo1.Controls.AddRange(New System.Windows.Forms.Control() {Me.groupBox1})
            Me.wizardInfo1.FullPage = False
            Me.wizardInfo1.Name = "wizardInfo1"
            Me.wizardInfo1.Selected = False
            Me.wizardInfo1.Size = New System.Drawing.Size(410, 222)
            Me.wizardInfo1.SubTitle = "Me is the first of two pages for gathering input"
            Me.wizardInfo1.TabIndex = 4
            Me.wizardInfo1.Title = "Info1"
            '
            'groupBox1
            '
            Me.groupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.radioButton3, Me.radioButton2, Me.radioButton1})
            Me.groupBox1.Location = New System.Drawing.Point(24, 16)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New System.Drawing.Size(160, 152)
            Me.groupBox1.TabIndex = 0
            Me.groupBox1.TabStop = False
            Me.groupBox1.Text = "Example of Selection"
            '
            'radioButton3
            '
            Me.radioButton3.Location = New System.Drawing.Point(32, 112)
            Me.radioButton3.Name = "radioButton3"
            Me.radioButton3.TabIndex = 2
            Me.radioButton3.Text = "Debug Install"
            '
            'radioButton2
            '
            Me.radioButton2.Location = New System.Drawing.Point(32, 72)
            Me.radioButton2.Name = "radioButton2"
            Me.radioButton2.TabIndex = 1
            Me.radioButton2.Text = "Server Install"
            '
            'radioButton1
            '
            Me.radioButton1.Location = New System.Drawing.Point(32, 32)
            Me.radioButton1.Name = "radioButton1"
            Me.radioButton1.TabIndex = 0
            Me.radioButton1.Text = "Client Install"
            '
            'wizardLegal
            '
            Me.wizardLegal.Controls.AddRange(New System.Windows.Forms.Control() {Me.radioButton5, Me.radioButton4, Me.label4, Me.textBox1})
            Me.wizardLegal.FullPage = False
            Me.wizardLegal.Name = "wizardLegal"
            Me.wizardLegal.Selected = False
            Me.wizardLegal.Size = New System.Drawing.Size(410, 222)
            Me.wizardLegal.SubTitle = "Force the user to agree a license agreement for product"
            Me.wizardLegal.TabIndex = 5
            Me.wizardLegal.Title = "Legal"
            '
            'radioButton5
            '
            Me.radioButton5.Checked = True
            Me.radioButton5.Location = New System.Drawing.Point(216, 160)
            Me.radioButton5.Name = "radioButton5"
            Me.radioButton5.Size = New System.Drawing.Size(88, 24)
            Me.radioButton5.TabIndex = 3
            Me.radioButton5.TabStop = True
            Me.radioButton5.Text = "I Disagree"
            '
            'radioButton4
            '
            Me.radioButton4.Location = New System.Drawing.Point(120, 160)
            Me.radioButton4.Name = "radioButton4"
            Me.radioButton4.Size = New System.Drawing.Size(72, 24)
            Me.radioButton4.TabIndex = 2
            Me.radioButton4.Text = "I Agree"
            '