home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / BackupWebs / gcampbell / graphics / msgboxwiz.exe / frmMsgBoxWiz.frm next >
Text File  |  1997-08-05  |  33KB  |  902 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmMsgBoxWiz 
  4.    Caption         =   "MsgBox Wizard"
  5.    ClientHeight    =   5055
  6.    ClientLeft      =   2310
  7.    ClientTop       =   1455
  8.    ClientWidth     =   4095
  9.    Icon            =   "frmMsgBoxWiz.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   5055
  14.    ScaleWidth      =   4095
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin ComctlLib.Toolbar tbIcons 
  17.       Height          =   630
  18.       Left            =   1080
  19.       TabIndex        =   18
  20.       Top             =   1410
  21.       Width           =   2970
  22.       _ExtentX        =   5239
  23.       _ExtentY        =   1111
  24.       ButtonWidth     =   1032
  25.       ButtonHeight    =   1005
  26.       Wrappable       =   0   'False
  27.       Appearance      =   1
  28.       ImageList       =   "iListIcons"
  29.       _Version        =   327680
  30.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  31.          NumButtons      =   5
  32.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  33.             Key             =   "None"
  34.             Object.ToolTipText     =   "No Icon"
  35.             Object.Tag             =   ""
  36.             ImageIndex      =   1
  37.          EndProperty
  38.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  39.             Key             =   "Critical"
  40.             Object.ToolTipText     =   "Insert Critical Icon"
  41.             Object.Tag             =   ""
  42.             ImageIndex      =   2
  43.          EndProperty
  44.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  45.             Key             =   "QMark"
  46.             Object.ToolTipText     =   "Insert Question Icon"
  47.             Object.Tag             =   ""
  48.             ImageIndex      =   3
  49.          EndProperty
  50.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  51.             Key             =   "EMark"
  52.             Object.ToolTipText     =   "Insert Exclamation Icon"
  53.             Object.Tag             =   ""
  54.             ImageIndex      =   4
  55.          EndProperty
  56.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  57.             Key             =   "Info"
  58.             Object.ToolTipText     =   "Insert Info Icon"
  59.             Object.Tag             =   ""
  60.             ImageIndex      =   5
  61.          EndProperty
  62.       EndProperty
  63.       MouseIcon       =   "frmMsgBoxWiz.frx":0442
  64.    End
  65.    Begin VB.CommandButton cmdClose 
  66.       Caption         =   "Close"
  67.       BeginProperty Font 
  68.          Name            =   "MS Sans Serif"
  69.          Size            =   9.75
  70.          Charset         =   0
  71.          Weight          =   700
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   465
  77.       Left            =   2445
  78.       TabIndex        =   17
  79.       Top             =   4545
  80.       Width           =   1605
  81.    End
  82.    Begin VB.CommandButton cmdSave 
  83.       Caption         =   "Save to Clipboard"
  84.       BeginProperty Font 
  85.          Name            =   "MS Sans Serif"
  86.          Size            =   9.75
  87.          Charset         =   0
  88.          Weight          =   700
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   465
  94.       Left            =   75
  95.       TabIndex        =   16
  96.       Top             =   4545
  97.       Width           =   2295
  98.    End
  99.    Begin VB.CommandButton cmdTest 
  100.       Caption         =   "Test"
  101.       BeginProperty Font 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   9.75
  104.          Charset         =   0
  105.          Weight          =   700
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   1380
  111.       Left            =   75
  112.       TabIndex        =   15
  113.       Top             =   3105
  114.       Width           =   810
  115.    End
  116.    Begin VB.Frame Frame1 
  117.       Caption         =   "Modality"
  118.       Height          =   885
  119.       Index           =   2
  120.       Left            =   60
  121.       TabIndex        =   12
  122.       Top             =   2100
  123.       Width           =   825
  124.       Begin VB.OptionButton optMod 
  125.          Caption         =   "Sys"
  126.          Height          =   225
  127.          Index           =   1
  128.          Left            =   90
  129.          TabIndex        =   14
  130.          Top             =   555
  131.          Width           =   615
  132.       End
  133.       Begin VB.OptionButton optMod 
  134.          Caption         =   "App"
  135.          Height          =   225
  136.          Index           =   0
  137.          Left            =   90
  138.          TabIndex        =   13
  139.          Top             =   285
  140.          Value           =   -1  'True
  141.          Width           =   615
  142.       End
  143.    End
  144.    Begin VB.Frame Frame1 
  145.       Caption         =   "Select button set, click default button"
  146.       Height          =   2400
  147.       Index           =   1
  148.       Left            =   990
  149.       TabIndex        =   5
  150.       Top             =   2100
  151.       Width           =   3060
  152.       Begin ComctlLib.Toolbar tbButton 
  153.          Height          =   375
  154.          Index           =   11
  155.          Left            =   2100
  156.          TabIndex        =   30
  157.          Top             =   1605
  158.          Width           =   870
  159.          _ExtentX        =   1535
  160.          _ExtentY        =   661
  161.          ButtonWidth     =   1508
  162.          ButtonHeight    =   556
  163.          Wrappable       =   0   'False
  164.          ImageList       =   "iListButtons"
  165.          _Version        =   327680
  166.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  167.             NumButtons      =   1
  168.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  169.                Key             =   "Cancel3"
  170.                Object.Tag             =   ""
  171.                ImageIndex      =   2
  172.             EndProperty
  173.          EndProperty
  174.          MouseIcon       =   "frmMsgBoxWiz.frx":045E
  175.       End
  176.       Begin ComctlLib.Toolbar tbButton 
  177.          Height          =   375
  178.          Index           =   10
  179.          Left            =   1245
  180.          TabIndex        =   29
  181.          Top             =   1950
  182.          Width           =   885
  183.          _ExtentX        =   1561
  184.          _ExtentY        =   661
  185.          ButtonWidth     =   1508
  186.          ButtonHeight    =   556
  187.          Wrappable       =   0   'False
  188.          ImageList       =   "iListButtons"
  189.          _Version        =   327680
  190.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  191.             NumButtons      =   1
  192.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  193.                Key             =   "Retry2"
  194.                Object.Tag             =   ""
  195.                ImageIndex      =   5
  196.             EndProperty
  197.          EndProperty
  198.          MouseIcon       =   "frmMsgBoxWiz.frx":047A
  199.       End
  200.       Begin ComctlLib.Toolbar tbButton 
  201.          Height          =   375
  202.          Index           =   9
  203.          Left            =   1245
  204.          TabIndex        =   28
  205.          Top             =   1605
  206.          Width           =   870
  207.          _ExtentX        =   1535
  208.          _ExtentY        =   661
  209.          ButtonWidth     =   1508
  210.          ButtonHeight    =   556
  211.          Wrappable       =   0   'False
  212.          ImageList       =   "iListButtons"
  213.          _Version        =   327680
  214.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  215.             NumButtons      =   1
  216.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  217.                Key             =   "No2"
  218.                Object.Tag             =   ""
  219.                ImageIndex      =   4
  220.             EndProperty
  221.          EndProperty
  222.          MouseIcon       =   "frmMsgBoxWiz.frx":0496
  223.       End
  224.       Begin ComctlLib.Toolbar tbButton 
  225.          Height          =   375
  226.          Index           =   8
  227.          Left            =   1245
  228.          TabIndex        =   27
  229.          Top             =   1260
  230.          Width           =   870
  231.          _ExtentX        =   1535
  232.          _ExtentY        =   661
  233.          ButtonWidth     =   1508
  234.          ButtonHeight    =   556
  235.          Wrappable       =   0   'False
  236.          ImageList       =   "iListButtons"
  237.          _Version        =   327680
  238.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  239.             NumButtons      =   1
  240.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  241.                Key             =   "Cancel2"
  242.                Object.Tag             =   ""
  243.                ImageIndex      =   2
  244.             EndProperty
  245.          EndProperty
  246.          MouseIcon       =   "frmMsgBoxWiz.frx":04B2
  247.       End
  248.       Begin ComctlLib.Toolbar tbButton 
  249.          Height          =   375
  250.          Index           =   7
  251.          Left            =   1245
  252.          TabIndex        =   26
  253.          Top             =   915
  254.          Width           =   870
  255.          _ExtentX        =   1535
  256.          _ExtentY        =   661
  257.          ButtonWidth     =   1508
  258.          ButtonHeight    =   556
  259.          Wrappable       =   0   'False
  260.          ImageList       =   "iListButtons"
  261.          _Version        =   327680
  262.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  263.             NumButtons      =   1
  264.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  265.                Key             =   "No1"
  266.                Object.Tag             =   ""
  267.                ImageIndex      =   4
  268.             EndProperty
  269.          EndProperty
  270.          MouseIcon       =   "frmMsgBoxWiz.frx":04CE
  271.       End
  272.       Begin ComctlLib.Toolbar tbButton 
  273.          Height          =   375
  274.          Index           =   6
  275.          Left            =   1245
  276.          TabIndex        =   25
  277.          Top             =   570
  278.          Width           =   870
  279.          _ExtentX        =   1535
  280.          _ExtentY        =   661
  281.          ButtonWidth     =   1508
  282.          ButtonHeight    =   556
  283.          Wrappable       =   0   'False
  284.          ImageList       =   "iListButtons"
  285.          _Version        =   327680
  286.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  287.             NumButtons      =   1
  288.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  289.                Key             =   "Cancel1"
  290.                Object.Tag             =   ""
  291.                ImageIndex      =   2
  292.             EndProperty
  293.          EndProperty
  294.          MouseIcon       =   "frmMsgBoxWiz.frx":04EA
  295.       End
  296.       Begin ComctlLib.Toolbar tbButton 
  297.          Height          =   375
  298.          Index           =   4
  299.          Left            =   390
  300.          TabIndex        =   23
  301.          Top             =   1605
  302.          Width           =   855
  303.          _ExtentX        =   1508
  304.          _ExtentY        =   661
  305.          ButtonWidth     =   1508
  306.          ButtonHeight    =   556
  307.          Wrappable       =   0   'False
  308.          ImageList       =   "iListButtons"
  309.          _Version        =   327680
  310.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  311.             NumButtons      =   1
  312.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  313.                Key             =   "Yes2"
  314.                Object.Tag             =   ""
  315.                ImageIndex      =   3
  316.             EndProperty
  317.          EndProperty
  318.          MouseIcon       =   "frmMsgBoxWiz.frx":0506
  319.       End
  320.       Begin ComctlLib.Toolbar tbButton 
  321.          Height          =   375
  322.          Index           =   3
  323.          Left            =   390
  324.          TabIndex        =   22
  325.          Top             =   1260
  326.          Width           =   885
  327.          _ExtentX        =   1561
  328.          _ExtentY        =   661
  329.          ButtonWidth     =   1508
  330.          ButtonHeight    =   556
  331.          Wrappable       =   0   'False
  332.          ImageList       =   "iListButtons"
  333.          _Version        =   327680
  334.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  335.             NumButtons      =   1
  336.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  337.                Key             =   "Retry1"
  338.                Object.Tag             =   ""
  339.                ImageIndex      =   5
  340.             EndProperty
  341.          EndProperty
  342.          MouseIcon       =   "frmMsgBoxWiz.frx":0522
  343.       End
  344.       Begin ComctlLib.Toolbar tbButton 
  345.          Height          =   375
  346.          Index           =   2
  347.          Left            =   390
  348.          TabIndex        =   21
  349.          Top             =   915
  350.          Width           =   885
  351.          _ExtentX        =   1561
  352.          _ExtentY        =   661
  353.          ButtonWidth     =   1508
  354.          ButtonHeight    =   556
  355.          Wrappable       =   0   'False
  356.          ImageList       =   "iListButtons"
  357.          _Version        =   327680
  358.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  359.             NumButtons      =   1
  360.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  361.                Key             =   "Yes1"
  362.                Object.Tag             =   ""
  363.                ImageIndex      =   3
  364.             EndProperty
  365.          EndProperty
  366.          MouseIcon       =   "frmMsgBoxWiz.frx":053E
  367.       End
  368.       Begin ComctlLib.Toolbar tbButton 
  369.          Height          =   375
  370.          Index           =   12
  371.          Left            =   2100
  372.          TabIndex        =   31
  373.          Top             =   1950
  374.          Width           =   870
  375.          _ExtentX        =   1535
  376.          _ExtentY        =   661
  377.          ButtonWidth     =   1508
  378.          ButtonHeight    =   556
  379.          Wrappable       =   0   'False
  380.          ImageList       =   "iListButtons"
  381.          _Version        =   327680
  382.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  383.             NumButtons      =   1
  384.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  385.                Key             =   "Ignore"
  386.                Object.Tag             =   ""
  387.                ImageIndex      =   7
  388.             EndProperty
  389.          EndProperty
  390.          MouseIcon       =   "frmMsgBoxWiz.frx":055A
  391.       End
  392.       Begin ComctlLib.Toolbar tbButton 
  393.          Height          =   375
  394.          Index           =   5
  395.          Left            =   390
  396.          TabIndex        =   24
  397.          Top             =   1950
  398.          Width           =   870
  399.          _ExtentX        =   1535
  400.          _ExtentY        =   661
  401.          ButtonWidth     =   1508
  402.          ButtonHeight    =   556
  403.          Wrappable       =   0   'False
  404.          ImageList       =   "iListButtons"
  405.          _Version        =   327680
  406.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  407.             NumButtons      =   1
  408.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  409.                Key             =   "Abort"
  410.                Object.Tag             =   ""
  411.                ImageIndex      =   6
  412.             EndProperty
  413.          EndProperty
  414.          MouseIcon       =   "frmMsgBoxWiz.frx":0576
  415.       End
  416.       Begin ComctlLib.Toolbar tbButton 
  417.          Height          =   375
  418.          Index           =   1
  419.          Left            =   390
  420.          TabIndex        =   20
  421.          Top             =   570
  422.          Width           =   870
  423.          _ExtentX        =   1535
  424.          _ExtentY        =   661
  425.          ButtonWidth     =   1508
  426.          ButtonHeight    =   556
  427.          Wrappable       =   0   'False
  428.          ImageList       =   "iListButtons"
  429.          _Version        =   327680
  430.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  431.             NumButtons      =   1
  432.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  433.                Key             =   "Okay"
  434.                Object.Tag             =   ""
  435.                ImageIndex      =   1
  436.             EndProperty
  437.          EndProperty
  438.          MouseIcon       =   "frmMsgBoxWiz.frx":0592
  439.       End
  440.       Begin ComctlLib.Toolbar tbButton 
  441.          Height          =   375
  442.          Index           =   0
  443.          Left            =   390
  444.          TabIndex        =   19
  445.          Top             =   225
  446.          Width           =   885
  447.          _ExtentX        =   1561
  448.          _ExtentY        =   661
  449.          ButtonWidth     =   1508
  450.          ButtonHeight    =   556
  451.          ImageList       =   "iListButtons"
  452.          _Version        =   327680
  453.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  454.             NumButtons      =   1
  455.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  456.                Key             =   "Okay"
  457.                Object.Tag             =   ""
  458.                ImageIndex      =   1
  459.             EndProperty
  460.          EndProperty
  461.          MouseIcon       =   "frmMsgBoxWiz.frx":05AE
  462.       End
  463.       Begin VB.OptionButton optButGrp 
  464.          Height          =   285
  465.          Index           =   5
  466.          Left            =   135
  467.          TabIndex        =   11
  468.          Top             =   1995
  469.          Width           =   210
  470.       End
  471.       Begin VB.OptionButton optButGrp 
  472.          Height          =   285
  473.          Index           =   4
  474.          Left            =   135
  475.          TabIndex        =   10
  476.          Top             =   1653
  477.          Width           =   210
  478.       End
  479.       Begin VB.OptionButton optButGrp 
  480.          Height          =   285
  481.          Index           =   3
  482.          Left            =   135
  483.          TabIndex        =   9
  484.          Top             =   1311
  485.          Width           =   210
  486.       End
  487.       Begin VB.OptionButton optButGrp 
  488.          Height          =   285
  489.          Index           =   2
  490.          Left            =   135
  491.          TabIndex        =   8
  492.          Top             =   969
  493.          Width           =   210
  494.       End
  495.       Begin VB.OptionButton optButGrp 
  496.          Height          =   285
  497.          Index           =   1
  498.          Left            =   135
  499.          TabIndex        =   7
  500.          Top             =   627
  501.          Width           =   210
  502.       End
  503.       Begin VB.OptionButton optButGrp 
  504.          Height          =   285
  505.          Index           =   0
  506.          Left            =   135
  507.          TabIndex        =   6
  508.          Top             =   285
  509.          Value           =   -1  'True
  510.          Width           =   210
  511.       End
  512.    End
  513.    Begin VB.TextBox txtMessage 
  514.       BeginProperty Font 
  515.          Name            =   "MS Sans Serif"
  516.          Size            =   9.75
  517.          Charset         =   0
  518.          Weight          =   400
  519.          Underline       =   0   'False
  520.          Italic          =   0   'False
  521.          Strikethrough   =   0   'False
  522.       EndProperty
  523.       Height          =   840
  524.       Left            =   975
  525.       MultiLine       =   -1  'True
  526.       ScrollBars      =   2  'Vertical
  527.       TabIndex        =   2
  528.       Top             =   510
  529.       Width           =   3075
  530.    End
  531.    Begin VB.TextBox txtTitle 
  532.       BeginProperty Font 
  533.          Name            =   "MS Sans Serif"
  534.          Size            =   9.75
  535.          Charset         =   0
  536.          Weight          =   400
  537.          Underline       =   0   'False
  538.          Italic          =   0   'False
  539.          Strikethrough   =   0   'False
  540.       EndProperty
  541.       Height          =   360
  542.       Left            =   975
  543.       TabIndex        =   0
  544.       Top             =   90
  545.       Width           =   3075
  546.    End
  547.    Begin ComctlLib.ImageList iListButtons 
  548.       Left            =   3375
  549.       Top             =   2655
  550.       _ExtentX        =   1005
  551.       _ExtentY        =   1005
  552.       BackColor       =   -2147483643
  553.       ImageWidth      =   50
  554.       ImageHeight     =   14
  555.       MaskColor       =   12632256
  556.       _Version        =   327680
  557.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  558.          NumListImages   =   7
  559.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  560.             Picture         =   "frmMsgBoxWiz.frx":05CA
  561.             Key             =   ""
  562.          EndProperty
  563.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  564.             Picture         =   "frmMsgBoxWiz.frx":07E4
  565.             Key             =   ""
  566.          EndProperty
  567.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  568.             Picture         =   "frmMsgBoxWiz.frx":09FE
  569.             Key             =   ""
  570.          EndProperty
  571.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  572.             Picture         =   "frmMsgBoxWiz.frx":0C18
  573.             Key             =   ""
  574.          EndProperty
  575.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  576.             Picture         =   "frmMsgBoxWiz.frx":0E32
  577.             Key             =   ""
  578.          EndProperty
  579.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  580.             Picture         =   "frmMsgBoxWiz.frx":104C
  581.             Key             =   ""
  582.          EndProperty
  583.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  584.             Picture         =   "frmMsgBoxWiz.frx":1266
  585.             Key             =   ""
  586.          EndProperty
  587.       EndProperty
  588.    End
  589.    Begin ComctlLib.ImageList iListIcons 
  590.       Left            =   3375
  591.       Top             =   2970
  592.       _ExtentX        =   1005
  593.       _ExtentY        =   1005
  594.       BackColor       =   -2147483643
  595.       ImageWidth      =   32
  596.       ImageHeight     =   32
  597.       MaskColor       =   12632256
  598.       _Version        =   327680
  599.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  600.          NumListImages   =   5
  601.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  602.             Picture         =   "frmMsgBoxWiz.frx":1480
  603.             Key             =   ""
  604.          EndProperty
  605.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  606.             Picture         =   "frmMsgBoxWiz.frx":1712
  607.             Key             =   ""
  608.          EndProperty
  609.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  610.             Picture         =   "frmMsgBoxWiz.frx":2364
  611.             Key             =   ""
  612.          EndProperty
  613.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  614.             Picture         =   "frmMsgBoxWiz.frx":2FB6
  615.             Key             =   ""
  616.          EndProperty
  617.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  618.             Picture         =   "frmMsgBoxWiz.frx":3C08
  619.             Key             =   ""
  620.          EndProperty
  621.       EndProperty
  622.    End
  623.    Begin VB.Label Label1 
  624.       Alignment       =   1  'Right Justify
  625.       Caption         =   "Select Icon:"
  626.       Height          =   555
  627.       Index           =   2
  628.       Left            =   225
  629.       TabIndex        =   4
  630.       Top             =   1440
  631.       Width           =   720
  632.    End
  633.    Begin VB.Label Label1 
  634.       Alignment       =   1  'Right Justify
  635.       Caption         =   "Message: Press Enter to end a line."
  636.       Height          =   810
  637.       Index           =   1
  638.       Left            =   15
  639.       TabIndex        =   3
  640.       Top             =   510
  641.       Width           =   930
  642.    End
  643.    Begin VB.Label Label1 
  644.       Alignment       =   1  'Right Justify
  645.       Caption         =   "Title:"
  646.       Height          =   270
  647.       Index           =   0
  648.       Left            =   420
  649.       TabIndex        =   1
  650.       Top             =   150
  651.       Width           =   510
  652.    End
  653. End
  654. Attribute VB_Name = "frmMsgBoxWiz"
  655. Attribute VB_GlobalNameSpace = False
  656. Attribute VB_Creatable = False
  657. Attribute VB_PredeclaredId = True
  658. Attribute VB_Exposed = False
  659. Option Explicit
  660. Dim sIcon As String           'Icon
  661. Dim iIcon As Integer          'Numeric value of Icon for testing
  662. Dim sModality As String       'Modality setting
  663. Dim iModality As Integer      'Numeric value of Modality for testing
  664. Dim sButtonGroup As String    'Button Group
  665. Dim iButtonGroup As Integer   'Numeric value of ButtonGroup for testing
  666. Dim sDefaultButton As String  'Default Button
  667. Dim iDefaultButton As Integer 'Numeric value of Default Button for testing
  668. Dim QUOTEMARK As String       'Quotation mark constant
  669. Dim bSkipFlag As Boolean      'Changing the Value property of an Option
  670.                               '   Button or Ribbon Button automatically
  671.                               '   calls its Click event procedure.  Use
  672.                               '   this flag to control when the code in
  673.                               '   the Click event procedure is executed.
  674. '
  675. 'Exit and Unload the application
  676. '
  677. Private Sub cmdClose_Click()
  678.   Unload Me
  679. End Sub
  680. '
  681. 'Saves the Message Box info to the Clipboard for pasting into
  682. '   a Visual Basic Code Window
  683. '
  684. Private Sub cmdSave_Click()
  685.   Dim sTemp As String, sStore As String
  686.           
  687.   'For a single OK button there is no Return Code
  688.   If sButtonGroup = "vbOK" Then
  689.     sTemp = "Dim sMsgText As String" & vbCrLf & _
  690.             "sMsgText = " & ParseMessage(txtMessage.Text) & vbCrLf & _
  691.             "MsgBox sMsgText, " & sDefaultButton & " + " & _
  692.             sButtonGroup & " + " & sIcon & " + " & sModality & ", " _
  693.             & QUOTEMARK & txtTitle.Text & QUOTEMARK
  694.   Else
  695.     sTemp = "Dim iReturnCode As Integer" & vbCrLf & _
  696.             "Dim sMsgText As String" & vbCrLf & _
  697.             "sMsgText = " & ParseMessage(txtMessage.Text) & vbCrLf & _
  698.             "iReturnCode = MsgBox(sMsgText, " & sDefaultButton & " + " _
  699.             & sButtonGroup & " + " & sIcon & " + " & sModality & ", " _
  700.             & QUOTEMARK & txtTitle.Text & QUOTEMARK & ")" & vbCrLf & _
  701.             "'Enter code for the results" & vbCrLf & _
  702.             "Select Case iReturnCode" & vbCrLf
  703.   End If
  704.  
  705.   Select Case sButtonGroup
  706.     Case "vbOKCancel"
  707.       sTemp = sTemp & "  Case vbOK" & vbCrLf & vbCrLf & _
  708.                       "  Case vbCancel" & vbCrLf & vbCrLf & _
  709.                       "End Select"
  710.     Case "vbYesNo"
  711.       sTemp = sTemp & "  Case vbYes" & vbCrLf & vbCrLf & _
  712.                       "  Case vbNo" & vbCrLf & vbCrLf & _
  713.                       "End Select"
  714.     Case "vbRetryCancel"
  715.       sTemp = sTemp & "  Case vbRetry" & vbCrLf & vbCrLf & _
  716.                       "  Case vbCancel" & vbCrLf & vbCrLf & _
  717.                       "End Select"
  718.     Case "vbYesNoCancel"
  719.       sTemp = sTemp & "  Case vbYes" & vbCrLf & vbCrLf & _
  720.                       "  Case vbNo" & vbCrLf & vbCrLf & _
  721.                       "  Case vbCancel" & vbCrLf & vbCrLf & _
  722.                       "End Select"
  723.     Case "vbAbortRetryIgnore"
  724.       sTemp = sTemp & "  Case vbAbort" & vbCrLf & vbCrLf & _
  725.                       "  Case vbRetry" & vbCrLf & vbCrLf & _
  726.                       "  Case vbIgnore" & vbCrLf & vbCrLf & _
  727.                       "End Select"
  728.   End Select
  729.   'Save the Text from the txtMessage Textbox.  You need to use the
  730.   '   Text property of a Textbox to copy text to the clipboard.
  731.   sStore = txtMessage.Text
  732.   'Copy the sTemp string to the txtMessage Textbox
  733.   txtMessage.Text = sTemp
  734.   'Copy the contents of the txtMessage textbox to the Clipboard
  735.   Clipboard.Clear
  736.   Clipboard.SetText txtMessage.Text
  737.   'Put the original Message text back into txtMessage
  738.   txtMessage.Text = sStore
  739.   MsgBox "Position the insertion point in your Code Window" & vbCrLf & _
  740.          "where you want the MsgBox code and Paste.", , _
  741.          "Ready to Paste the MsgBox Code"
  742.   'Call the cmdClose Click event procedure so that the program exits
  743.   cmdClose_Click
  744. End Sub
  745. '
  746. 'Shows how the Message Box will look
  747. '
  748. Private Sub cmdTest_Click()
  749.   MsgBox txtMessage.Text, iDefaultButton + iButtonGroup + iIcon + _
  750.                           iModality, txtTitle.Text
  751. End Sub
  752. '
  753. 'Set some initial Values and Center the form on the Screen
  754. '
  755. Private Sub Form_Load()
  756.   QUOTEMARK = Chr(34)
  757.   bSkipFlag = False
  758.   optMod(0).Value = True
  759.   sIcon = "0"
  760.   iIcon = 0
  761.   sModality = "vbApplicationModal"
  762.   iModality = vbApplicationModal
  763.   sButtonGroup = "vbOKOnly"
  764.   iButtonGroup = vbOKOnly
  765.   sDefaultButton = "vbDefaultButton1"
  766.   iDefaultButton = vbDefaultButton1
  767. End Sub
  768. '
  769. 'Sets the selected Button Group
  770. '
  771. Private Sub optButGrp_Click(Index As Integer)
  772.   Dim i As Integer
  773.   Select Case Index
  774.     Case 0
  775.       sButtonGroup = "vbOKOnly"
  776.       iButtonGroup = vbOKOnly
  777.     Case 1
  778.       sButtonGroup = "vbOKCancel"
  779.       iButtonGroup = vbOKCancel
  780.     Case 2
  781.       sButtonGroup = "vbYesNo"
  782.       iButtonGroup = vbYesNo
  783.     Case 3
  784.       sButtonGroup = "vbRetryCancel"
  785.       iButtonGroup = vbRetryCancel
  786.     Case 4
  787.       sButtonGroup = "vbYesNoCancel"
  788.       iButtonGroup = vbYesNoCancel
  789.     Case 5
  790.       sButtonGroup = "vbAbortRetryIgnore"
  791.       iButtonGroup = vbAbortRetryIgnore
  792.   End Select
  793.   If bSkipFlag Then Exit Sub
  794.   'Deselect all the Default buttons, without executing the code in
  795.   '   the tbButtons_Click event procedure
  796.   bSkipFlag = True
  797.   For i = 0 To 12
  798.     tbButton(i).Buttons(1).Value = tbrUnpressed
  799.   Next i
  800.   bSkipFlag = False
  801. End Sub
  802. '
  803. 'Sets the Message Box's Modal option to Application or System
  804. '
  805. Private Sub optMod_Click(Index As Integer)
  806.   Select Case Index
  807.     Case 0
  808.       sModality = "vbApplicationModal"
  809.       iModality = vbApplicationModal
  810.     Case Else
  811.       sModality = "vbSystemModal"
  812.       iModality = vbSystemModal
  813.   End Select
  814. End Sub
  815. '
  816. 'Adjucts the Message Text so that it will display properly
  817. '
  818. Public Function ParseMessage(sMessage As String) As String
  819.   Dim sTemp As String, sChar As String
  820.   Dim i As Integer
  821.   sTemp = QUOTEMARK
  822.   For i = 1 To Len(sMessage)
  823.     sChar = Mid(sMessage, i, 1)
  824.     If sChar <> vbCr And sChar <> vbLf Then
  825.       sTemp = sTemp & sChar
  826.     ElseIf sChar <> vbLf Then
  827.       sTemp = sTemp & QUOTEMARK & " & vbCrLf & " & QUOTEMARK
  828.     End If
  829.   Next i
  830.   sTemp = sTemp & QUOTEMARK
  831.   ParseMessage = sTemp
  832. End Function
  833. '
  834. 'Sets the default Button of the Button Group
  835. '
  836. Private Sub tbButton_ButtonClick(Index As Integer, ByVal Button As ComctlLib.Button)
  837.   Dim i As Integer, j As Integer
  838.   If bSkipFlag Then Exit Sub
  839.   Select Case Index
  840.     Case 0 To 5
  841.       sDefaultButton = "vbDefaultButton1"
  842.       iDefaultButton = vbDefaultButton1
  843.     Case 6 To 10
  844.       sDefaultButton = "vbDefaultButton2"
  845.       iDefaultButton = vbDefaultButton2
  846.     Case Else
  847.       sDefaultButton = "vbDefaultButton3"
  848.       iDefaultButton = vbDefaultButton3
  849.   End Select
  850.   bSkipFlag = True
  851.   For i = 0 To 12             'Unpress any pressed ones
  852.     tbButton(i).Buttons(1).Value = tbrUnpressed
  853.   Next i
  854.   Button.Value = tbrPressed   'Press the selected one
  855.   Select Case Index
  856.     Case 0
  857.       optButGrp(0).Value = True
  858.     Case 1, 6
  859.       optButGrp(1).Value = True
  860.     Case 2, 7
  861.       optButGrp(2).Value = True
  862.     Case 3, 8
  863.       optButGrp(3).Value = True
  864.     Case 4, 9, 11
  865.       optButGrp(4).Value = True
  866.     Case 5, 10, 12
  867.       optButGrp(5).Value = True
  868.   End Select
  869.   bSkipFlag = False
  870. End Sub
  871. '
  872. 'Sets the Icon to display in the Message Box
  873. '
  874. Private Sub tbIcons_ButtonClick(ByVal Button As ComctlLib.Button)
  875.   Dim i As Integer
  876.   For i = 1 To 5    'Unpress any pressed buttons
  877.     tbIcons.Buttons(i).Value = tbrUnpressed
  878.   Next i
  879.   Select Case Button.Key
  880.     Case Is = "None"
  881.       sIcon = "0"
  882.       iIcon = 0
  883.       tbIcons.Buttons(1).Value = tbrPressed
  884.     Case Is = "Critical"
  885.       sIcon = "vbCritical"
  886.       iIcon = vbCritical
  887.       tbIcons.Buttons(2).Value = tbrPressed
  888.     Case Is = "QMark"
  889.       sIcon = "vbQuestion"
  890.       iIcon = vbQuestion
  891.       tbIcons.Buttons(3).Value = tbrPressed
  892.     Case Is = "EMark"
  893.       sIcon = "vbExclamation"
  894.       iIcon = vbExclamation
  895.       tbIcons.Buttons(4).Value = tbrPressed
  896.     Case Is = "Info"
  897.       sIcon = "vbInformation"
  898.       iIcon = vbInformation
  899.       tbIcons.Buttons(5).Value = tbrPressed
  900.   End Select
  901. End Sub
  902.