home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhcomd / mhcomm_a.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-06  |  37.2 KB  |  1,042 lines
  1. VERSION 4.00
  2. Begin VB.Form fMain 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "MicroHelp VBTools 5 - MhCommand Example (OCX32)"
  5.    ClientHeight    =   3345
  6.    ClientLeft      =   2340
  7.    ClientTop       =   4110
  8.    ClientWidth     =   8145
  9.    Height          =   3750
  10.    Left            =   2280
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3345
  15.    ScaleWidth      =   8145
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   3765
  18.    Width           =   8265
  19.    Begin VB.Frame frmGroup 
  20.       Caption         =   "frmGroup(0)"
  21.       Height          =   2895
  22.       Index           =   0
  23.       Left            =   180
  24.       TabIndex        =   0
  25.       Top             =   225
  26.       Width           =   4830
  27.       Begin VB.PictureBox picDialog 
  28.          BackColor       =   &H00FFFFFF&
  29.          BorderStyle     =   0  'None
  30.          Height          =   1500
  31.          Left            =   270
  32.          ScaleHeight     =   1500
  33.          ScaleWidth      =   4290
  34.          TabIndex        =   29
  35.          Top             =   315
  36.          Width           =   4290
  37.          Begin Mhcm200Lib.MhCommand cmdDialog 
  38.             Default         =   -1  'True
  39.             Height          =   660
  40.             Index           =   0
  41.             Left            =   495
  42.             TabIndex        =   32
  43.             Top             =   585
  44.             Width           =   1020
  45.             _Version        =   65536
  46.             _ExtentX        =   1799
  47.             _ExtentY        =   1164
  48.             _StockProps     =   79
  49.             PictureUp       =   "mhcomm_a.frx":0000
  50.             PictureDown     =   "mhcomm_a.frx":0592
  51.             Autosize        =   -1  'True
  52.             Alignment       =   2
  53.             FontTransparent =   -1  'True
  54.             MultiLine       =   0   'False
  55.             StateButton     =   0   'False
  56.             Value           =   0   'False
  57.             FontStyle       =   0
  58.             BevelSize       =   2
  59.             BorderColor     =   -2147483642
  60.             BorderStyle     =   2
  61.             FillColor       =   -2147483633
  62.             LightColor      =   -2147483628
  63.             ShadowColor     =   -2147483632
  64.             TextColor       =   -2147483630
  65.             WallPaper       =   0
  66.             BevelStyle      =   1
  67.          End
  68.          Begin Mhcm200Lib.MhCommand cmdDialog 
  69.             Height          =   660
  70.             Index           =   1
  71.             Left            =   1575
  72.             TabIndex        =   31
  73.             Top             =   585
  74.             Width           =   1020
  75.             _Version        =   65536
  76.             _ExtentX        =   1799
  77.             _ExtentY        =   1164
  78.             _StockProps     =   79
  79.             PictureUp       =   "mhcomm_a.frx":0B24
  80.             PictureDown     =   "mhcomm_a.frx":10B6
  81.             Autosize        =   -1  'True
  82.             Alignment       =   2
  83.             FontTransparent =   -1  'True
  84.             MultiLine       =   0   'False
  85.             StateButton     =   0   'False
  86.             Value           =   0   'False
  87.             FontStyle       =   0
  88.             BevelSize       =   2
  89.             BorderColor     =   -2147483642
  90.             BorderStyle     =   2
  91.             FillColor       =   -2147483633
  92.             LightColor      =   -2147483628
  93.             ShadowColor     =   -2147483632
  94.             TextColor       =   -2147483630
  95.             WallPaper       =   0
  96.             BevelStyle      =   1
  97.          End
  98.          Begin Mhcm200Lib.MhCommand cmdDialog 
  99.             Height          =   660
  100.             Index           =   2
  101.             Left            =   2655
  102.             TabIndex        =   30
  103.             Top             =   585
  104.             Width           =   1020
  105.             _Version        =   65536
  106.             _ExtentX        =   1799
  107.             _ExtentY        =   1164
  108.             _StockProps     =   79
  109.             PictureUp       =   "mhcomm_a.frx":1648
  110.             PictureDown     =   "mhcomm_a.frx":1BDA
  111.             Autosize        =   -1  'True
  112.             Alignment       =   2
  113.             FontTransparent =   -1  'True
  114.             MultiLine       =   0   'False
  115.             StateButton     =   0   'False
  116.             Value           =   0   'False
  117.             FontStyle       =   0
  118.             BevelSize       =   2
  119.             BorderColor     =   -2147483642
  120.             BorderStyle     =   2
  121.             FillColor       =   -2147483633
  122.             LightColor      =   -2147483628
  123.             ShadowColor     =   -2147483632
  124.             TextColor       =   -2147483630
  125.             WallPaper       =   0
  126.             BevelStyle      =   1
  127.          End
  128.       End
  129.       Begin VB.Line linDialog 
  130.          BorderWidth     =   2
  131.          Index           =   2
  132.          X1              =   4590
  133.          X2              =   270
  134.          Y1              =   1845
  135.          Y2              =   1845
  136.       End
  137.       Begin VB.Line linDialog 
  138.          BorderWidth     =   2
  139.          Index           =   1
  140.          X1              =   4590
  141.          X2              =   4590
  142.          Y1              =   315
  143.          Y2              =   1845
  144.       End
  145.       Begin VB.Line linDialog 
  146.          BorderWidth     =   2
  147.          Index           =   0
  148.          X1              =   270
  149.          X2              =   270
  150.          Y1              =   315
  151.          Y2              =   1845
  152.       End
  153.       Begin VB.Label lblComment 
  154.          Alignment       =   2  'Center
  155.          BackStyle       =   0  'Transparent
  156.          Caption         =   "lblComment(0)"
  157.          Height          =   690
  158.          Index           =   0
  159.          Left            =   270
  160.          TabIndex        =   8
  161.          Top             =   1980
  162.          Width           =   4200
  163.       End
  164.    End
  165.    Begin VB.Frame frmGroup 
  166.       Caption         =   "frmGroup(1)"
  167.       Height          =   2895
  168.       Index           =   1
  169.       Left            =   360
  170.       TabIndex        =   4
  171.       Top             =   540
  172.       Width           =   4830
  173.       Begin VB.PictureBox picTool 
  174.          Height          =   600
  175.          Left            =   270
  176.          ScaleHeight     =   540
  177.          ScaleWidth      =   2250
  178.          TabIndex        =   33
  179.          Top             =   630
  180.          Width           =   2310
  181.          Begin Mhcm200Lib.MhCommand cmdAlign 
  182.             Height          =   480
  183.             Index           =   0
  184.             Left            =   405
  185.             TabIndex        =   36
  186.             Top             =   45
  187.             Width           =   480
  188.             _Version        =   65536
  189.             _ExtentX        =   847
  190.             _ExtentY        =   847
  191.             _StockProps     =   79
  192.             PictureUp       =   "mhcomm_a.frx":216C
  193.             PictureDown     =   "mhcomm_a.frx":23BE
  194.             Autosize        =   -1  'True
  195.             Alignment       =   2
  196.             FontTransparent =   -1  'True
  197.             MultiLine       =   0   'False
  198.             StateButton     =   -1  'True
  199.             Value           =   0   'False
  200.             FontStyle       =   0
  201.             BevelSize       =   2
  202.             BorderColor     =   -2147483642
  203.             BorderStyle     =   2
  204.             FillColor       =   -2147483633
  205.             LightColor      =   -2147483628
  206.             ShadowColor     =   -2147483632
  207.             TextColor       =   -2147483630
  208.             WallPaper       =   0
  209.             BevelStyle      =   1
  210.          End
  211.          Begin Mhcm200Lib.MhCommand cmdAlign 
  212.             Height          =   480
  213.             Index           =   1
  214.             Left            =   855
  215.             TabIndex        =   35
  216.             Top             =   45
  217.             Width           =   480
  218.             _Version        =   65536
  219.             _ExtentX        =   847
  220.             _ExtentY        =   847
  221.             _StockProps     =   79
  222.             PictureUp       =   "mhcomm_a.frx":2610
  223.             PictureDown     =   "mhcomm_a.frx":2862
  224.             Autosize        =   -1  'True
  225.             Alignment       =   2
  226.             FontTransparent =   -1  'True
  227.             MultiLine       =   0   'False
  228.             StateButton     =   -1  'True
  229.             Value           =   0   'False
  230.             FontStyle       =   0
  231.             BevelSize       =   2
  232.             BorderColor     =   -2147483642
  233.             BorderStyle     =   2
  234.             FillColor       =   -2147483633
  235.             LightColor      =   -2147483628
  236.             ShadowColor     =   -2147483632
  237.             TextColor       =   -2147483630
  238.             WallPaper       =   0
  239.             BevelStyle      =   1
  240.          End
  241.          Begin Mhcm200Lib.MhCommand cmdAlign 
  242.             Height          =   480
  243.             Index           =   2
  244.             Left            =   1305
  245.             TabIndex        =   34
  246.             Top             =   45
  247.             Width           =   480
  248.             _Version        =   65536
  249.             _ExtentX        =   847
  250.             _ExtentY        =   847
  251.             _StockProps     =   79
  252.             PictureUp       =   "mhcomm_a.frx":2AB4
  253.             PictureDown     =   "mhcomm_a.frx":2D06
  254.             Autosize        =   -1  'True
  255.             Alignment       =   2
  256.             FontTransparent =   -1  'True
  257.             MultiLine       =   0   'False
  258.             StateButton     =   -1  'True
  259.             Value           =   0   'False
  260.             FontStyle       =   0
  261.             BevelSize       =   2
  262.             BorderColor     =   -2147483642
  263.             BorderStyle     =   2
  264.             FillColor       =   -2147483633
  265.             LightColor      =   -2147483628
  266.             ShadowColor     =   -2147483632
  267.             TextColor       =   -2147483630
  268.             WallPaper       =   0
  269.             BevelStyle      =   1
  270.          End
  271.       End
  272.       Begin VB.Label lblAlign 
  273.          Alignment       =   2  'Center
  274.          Caption         =   "lblAlign"
  275.          Height          =   195
  276.          Left            =   270
  277.          TabIndex        =   38
  278.          Top             =   360
  279.          Width           =   2310
  280.       End
  281.       Begin VB.Label lblTool 
  282.          Alignment       =   2  'Center
  283.          BackStyle       =   0  'Transparent
  284.          Caption         =   "lblTool"
  285.          Height          =   195
  286.          Left            =   2880
  287.          TabIndex        =   37
  288.          Top             =   315
  289.          Width           =   1635
  290.       End
  291.       Begin Mhcm200Lib.MhCommand cmdTool 
  292.          Height          =   450
  293.          Index           =   3
  294.          Left            =   3690
  295.          TabIndex        =   14
  296.          Top             =   1035
  297.          Width           =   450
  298.          _Version        =   65536
  299.          _ExtentX        =   794
  300.          _ExtentY        =   794
  301.          _StockProps     =   79
  302.          PictureUp       =   "mhcomm_a.frx":2F58
  303.          PictureDown     =   "mhcomm_a.frx":318A
  304.          Autosize        =   -1  'True
  305.          Alignment       =   2
  306.          FontTransparent =   -1  'True
  307.          MultiLine       =   0   'False
  308.          StateButton     =   0   'False
  309.          Value           =   0   'False
  310.          FontStyle       =   0
  311.          BevelSize       =   2
  312.          BorderColor     =   -2147483642
  313.          BorderStyle     =   1
  314.          FillColor       =   -2147483633
  315.          LightColor      =   -2147483628
  316.          ShadowColor     =   -2147483632
  317.          TextColor       =   -2147483630
  318.          WallPaper       =   0
  319.          BevelStyle      =   1
  320.       End
  321.       Begin Mhcm200Lib.MhCommand cmdTool 
  322.          Height          =   450
  323.          Index           =   2
  324.          Left            =   3240
  325.          TabIndex        =   13
  326.          Top             =   1035
  327.          Width           =   450
  328.          _Version        =   65536
  329.          _ExtentX        =   794
  330.          _ExtentY        =   794
  331.          _StockProps     =   79
  332.          PictureUp       =   "mhcomm_a.frx":33BC
  333.          PictureDown     =   "mhcomm_a.frx":35EE
  334.          Autosize        =   -1  'True
  335.          Alignment       =   2
  336.          FontTransparent =   -1  'True
  337.          MultiLine       =   0   'False
  338.          StateButton     =   0   'False
  339.          Value           =   0   'False
  340.          FontStyle       =   0
  341.          BevelSize       =   2
  342.          BorderColor     =   -2147483642
  343.          BorderStyle     =   1
  344.          FillColor       =   -2147483633
  345.          LightColor      =   -2147483628
  346.          ShadowColor     =   -2147483632
  347.          TextColor       =   -2147483630
  348.          WallPaper       =   0
  349.          BevelStyle      =   1
  350.       End
  351.       Begin Mhcm200Lib.MhCommand cmdTool 
  352.          Height          =   450
  353.          Index           =   1
  354.          Left            =   3690
  355.          TabIndex        =   12
  356.          Top             =   585
  357.          Width           =   450
  358.          _Version        =   65536
  359.          _ExtentX        =   794
  360.          _ExtentY        =   794
  361.          _StockProps     =   79
  362.          PictureUp       =   "mhcomm_a.frx":3820
  363.          PictureDown     =   "mhcomm_a.frx":3A52
  364.          Autosize        =   -1  'True
  365.          Alignment       =   2
  366.          FontTransparent =   -1  'True
  367.          MultiLine       =   0   'False
  368.          StateButton     =   0   'False
  369.          Value           =   0   'False
  370.          FontStyle       =   0
  371.          BevelSize       =   2
  372.          BorderColor     =   -2147483642
  373.          BorderStyle     =   1
  374.          FillColor       =   -2147483633
  375.          LightColor      =   -2147483628
  376.          ShadowColor     =   -2147483632
  377.          TextColor       =   -2147483630
  378.          WallPaper       =   0
  379.          BevelStyle      =   1
  380.       End
  381.       Begin Mhcm200Lib.MhCommand cmdTool 
  382.          Height          =   450
  383.          Index           =   0
  384.          Left            =   3240
  385.          TabIndex        =   11
  386.          Top             =   585
  387.          Width           =   450
  388.          _Version        =   65536
  389.          _ExtentX        =   794
  390.          _ExtentY        =   794
  391.          _StockProps     =   79
  392.          PictureUp       =   "mhcomm_a.frx":3C84
  393.          PictureDown     =   "mhcomm_a.frx":3EB6
  394.          Autosize        =   -1  'True
  395.          Alignment       =   2
  396.          FontTransparent =   -1  'True
  397.          MultiLine       =   0   'False
  398.          StateButton     =   0   'False
  399.          Value           =   0   'False
  400.          FontStyle       =   0
  401.          BevelSize       =   2
  402.          BorderColor     =   -2147483642
  403.          BorderStyle     =   1
  404.          FillColor       =   -2147483633
  405.          LightColor      =   -2147483628
  406.          ShadowColor     =   -2147483632
  407.          TextColor       =   -2147483630
  408.          WallPaper       =   0
  409.          BevelStyle      =   1
  410.       End
  411.       Begin VB.Label lblComment 
  412.          Alignment       =   2  'Center
  413.          BackStyle       =   0  'Transparent
  414.          Caption         =   "lblComment(0)"
  415.          Height          =   1050
  416.          Index           =   1
  417.          Left            =   315
  418.          TabIndex        =   9
  419.          Top             =   1665
  420.          Width           =   4200
  421.       End
  422.    End
  423.    Begin VB.Frame frmStyles 
  424.       Caption         =   "frmStyles"
  425.       Height          =   1410
  426.       Left            =   5310
  427.       TabIndex        =   1
  428.       Top             =   1215
  429.       Width           =   2580
  430.       Begin VB.OptionButton optGroup 
  431.          Caption         =   "optGroup(2)"
  432.          Height          =   240
  433.          Index           =   2
  434.          Left            =   180
  435.          TabIndex        =   7
  436.          Top             =   990
  437.          Width           =   2220
  438.       End
  439.       Begin VB.OptionButton optGroup 
  440.          Caption         =   "optGroup(1)"
  441.          Height          =   240
  442.          Index           =   1
  443.          Left            =   180
  444.          TabIndex        =   6
  445.          Top             =   675
  446.          Width           =   2220
  447.       End
  448.       Begin VB.OptionButton optGroup 
  449.          Caption         =   "optGroup(0)"
  450.          Height          =   240
  451.          Index           =   0
  452.          Left            =   180
  453.          TabIndex        =   2
  454.          Top             =   360
  455.          Width           =   2220
  456.       End
  457.    End
  458.    Begin VB.Frame frmGroup 
  459.       Caption         =   "frmGroup(0)"
  460.       Height          =   2895
  461.       Index           =   2
  462.       Left            =   630
  463.       TabIndex        =   5
  464.       Top             =   900
  465.       Width           =   4830
  466.       Begin Mhcm200Lib.MhCommand cmdBevel 
  467.          Height          =   465
  468.          Index           =   4
  469.          Left            =   900
  470.          TabIndex        =   28
  471.          Top             =   1035
  472.          Width           =   555
  473.          _Version        =   65536
  474.          _ExtentX        =   979
  475.          _ExtentY        =   820
  476.          _StockProps     =   79
  477.          Caption         =   "cmdBevel(4)"
  478.          PictureUp       =   "mhcomm_a.frx":40E8
  479.          PictureDown     =   "mhcomm_a.frx":4104
  480.          Autosize        =   -1  'True
  481.          Alignment       =   2
  482.          FontTransparent =   -1  'True
  483.          MultiLine       =   0   'False
  484.          StateButton     =   0   'False
  485.          Value           =   0   'False
  486.          FontStyle       =   0
  487.          BevelSize       =   2
  488.          BorderColor     =   -2147483642
  489.          BorderStyle     =   2
  490.          FillColor       =   -2147483633
  491.          LightColor      =   -2147483628
  492.          ShadowColor     =   -2147483632
  493.          TextColor       =   -2147483630
  494.          WallPaper       =   0
  495.          BevelStyle      =   1
  496.       End
  497.       Begin Mhcm200Lib.MhCommand cmdBevel 
  498.          Height          =   465
  499.          Index           =   3
  500.          Left            =   900
  501.          TabIndex        =   27
  502.          Top             =   540
  503.          Width           =   555
  504.          _Version        =   65536
  505.          _ExtentX        =   979
  506.          _ExtentY        =   820
  507.          _StockProps     =   79
  508.          Caption         =   "cmdBevel(3)"
  509.          PictureUp       =   "mhcomm_a.frx":4120
  510.          PictureDown     =   "mhcomm_a.frx":413C
  511.          Autosize        =   -1  'True
  512.          Alignment       =   2
  513.          FontTransparent =   -1  'True
  514.          MultiLine       =   0   'False
  515.          StateButton     =   0   'False
  516.          Value           =   0   'False
  517.          FontStyle       =   0
  518.          BevelSize       =   2
  519.          BorderColor     =   -2147483642
  520.          BorderStyle     =   2
  521.          FillColor       =   -2147483633
  522.          LightColor      =   -2147483628
  523.          ShadowColor     =   -2147483632
  524.          TextColor       =   -2147483630
  525.          WallPaper       =   0
  526.          BevelStyle      =   1
  527.       End
  528.       Begin Mhcm200Lib.MhCommand cmdFont 
  529.          Height          =   555
  530.          Index           =   0
  531.          Left            =   3420
  532.          TabIndex        =   26
  533.          Top             =   540
  534.          Width           =   1230
  535.          _Version        =   65536
  536.          _ExtentX        =   2170
  537.          _ExtentY        =   979
  538.          _StockProps     =   79
  539.          Caption         =   "cmdFont(0)"
  540.          PictureUp       =   "mhcomm_a.frx":4158
  541.          PictureDown     =   "mhcomm_a.frx":4174
  542.          Autosize        =   -1  'True
  543.          Alignment       =   2
  544.          FontTransparent =   -1  'True
  545.          MultiLine       =   0   'False
  546.          StateButton     =   0   'False
  547.          Value           =   0   'False
  548.          FontStyle       =   0
  549.          BevelSize       =   2
  550.          BorderColor     =   -2147483642
  551.          BorderStyle     =   2
  552.          FillColor       =   -2147483633
  553.          LightColor      =   -2147483628
  554.          ShadowColor     =   -2147483632
  555.          TextColor       =   -2147483630
  556.          WallPaper       =   0
  557.          BevelStyle      =   1
  558.       End
  559.       Begin Mhcm200Lib.MhCommand cmdFont 
  560.          Height          =   420
  561.          Index           =   1
  562.          Left            =   3420
  563.          TabIndex        =   25
  564.          Top             =   1125
  565.          Width           =   1230
  566.          _Version        =   65536
  567.          _ExtentX        =   2170
  568.          _ExtentY        =   741
  569.          _StockProps     =   79
  570.          Caption         =   "cmdFont(1)"
  571.          PictureUp       =   "mhcomm_a.frx":4190
  572.          PictureDown     =   "mhcomm_a.frx":41AC
  573.          Autosize        =   -1  'True
  574.          Alignment       =   2
  575.          FontTransparent =   -1  'True
  576.          MultiLine       =   0   'False
  577.          StateButton     =   0   'False
  578.          Value           =   0   'False
  579.          FontStyle       =   0
  580.          BevelSize       =   2
  581.          BorderColor     =   -2147483642
  582.          BorderStyle     =   2
  583.          FillColor       =   -2147483633
  584.          LightColor      =   -2147483628
  585.          ShadowColor     =   -2147483632
  586.          TextColor       =   -2147483630
  587.          WallPaper       =   0
  588.          BevelStyle      =   1
  589.       End
  590.       Begin Mhcm200Lib.MhCommand cmdFont 
  591.          Height          =   420
  592.          Index           =   2
  593.          Left            =   3420
  594.          TabIndex        =   24
  595.          Top             =   1575
  596.          Width           =   1230
  597.          _Version        =   65536
  598.          _ExtentX        =   2170
  599.          _ExtentY        =   741
  600.          _StockProps     =   79
  601.          Caption         =   "cmdFont(2)"
  602.          PictureUp       =   "mhcomm_a.frx":41C8
  603.          PictureDown     =   "mhcomm_a.frx":41E4
  604.          Autosize        =   -1  'True
  605.          Alignment       =   2
  606.          FontTransparent =   -1  'True
  607.          MultiLine       =   0   'False
  608.          StateButton     =   0   'False
  609.          Value           =   0   'False
  610.          FontStyle       =   0
  611.          BevelSize       =   2
  612.          BorderColor     =   -2147483642
  613.          BorderStyle     =   2
  614.          FillColor       =   -2147483633
  615.          LightColor      =   -2147483628
  616.          ShadowColor     =   -2147483632
  617.          TextColor       =   -2147483630
  618.          WallPaper       =   0
  619.          BevelStyle      =   1
  620.       End
  621.       Begin VB.Label lblFont 
  622.          Alignment       =   2  'Center
  623.          BackStyle       =   0  'Transparent
  624.          Caption         =   "lblFont"
  625.          Height          =   195
  626.          Left            =   3600
  627.          TabIndex        =   23
  628.          Top             =   270
  629.          Width           =   960
  630.       End
  631.       Begin Mhcm200Lib.MhCommand cmdBorder 
  632.          Height          =   465
  633.          Index           =   0
  634.          Left            =   1890
  635.          TabIndex        =   22
  636.          Top             =   540
  637.          Width           =   1140
  638.          _Version        =   65536
  639.          _ExtentX        =   2011
  640.          _ExtentY        =   820
  641.          _StockProps     =   79
  642.          Caption         =   "cmdBorder(0)"
  643.          PictureUp       =   "mhcomm_a.frx":4200
  644.          PictureDown     =   "mhcomm_a.frx":421C
  645.          Autosize        =   -1  'True
  646.          Alignment       =   2
  647.          FontTransparent =   -1  'True
  648.          MultiLine       =   0   'False
  649.          StateButton     =   0   'False
  650.          Value           =   0   'False
  651.          FontStyle       =   0
  652.          BevelSize       =   2
  653.          BorderColor     =   -2147483642
  654.          BorderStyle     =   2
  655.          FillColor       =   -2147483633
  656.          LightColor      =   -2147483628
  657.          ShadowColor     =   -2147483632
  658.          TextColor       =   -2147483630
  659.          WallPaper       =   0
  660.          BevelStyle      =   1
  661.       End
  662.       Begin Mhcm200Lib.MhCommand cmdBorder 
  663.          Height          =   465
  664.          Index           =   1
  665.          Left            =   1890
  666.          TabIndex        =   21
  667.          Top             =   1035
  668.          Width           =   1140
  669.          _Version        =   65536
  670.          _ExtentX        =   2011
  671.          _ExtentY        =   820
  672.          _StockProps     =   79
  673.          Caption         =   "cmdBorder(1)"
  674.          PictureUp       =   "mhcomm_a.frx":4238
  675.          PictureDown     =   "mhcomm_a.frx":4254
  676.          Autosize        =   -1  'True
  677.          Alignment       =   2
  678.          FontTransparent =   -1  'True
  679.          MultiLine       =   0   'False
  680.          StateButton     =   0   'False
  681.          Value           =   0   'False
  682.          FontStyle       =   0
  683.          BevelSize       =   2
  684.          BorderColor     =   -2147483642
  685.          BorderStyle     =   2
  686.          FillColor       =   -2147483633
  687.          LightColor      =   -2147483628
  688.          ShadowColor     =   -2147483632
  689.          TextColor       =   -2147483630
  690.          WallPaper       =   0
  691.          BevelStyle      =   1
  692.       End
  693.       Begin Mhcm200Lib.MhCommand cmdBorder 
  694.          Height          =   465
  695.          Index           =   2
  696.          Left            =   1890
  697.          TabIndex        =   20
  698.          Top             =   1530
  699.          Width           =   1140
  700.          _Version        =   65536
  701.          _ExtentX        =   2011
  702.          _ExtentY        =   820
  703.          _StockProps     =   79
  704.          Caption         =   "cmdBorder(2)"
  705.          PictureUp       =   "mhcomm_a.frx":4270
  706.          PictureDown     =   "mhcomm_a.frx":428C
  707.          Autosize        =   -1  'True
  708.          Alignment       =   2
  709.          FontTransparent =   -1  'True
  710.          MultiLine       =   0   'False
  711.          StateButton     =   0   'False
  712.          Value           =   0   'False
  713.          FontStyle       =   0
  714.          BevelSize       =   2
  715.          BorderColor     =   -2147483642
  716.          BorderStyle     =   2
  717.          FillColor       =   -2147483633
  718.          LightColor      =   -2147483628
  719.          ShadowColor     =   -2147483632
  720.          TextColor       =   -2147483630
  721.          WallPaper       =   0
  722.          BevelStyle      =   1
  723.       End
  724.       Begin VB.Label lblBorder 
  725.          Alignment       =   2  'Center
  726.          BackStyle       =   0  'Transparent
  727.          Caption         =   "lblBorder"
  728.          Height          =   195
  729.          Left            =   1800
  730.          TabIndex        =   19
  731.          Top             =   270
  732.          Width           =   1320
  733.       End
  734.       Begin VB.Label lblBevel 
  735.          Alignment       =   2  'Center
  736.          BackStyle       =   0  'Transparent
  737.          Caption         =   "lblBevel"
  738.          Height          =   195
  739.          Left            =   360
  740.          TabIndex        =   18
  741.          Top             =   270
  742.          Width           =   960
  743.       End
  744.       Begin Mhcm200Lib.MhCommand cmdBevel 
  745.          Height          =   465
  746.          Index           =   2
  747.          Left            =   585
  748.          TabIndex        =   17
  749.          Top             =   1530
  750.          Width           =   555
  751.          _Version        =   65536
  752.          _ExtentX        =   979
  753.          _ExtentY        =   820
  754.          _StockProps     =   79
  755.          Caption         =   "cmdBevel(2)"
  756.          PictureUp       =   "mhcomm_a.frx":42A8
  757.          PictureDown     =   "mhcomm_a.frx":42C4
  758.          Autosize        =   -1  'True
  759.          Alignment       =   2
  760.          FontTransparent =   -1  'True
  761.          MultiLine       =   0   'False
  762.          StateButton     =   0   'False
  763.          Value           =   0   'False
  764.          FontStyle       =   0
  765.          BevelSize       =   2
  766.          BorderColor     =   -2147483642
  767.          BorderStyle     =   2
  768.          FillColor       =   -2147483633
  769.          LightColor      =   -2147483628
  770.          ShadowColor     =   -2147483632
  771.          TextColor       =   -2147483630
  772.          WallPaper       =   0
  773.          BevelStyle      =   1
  774.       End
  775.       Begin Mhcm200Lib.MhCommand cmdBevel 
  776.          Height          =   465
  777.          Index           =   1
  778.          Left            =   270
  779.          TabIndex        =   16
  780.          Top             =   1035
  781.          Width           =   555
  782.          _Version        =   65536
  783.          _ExtentX        =   979
  784.          _ExtentY        =   820
  785.          _StockProps     =   79
  786.          Caption         =   "cmdBevel(1)"
  787.          PictureUp       =   "mhcomm_a.frx":42E0
  788.          PictureDown     =   "mhcomm_a.frx":42FC
  789.          Autosize        =   -1  'True
  790.          Alignment       =   2
  791.          FontTransparent =   -1  'True
  792.          MultiLine       =   0   'False
  793.          StateButton     =   0   'False
  794.          Value           =   0   'False
  795.          FontStyle       =   0
  796.          BevelSize       =   2
  797.          BorderColor     =   -2147483642
  798.          BorderStyle     =   2
  799.          FillColor       =   -2147483633
  800.          LightColor      =   -2147483628
  801.          ShadowColor     =   -2147483632
  802.          TextColor       =   -2147483630
  803.          WallPaper       =   0
  804.          BevelStyle      =   1
  805.       End
  806.       Begin Mhcm200Lib.MhCommand cmdBevel 
  807.          Height          =   465
  808.          Index           =   0
  809.          Left            =   270
  810.          TabIndex        =   15
  811.          Top             =   540
  812.          Width           =   555
  813.          _Version        =   65536
  814.          _ExtentX        =   979
  815.          _ExtentY        =   820
  816.          _StockProps     =   79
  817.          Caption         =   "cmdBevel(0)"
  818.          PictureUp       =   "mhcomm_a.frx":4318
  819.          PictureDown     =   "mhcomm_a.frx":4334
  820.          Autosize        =   -1  'True
  821.          Alignment       =   2
  822.          FontTransparent =   -1  'True
  823.          MultiLine       =   0   'False
  824.          StateButton     =   0   'False
  825.          Value           =   0   'False
  826.          FontStyle       =   0
  827.          BevelSize       =   2
  828.          BorderColor     =   -2147483642
  829.          BorderStyle     =   2
  830.          FillColor       =   -2147483633
  831.          LightColor      =   -2147483628
  832.          ShadowColor     =   -2147483632
  833.          TextColor       =   -2147483630
  834.          WallPaper       =   0
  835.          BevelStyle      =   1
  836.       End
  837.       Begin VB.Label lblComment 
  838.          Alignment       =   2  'Center
  839.          BackStyle       =   0  'Transparent
  840.          Caption         =   "lblComment(0)"
  841.          Height          =   645
  842.          Index           =   2
  843.          Left            =   270
  844.          TabIndex        =   10
  845.          Top             =   2115
  846.          Width           =   4200
  847.       End
  848.    End
  849.    Begin Mhcm200Lib.MhCommand cmdExit 
  850.       Height          =   510
  851.       Left            =   6570
  852.       TabIndex        =   39
  853.       Top             =   2700
  854.       Width           =   1320
  855.       _Version        =   65536
  856.       _ExtentX        =   2328
  857.       _ExtentY        =   900
  858.       _StockProps     =   79
  859.       Caption         =   "cmdExit"
  860.       PictureUp       =   "mhcomm_a.frx":4350
  861.       PictureDown     =   "mhcomm_a.frx":436C
  862.       Autosize        =   -1  'True
  863.       Alignment       =   2
  864.       FontTransparent =   -1  'True
  865.       MultiLine       =   0   'False
  866.       StateButton     =   0   'False
  867.       Value           =   0   'False
  868.       FontStyle       =   0
  869.       BevelSize       =   2
  870.       BorderColor     =   -2147483642
  871.       BorderStyle     =   2
  872.       FillColor       =   -2147483633
  873.       LightColor      =   -2147483628
  874.       ShadowColor     =   -2147483632
  875.       TextColor       =   -2147483630
  876.       WallPaper       =   0
  877.       BevelStyle      =   1
  878.    End
  879.    Begin VB.Label lblDescription 
  880.       Alignment       =   2  'Center
  881.       BackStyle       =   0  'Transparent
  882.       Caption         =   "lblDescription"
  883.       Height          =   1050
  884.       Left            =   5085
  885.       TabIndex        =   3
  886.       Top             =   135
  887.       Width           =   2895
  888.    End
  889. Attribute VB_Name = "fMain"
  890. Attribute VB_Creatable = False
  891. Attribute VB_Exposed = False
  892. Option Explicit
  893. Dim keyCR As String
  894. Private Sub cmdDialog_Click(Index As Integer)
  895. Dim sMsg As String
  896.     Select Case Index
  897.         ' OK.
  898.         Case 0
  899.             sMsg = "OK pressed."
  900.             sMsg = sMsg & keyCR & keyCR & "Remember to trap KeyAscii = 13 in the Form_KeyPress "
  901.             sMsg = sMsg & keyCR & "event if you want to simulate the .Default property "
  902.             sMsg = sMsg & keyCR & "for this button."
  903.         ' Cancel.
  904.         Case 1
  905.             sMsg = "Cancel pressed."
  906.             sMsg = sMsg & keyCR & keyCR & "Remember to trap KeyAscii = 27 in the Form_KeyPress "
  907.             sMsg = sMsg & keyCR & "event if you want to simulate the .Cancel property "
  908.             sMsg = sMsg & keyCR & "for this button."
  909.         ' Help.
  910.         Case 2
  911.             sMsg = "Help pressed."
  912.             sMsg = sMsg & keyCR & keyCR & "Remember to trap KeyCode = 112 in the Form_KeyDown "
  913.             sMsg = sMsg & keyCR & "event if you want to simulate context sensitive help."
  914.     End Select
  915.     ' Display info on button.
  916.     MsgBox sMsg, 0, frmGroup(0).Caption
  917. End Sub
  918. Private Sub cmdAlign_Click(Index As Integer)
  919. Dim iCount As Integer
  920. Static bBeenHere As Boolean
  921.     If bBeenHere Then Exit Sub
  922.     bBeenHere = True
  923.     For iCount = 0 To 2
  924.         cmdAlign(iCount).Value = (iCount = Index)
  925.     Next iCount
  926.     bBeenHere = False
  927. End Sub
  928. Private Sub cmdExit_Click()
  929.     Unload Me
  930. End Sub
  931. Private Sub cmdTool_Click(Index As Integer)
  932. Dim iCount As Integer
  933. Static bBeenHere As Boolean
  934.     If bBeenHere Then Exit Sub
  935.     bBeenHere = True
  936.     For iCount = 0 To 3
  937.         cmdTool(iCount).Value = (iCount = Index)
  938.     Next iCount
  939.     bBeenHere = False
  940. End Sub
  941. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  942.     ' We are only trapping for buttons on the
  943.     ' first frame (dialog buttons), so exit otherwise.
  944.     If Not optGroup(0).Value Then Exit Sub
  945.     ' F1 = Help button.
  946.     If KeyCode = 112 Then
  947.         MsgBox "Help pressed.", 0, frmGroup(0).Caption
  948.     End If
  949. End Sub
  950. Private Sub Form_KeyPress(KeyAscii As Integer)
  951.     ' We are only trapping for buttons on the
  952.     ' first frame (dialog buttons), so exit otherwise.
  953.     If Not optGroup(0).Value Then Exit Sub
  954.     Select Case KeyAscii
  955.         ' Enter = OK button.
  956.         Case 13
  957.             MsgBox "OK pressed.", 0, frmGroup(0).Caption
  958.             ' Get rid of beep.
  959.             KeyAscii = 0
  960.         ' ESC = Cancel button.
  961.         Case 27
  962.             MsgBox "Cancel pressed.", 0, frmGroup(0).Caption
  963.     End Select
  964. End Sub
  965. Private Sub Form_Load()
  966.     keyCR = Chr$(13) & Chr$(10)
  967.     ' Display captions for controls.
  968.     LoadCaptions
  969.     ' .KeyPreview is set to trap the dialog buttons
  970.     ' in the form's _KeyPress and _KeyDown events.
  971.     Me.KeyPreview = True
  972.     ' center form to screen
  973.     Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2
  974. End Sub
  975. Private Sub LoadCaptions()
  976. Dim sCaption As String
  977. Dim iCount As Integer
  978.     ' Form controls.
  979.     sCaption = "The MhCommand control adds several properties to the "
  980.     sCaption = sCaption & "standard Command button to allow you to add images, "
  981.     sCaption = sCaption & "create state buttons, or customize any of the graphical "
  982.     sCaption = sCaption & "aspects of the control."
  983.     lblDescription.Caption = sCaption
  984.     cmdExit.Caption = "E&xit"
  985.     ' Frames.
  986.     frmGroup(0).Caption = "Standard Dialog Buttons"
  987.     frmGroup(1).Caption = "State Buttons"
  988.     frmGroup(1).Move frmGroup(0).Left, frmGroup(0).Top
  989.     frmGroup(2).Caption = "Button Styles"
  990.     frmGroup(2).Move frmGroup(0).Left, frmGroup(0).Top
  991.     frmStyles.Caption = "Styles"
  992.     ' Option buttons.
  993.     optGroup(0).Caption = "Standard Dialog Buttons"
  994.     optGroup(1).Caption = "State Buttons"
  995.     optGroup(2).Caption = "Button Styles"
  996.     ' Comments within frames.
  997.     sCaption = "The MhCommand control can be used with supplied bitmaps "
  998.     sCaption = sCaption & "to give the appearance of standard dialog buttons.  "
  999.     lblComment(0).Caption = sCaption
  1000.     sCaption = "The MhCommand control can be configured to work as "
  1001.     sCaption = sCaption & "a state button.  These are set up in groups or "
  1002.     sCaption = sCaption & "toolbars in place of option buttons."
  1003.     lblComment(1).Caption = sCaption
  1004.     sCaption = "The .Bevel*, .Border*, and .Font* properties give you "
  1005.     sCaption = sCaption & "the ability to customize the MhCommand control "
  1006.     sCaption = sCaption & "to appear however you want (within reason)."
  1007.     lblComment(2).Caption = sCaption
  1008.     ' Configure all of the buttons.
  1009.     lblBevel.Caption = "Bevel Effects"
  1010.     cmdBevel(0).Caption = ""
  1011.     cmdBevel(1).Caption = ""
  1012.     cmdBevel(2).Caption = ""
  1013.     cmdBevel(3).Caption = ""
  1014.     cmdBevel(4).Caption = ""
  1015.     For iCount = 0 To 4
  1016.         cmdBevel(iCount).BevelStyle = iCount
  1017.     Next iCount
  1018.     lblBorder.Caption = "Border Effects"
  1019.     cmdBorder(0).Caption = "None"
  1020.     cmdBorder(1).Caption = "Single"
  1021.     cmdBorder(2).Caption = "Rounded"
  1022.     For iCount = 0 To 2
  1023.         cmdBorder(iCount).BorderStyle = iCount
  1024.     Next iCount
  1025.     lblFont.Caption = "Fonts"
  1026.     cmdFont(0).Caption = "Multiple Lines of Text"
  1027.     cmdFont(0).MultiLine = True
  1028.     cmdFont(1).Caption = "Raised"
  1029.     cmdFont(1).FontStyle = 1
  1030.     cmdFont(2).Caption = "Lowered"
  1031.     cmdFont(2).FontStyle = 3
  1032.     ' Labels on frame 1.
  1033.     lblAlign.Caption = "Button Bar Buttons"
  1034.     lblTool.Caption = "Tool Bar Buttons"
  1035. End Sub
  1036. Private Sub optGroup_Click(Index As Integer)
  1037. Dim iCount As Integer
  1038.     For iCount = 0 To 2
  1039.         frmGroup(iCount).Visible = (iCount = Index)
  1040.     Next iCount
  1041. End Sub
  1042.