home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / wizardx / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-27  |  7.8 KB  |  216 lines
  1. VERSION 5.00
  2. Object = "{9AC21A05-1658-11D1-B2D1-F0F38CBFDD31}#4.0#0"; "WizardX.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "wxEvents Demo"
  5.    ClientHeight    =   4710
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7200
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4710
  11.    ScaleWidth      =   7200
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin WizardX.WizardPane WizardPane3 
  14.       Height          =   3420
  15.       Left            =   1725
  16.       Top             =   990
  17.       Width           =   4110
  18.       _ExtentX        =   7250
  19.       _ExtentY        =   6033
  20.       BackColor       =   -2147483633
  21.       BackStyle       =   1
  22.       Picture         =   "Form1.frx":0000
  23.       Palette         =   "Form1.frx":001C
  24.       PaletteMode     =   3
  25.       Caption         =   "WizardPane3"
  26.       ForeColor       =   -2147483630
  27.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       AutoSizeAtDesignTime=   -1  'True
  37.       BorderAtDesignTime=   -1  'True
  38.       Style           =   0
  39.       PaneIndex       =   4
  40.       BackButtonEnabled=   -1  'True
  41.       BackButtonPaneIndex=   2
  42.       BackButtonVisible=   -1  'True
  43.       NextButtonEnabled=   -1  'True
  44.       NextButtonPaneIndex=   4
  45.       NextButtonVisible=   -1  'True
  46.       IsFinishPane    =   -1  'True
  47.    End
  48.    Begin WizardX.WizardPane WizardPane2 
  49.       Height          =   3420
  50.       Left            =   2325
  51.       Top             =   795
  52.       Width           =   4110
  53.       _ExtentX        =   7250
  54.       _ExtentY        =   6033
  55.       BackColor       =   -2147483633
  56.       BackStyle       =   1
  57.       Picture         =   "Form1.frx":0038
  58.       Palette         =   "Form1.frx":0054
  59.       PaletteMode     =   3
  60.       Caption         =   "WizardPane2"
  61.       ForeColor       =   -2147483630
  62.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  63.          Name            =   "MS Sans Serif"
  64.          Size            =   8.25
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       AutoSizeAtDesignTime=   -1  'True
  72.       BorderAtDesignTime=   -1  'True
  73.       Style           =   0
  74.       PaneIndex       =   2
  75.       BackButtonEnabled=   -1  'True
  76.       BackButtonPaneIndex=   1
  77.       BackButtonVisible=   -1  'True
  78.       NextButtonEnabled=   -1  'True
  79.       NextButtonPaneIndex=   3
  80.       NextButtonVisible=   -1  'True
  81.       IsFinishPane    =   0   'False
  82.    End
  83.    Begin WizardX.WizardPane WizardPane1 
  84.       Height          =   3420
  85.       Left            =   2025
  86.       Top             =   435
  87.       Width           =   4110
  88.       _ExtentX        =   7250
  89.       _ExtentY        =   6033
  90.       BackColor       =   -2147483633
  91.       BackStyle       =   1
  92.       Picture         =   "Form1.frx":0070
  93.       Palette         =   "Form1.frx":008C
  94.       PaletteMode     =   3
  95.       Caption         =   "This project demonstrates the WizardX event model."
  96.       ForeColor       =   -2147483630
  97.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   400
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       AutoSizeAtDesignTime=   -1  'True
  107.       BorderAtDesignTime=   -1  'True
  108.       Style           =   0
  109.       PaneIndex       =   1
  110.       BackButtonEnabled=   0   'False
  111.       BackButtonPaneIndex=   0
  112.       BackButtonVisible=   -1  'True
  113.       NextButtonEnabled=   -1  'True
  114.       NextButtonPaneIndex=   2
  115.       NextButtonVisible=   -1  'True
  116.       IsFinishPane    =   0   'False
  117.       Begin VB.Label Label1 
  118.          Caption         =   "Watch the Immediate window when running through the panes."
  119.          Height          =   600
  120.          Left            =   0
  121.          TabIndex        =   1
  122.          Top             =   930
  123.          Width           =   3975
  124.       End
  125.    End
  126.    Begin WizardX.WizardControl WizardControl1 
  127.       Height          =   4485
  128.       Left            =   15
  129.       TabIndex        =   0
  130.       Top             =   15
  131.       Width           =   6540
  132.       _ExtentX        =   11536
  133.       _ExtentY        =   7911
  134.       AutoSizeAtDesignTime=   -1  'True
  135.       BackButtonCaption=   "< &Back"
  136.       BackButtonEnabled=   -1  'True
  137.       BackButtonPaneIndex=   0
  138.       BackButtonVisible=   -1  'True
  139.       BackColor       =   -2147483633
  140.       BackStyle       =   1
  141.       BorderAtDesignTime=   -1  'True
  142.       CancelCaption   =   "Cancel"
  143.       CurrentPaneIndex=   1
  144.       FinishCaption   =   "Finish"
  145.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  146.          Name            =   "MS Sans Serif"
  147.          Size            =   8.25
  148.          Charset         =   0
  149.          Weight          =   400
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       Image           =   "Form1.frx":00A8
  155.       IsFinishPane    =   0   'False
  156.       NextButtonCaption=   "Next >"
  157.       NextButtonEnabled=   -1  'True
  158.       NextButtonPaneIndex=   2
  159.       NextButtonVisible=   -1  'True
  160.       Palette         =   "Form1.frx":00C4
  161.       PaletteMode     =   3
  162.       Picture         =   "Form1.frx":00E0
  163.       Style           =   0
  164.       UseWizardPanes  =   -1  'True
  165.    End
  166. Attribute VB_Name = "Form1"
  167. Attribute VB_GlobalNameSpace = False
  168. Attribute VB_Creatable = False
  169. Attribute VB_PredeclaredId = True
  170. Attribute VB_Exposed = False
  171. Option Explicit
  172. ' wxEvents.BAS
  173. ' demonstrates event model
  174. Private Sub WizardControl1_AfterPaneChange(ByVal NewPane As Long)
  175.     Debug.Print "WizardControl1_AfterPaneChange(NewPane:=" & NewPane & ")"
  176.     Debug.Print
  177. End Sub
  178. Private Sub WizardControl1_BeforePaneChange(ByVal OldPane As Long, NewPane As Long, Cancel As Boolean)
  179.     Debug.Print "WizardControl1_BeforePaneChange(OldPane:=" & OldPane & ", NewPane:=" & NewPane & ", Cancel:= " & Format$(Cancel) & ")"
  180. End Sub
  181. Private Sub WizardControl1_CancelClick()
  182.     Debug.Print "WizardControl1_CancelClick"
  183.     Unload Me
  184. End Sub
  185. Private Sub WizardControl1_FinishClick()
  186.     Debug.Print "WizardControl1_FinishClick"
  187.     MsgBox "Finished", vbInformation
  188.     Unload Me
  189. End Sub
  190. Private Sub WizardControl1_WizardPaneError(ByVal ErrorPane As Long)
  191.     Debug.Print "WizardControl1_WizardPaneError(ErrorPane:=" & ErrorPane & ")"
  192.     ' automatically fix "known error"
  193.     If ErrorPane = 3 Then
  194.         Debug.Print "    Now setting WizardControl1.CurrentPaneIndex = 4"
  195.         WizardControl1.CurrentPaneIndex = 4
  196.     End If
  197. End Sub
  198. Private Sub WizardPane1_Reposition()
  199.     Debug.Print "WizardPane1_Reposition"
  200. End Sub
  201. Private Sub WizardPane1_Validate(Cancel As Boolean)
  202.     Debug.Print "WizardPane1_Validate(" & "Cancel:=" & Format$(Cancel) & ")"
  203. End Sub
  204. Private Sub WizardPane2_Reposition()
  205.     Debug.Print "WizardPane2_Reposition"
  206. End Sub
  207. Private Sub WizardPane2_Validate(Cancel As Boolean)
  208.     Debug.Print "WizardPane2_Validate(" & "Cancel:=" & Format$(Cancel) & ")"
  209. End Sub
  210. Private Sub WizardPane3_Reposition()
  211.     Debug.Print "WizardPane3_Reposition"
  212. End Sub
  213. Private Sub WizardPane3_Validate(Cancel As Boolean)
  214.     Debug.Print "WizardPane3_Validate(" & "Cancel:=" & Format$(Cancel) & ")"
  215. End Sub
  216.