Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/truegrid/disk1/vsdemo/vsdemo.$/FWIZ.FRM

Visual Basic Form | 1995-02-15 | 20.6 KB | 540 lines

VERSION 2.00
Begin Form fwiz
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Create Wizards with the IndexTab"
   ClientHeight    =   3960
   ClientLeft      =   1095
   ClientTop       =   1545
   ClientWidth     =   7170
   Height          =   4425
   Left            =   1005
   LinkTopic       =   "Form1"
   ScaleHeight     =   3960
   ScaleWidth      =   7170
   Top             =   1170
   Width           =   7350
   Begin VideoSoftElastic VSElastic1
      Align           =   5  'Fill Container
      AutoSizeChildren=   1  'Even Horizontal
      BevelInner      =   0  'None
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      BorderWidth     =   12
      ConvInfo        =   FWIZ.FRX:0000
      Height          =   3390
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7170
      Begin VideoSoftIndexTab VSIndexTab1
         BackSheets      =   0  'None
         Caption         =   "1|2|3|4"
         ConvInfo        =   FWIZ.FRX:000B
         Height          =   3030
         Left            =   180
         New3D           =   -1  'True
         Position        =   0  'Top
         Style           =   7  'Straight 3D
         TabIndex        =   2
         Top             =   180
         Width           =   6810
         Begin VideoSoftElastic elaPage
            AccessKey       =   -1  'True
            BevelChildren   =   2  'No Elastics
            BevelInner      =   0  'None
            BevelOuter      =   0  'None
            ConvInfo        =   FWIZ.FRX:0016
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   2685
            Index           =   3
            IntBkg          =   &H00C0C0C0&
            Left            =   10080
            TabIndex        =   26
            TagPosition     =   1  'Above
            TagWidth        =   278
            Top             =   315
            Width           =   6750
            Begin CommandButton cmdButton
               Caption         =   "&Preview"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   390
               Index           =   4
               Left            =   4110
               TabIndex        =   28
               Top             =   1020
               Width           =   1320
            End
            Begin VideoSoftElastic VSElastic4
               BevelInner      =   0  'None
               BevelOuter      =   0  'None
               Caption         =   "DONE!  Now you can preview the MessageBox"
               CaptionPos      =   4  'Center Center
               CaptionStyle    =   1  'Raised
               ConvInfo        =   FWIZ.FRX:0021
               FontBold        =   -1  'True
               FontItalic      =   -1  'True
               FontName        =   "Arial"
               FontSize        =   18
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               ForeColor       =   &H00FF0000&
               Height          =   1455
               Index           =   3
               IntBkg          =   &H00C0C0C0&
               Left            =   510
               TabIndex        =   27
               Top             =   465
               Width           =   3195
            End
         End
         Begin VideoSoftElastic elaPage
            BevelInner      =   0  'None
            BevelOuter      =   0  'None
            ConvInfo        =   FWIZ.FRX:002C
            Height          =   2685
            Index           =   2
            IntBkg          =   &H00C0C0C0&
            Left            =   10005
            TabIndex        =   6
            Top             =   315
            Width           =   6750
            Begin VideoSoftElastic VSElastic8
               AutoSizeChildren=   4  'Uneven Vertical
               BevelOuter      =   1  'Raised
               BevelOuterWidth =   1
               Caption         =   "Buttons"
               ConvInfo        =   FWIZ.FRX:0037
               Height          =   1905
               IntBkg          =   &H00C0C0C0&
               Left            =   3720
               Style           =   1  'Frame Top
               TabIndex        =   23
               Top             =   45
               Width           =   2880
               Begin ListBox List1
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   1005
                  Left            =   90
                  TabIndex        =   24
                  Top             =   720
                  Width           =   2700
               End
               Begin ComboBox Combo1
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   315
                  Left            =   90
                  TabIndex        =   25
                  Text            =   "Combo1"
                  Top             =   330
                  Width           =   2700
               End
            End
            Begin VideoSoftElastic VSElastic6
               AutoSizeChildren=   3  'Even Vertical
               BevelInner      =   0  'None
               BevelOuter      =   1  'Raised
               BevelOuterWidth =   1
               Caption         =   " Icon "
               ConvInfo        =   FWIZ.FRX:0042
               Height          =   1905
               IntBkg          =   &H00C0C0C0&
               Left            =   1905
               Style           =   1  'Frame Top
               TabIndex        =   17
               TagWidth        =   400
               Top             =   60
               Width           =   1740
               Begin OptionButton Option1
                  BackColor       =   &H00C0C0C0&
                  Caption         =   "None"
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   225
                  Index           =   4
                  Left            =   495
                  TabIndex        =   22
                  Top             =   330
                  Value           =   -1  'True
                  Width           =   1155
               End
               Begin OptionButton Option1
                  BackColor       =   &H00C0C0C0&
                  Caption         =   "Information"
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   225
                  Index           =   3
                  Left            =   495
                  TabIndex        =   21
                  Top             =   1590
                  Width           =   1155
               End
               Begin OptionButton Option1
                  BackColor       =   &H00C0C0C0&
                  Caption         =   "Exclamation"
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   225
                  Index           =   2
                  Left            =   495
                  TabIndex        =   20
                  Top             =   1275
                  Width           =   1155
               End
               Begin OptionButton Option1
                  BackColor       =   &H00C0C0C0&
                  Caption         =   "Question"
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   225
                  Index           =   1
                  Left            =   495
                  TabIndex        =   19
                  Top             =   960
                  Width           =   1155
               End
               Begin OptionButton Option1
                  BackColor       =   &H00C0C0C0&
                  Caption         =   "Critical"
                  FontBold        =   0   'False
                  FontItalic      =   0   'False
                  FontName        =   "MS Sans Serif"
                  FontSize        =   8.25
                  FontStrikethru  =   0   'False
                  FontUnderline   =   0   'False
                  Height          =   225
                  Index           =   0
                  Left            =   495
                  TabIndex        =   18
                  Top             =   645
                  Width           =   1155
               End
            End
            Begin VideoSoftElastic VSElastic4
               BevelInner      =   0  'None
               BevelOuter      =   0  'None
               Caption         =   "Set Options"
               CaptionPos      =   4  'Center Center
               CaptionStyle    =   1  'Raised
               ConvInfo        =   FWIZ.FRX:004D
               FontBold        =   -1  'True
               FontItalic      =   -1  'True
               FontName        =   "Arial"
               FontSize        =   18
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               ForeColor       =   &H00FF0000&
               Height          =   1245
               Index           =   2
               IntBkg          =   &H00C0C0C0&
               Left            =   135
               TabIndex        =   15
               Top             =   135
               Width           =   1665
            End
         End
         Begin VideoSoftElastic elaPage
            AccessKey       =   -1  'True
            BevelChildren   =   2  'No Elastics
            BevelOuter      =   0  'None
            ConvInfo        =   FWIZ.FRX:0058
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   2685
            Index           =   1
            IntBkg          =   &H00C0C0C0&
            Left            =   9930
            TabIndex        =   5
            TagPosition     =   1  'Above
            TagWidth        =   278
            Top             =   315
            Width           =   6750
            Begin TextBox txtTitle
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   300
               Left            =   2985
               TabIndex        =   14
               Tag             =   "&Title"
               Text            =   "This is my title"
               Top             =   1095
               Width           =   3300
            End
            Begin TextBox txtMsg
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   285
               Left            =   3000
               TabIndex        =   13
               Tag             =   "Message"
               Text            =   "This is my message"
               Top             =   495
               Width           =   3330
            End
            Begin VideoSoftElastic VSElastic4
               BevelInner      =   0  'None
               BevelOuter      =   0  'None
               Caption         =   "Enter Values"
               CaptionPos      =   4  'Center Center
               CaptionStyle    =   1  'Raised
               ConvInfo        =   FWIZ.FRX:0063
               FontBold        =   -1  'True
               FontItalic      =   -1  'True
               FontName        =   "Arial"
               FontSize        =   18
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               ForeColor       =   &H00FF0000&
               Height          =   1230
               Index           =   1
               IntBkg          =   &H00C0C0C0&
               Left            =   75
               TabIndex        =   12
               Top             =   105
               Width           =   1920
            End
         End
         Begin VideoSoftElastic elaPage
            BevelChildren   =   2  'No Elastics
            BevelOuter      =   0  'None
            ConvInfo        =   FWIZ.FRX:006E
            Height          =   2685
            Index           =   0
            IntBkg          =   &H00C0C0C0&
            Left            =   30
            PicturePos      =   10  'Tile
            TabIndex        =   4
            Top             =   315
            Width           =   6750
            Begin VideoSoftElastic VSElastic5
               BevelInnerWidth =   0
               BevelOuter      =   0  'None
               BevelOuterWidth =   1
               CaptionPos      =   4  'Center Center
               ConvInfo        =   FWIZ.FRX:0079
               Height          =   2055
               IntBkg          =   &H00C0C0C0&
               Left            =   2370
               Picture         =   FWIZ.FRX:0084
               TabIndex        =   11
               Top             =   210
               Width           =   4080
            End
            Begin VideoSoftElastic VSElastic4
               BevelInner      =   0  'None
               BevelOuter      =   0  'None
               Caption         =   "MsgBox Wizard"
               CaptionPos      =   4  'Center Center
               CaptionStyle    =   1  'Raised
               ConvInfo        =   FWIZ.FRX:4BEA
               FontBold        =   -1  'True
               FontItalic      =   -1  'True
               FontName        =   "Arial"
               FontSize        =   18
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               ForeColor       =   &H00FF0000&
               Height          =   1035
               Index           =   0
               IntBkg          =   &H00C0C0C0&
               Left            =   135
               TabIndex        =   7
               Top             =   210
               Width           =   1995
            End
         End
      End
   End
   Begin VideoSoftElastic VSElastic2
      Align           =   2  'Bottom
      AutoSizeChildren=   1  'Even Horizontal
      BevelInner      =   0  'None
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      ConvInfo        =   FWIZ.FRX:4BF5
      Height          =   570
      IntBkg          =   &H00C0C0C0&
      Left            =   0
      TabIndex        =   1
      Top             =   3390
      Width           =   7170
      Begin CommandButton cmdButton
         Caption         =   "Apply"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   390
         Index           =   3
         Left            =   5760
         TabIndex        =   16
         Top             =   90
         Width           =   1320
      End
      Begin VideoSoftElastic VSElastic3
         BevelOuter      =   0  'None
         ConvInfo        =   FWIZ.FRX:4C00
         Height          =   390
         IntBkg          =   &H00C0C0C0&
         Left            =   90
         TabIndex        =   3
         Top             =   90
         Width           =   1335
      End
      Begin CommandButton cmdButton
         Caption         =   "Cancel"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   390
         Index           =   2
         Left            =   4350
         TabIndex        =   10
         Top             =   90
         Width           =   1320
      End
      Begin CommandButton cmdButton
         Caption         =   "Next  >>"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   390
         Index           =   1
         Left            =   2940
         TabIndex        =   9
         Top             =   90
         Width           =   1320
      End
      Begin CommandButton cmdButton
         Caption         =   "<<  &Back"
         Enabled         =   0   'False
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   390
         Index           =   0
         Left            =   1515
         TabIndex        =   8
         Top             =   90
         Width           =   1335
      End
   End
