wizard.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "{75D4F767-8785-11D3-93AD-0000832EF44D}#2.6#0"; "fast2001.ocx"
Begin VB.Form frmWizard 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Wizard Example"
   ClientHeight    =   4185
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6480
   Icon            =   "Wizard.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4185
   ScaleWidth      =   6480
   StartUpPosition =   2  'CenterScreen
   Begin FLWCtrls.FWWizard objWizard 
      Height          =   4065
      Left            =   60
      TabIndex        =   0
      Top             =   30
      Width           =   6315
      _ExtentX        =   11139
      _ExtentY        =   7170
      ButtonHelp      =   "&Help"
      ButtonForward   =   "&Next"
      ButtonBack      =   "&Back"
      ButtonExit      =   "&Finish"
      ButtonCancel    =   "&Cancel"
      SplashPicture   =   "Wizard.frx":000C
      Enabled         =   -1  'True
   End
End
Attribute VB_Name = "frmWizard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  With objWizard
    Call .AddPage(New WizPage1, "One")
    Call .AddPage(New WizPage2, "Two")
    Call .AddPage(New WizPage3, "Three")
    Call .AddPage(New WizPage4, "Four")
    Call .AddPage(New WizPage5, "Five")
    Call .AddPage(New WizPage6, "Six")
    Call .AddPage(New WizPage7, "Seven")
    .Start
  End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim blnCancel As Boolean
  
  If UnloadMode <> vbFormCode Then
    Call objWizard_OnCancel(blnCancel)
    If blnCancel Then
      Cancel = 1
    End If
  End If
End Sub

Private Sub objWizard_BeforePageHide(objPage As Object, intCurrentStep As Integer, intNextStep As Integer, bCancel As Boolean)
  If intCurrentStep = 3 Then
    Call objPage.CanGoFwd(intNextStep, bCancel)
  End If
End Sub

Private Sub objWizard_AfterStep()
  objWizard.Left = 0
  objWizard.Top = 0
  Me.Height = objWizard.Height
  Me.Width = objWizard.Width
End Sub

Private Sub objWizard_OnCancel(Cancel As Boolean)
  If objWizard.CurrentStep <> objWizard.StepCount Then
    Cancel = Not (MsgBox("Are you sure you want to exit?", vbYesNo Or vbQuestion, "Wizard") = vbYes)
    If Not Cancel Then
      Unload Me
    End If
  Else
    Unload Me
  End If
End Sub

Private Sub objWizard_OnRequestHelp()
  MsgBox "Help about the panel " & objWizard.CurrentStep
End Sub