Option Explicit
Dim MyIcon As Integer
Dim MyButton As Integer
Sub cmdButton_Click (Index As Integer)
    Select Case Index
    Case 0  'Previous
        If vsIndexTab1.CurrTab > 0 Then vsIndexTab1.CurrTab = vsIndexTab1.CurrTab - 1
    Case 1  'Next
        vsIndexTab1.CurrTab = vsIndexTab1.CurrTab + 1
    Case 2  'Cancel
        Unload Me
    Case 3  ' Apply settings
    Case 4
        MsgBox txtMsg, MyIcon + MyButton + combo1.ListIndex * 256, txtTitle
    End Select
    If vsIndexTab1.CurrTab = 0 Then
    cmdButton(0).Enabled = False
    Else
    cmdButton(0).Enabled = True
    End If
End Sub
Sub elaButton_Click (Index As Integer)
End Sub
Sub Form_Load ()
    'Set the Dynamic Dialog
    vsIndexTab1.TabHeight = 1
    vsIndexTab1.CurrTab = 0
    MyIcon = 0
    MyButton = 0
    List1.AddItem "OK Only"
    List1.AddItem "OK Cancel"
    List1.AddItem "Abort Retry Ignore"
    List1.AddItem "Yes No Cancel"
    List1.AddItem "Yes No"
    List1.AddItem "Retry Cancel"
    List1.ListIndex = 0
    combo1.AddItem "Default Button 1"
    combo1.AddItem "Default Button 2"
    combo1.AddItem "Default Button 3"
    combo1.ListIndex = 0
End Sub
Sub List1_Click ()
  MyButton = List1.ListIndex
End Sub
Sub Option1_Click (Index As Integer)
    Select Case Index
    Case 0
        MyIcon = 16
    Case 1
        MyIcon = 32
    Case 2
        MyIcon = 48
    Case 3
        MyIcon = 64
    Case 4
        MyIcon = 0
    End Select
End Sub