home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhtab / test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-29  |  39.9 KB  |  1,136 lines
  1. VERSION 4.00
  2. Begin VB.Form fMain 
  3.    Caption         =   "MicroHelp VBTools 5 - MhTab Example"
  4.    ClientHeight    =   4572
  5.    ClientLeft      =   1200
  6.    ClientTop       =   2076
  7.    ClientWidth     =   9132
  8.    Height          =   4944
  9.    Left            =   1152
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4572
  12.    ScaleWidth      =   9132
  13.    Top             =   1752
  14.    Width           =   9228
  15.    Begin MhtabLib.MhTab MhTab1 
  16.       FillColor       =   &H8000000F&
  17.       Height          =   4284
  18.       Left            =   132
  19.       ScaleHeight     =   4236
  20.       ScaleWidth      =   7164
  21.       TabIndex        =   0
  22.       Top             =   144
  23.       Width           =   7212
  24.       Begin MhtabLib.MhTab MhTab4 
  25.          Height          =   1320
  26.          Left            =   -9828
  27.          TabIndex        =   19
  28.          Top             =   852
  29.          Width           =   3792
  30.          _Version        =   65536
  31.          _ExtentX        =   6694
  32.          _ExtentY        =   2328
  33.          _StockProps     =   69
  34.          TintColor       =   16711935
  35.          BevelSize       =   1
  36.          TabOffset       =   12
  37.          BorderStyle     =   1
  38.          BevelStyle      =   1
  39.          PictureVAlignment=   2
  40.          TabBorderStyle  =   3
  41.          PageBevelSize0  =   1
  42.          PageBevelStyle0 =   1
  43.          PageBorderStyle0=   1
  44.          TabBevelSize0   =   1
  45.          TabBevelStyle0  =   1
  46.          TabAlignment0   =   3
  47.          TabVAlignment0  =   3
  48.          PageBevelSize1  =   1
  49.          PageBevelStyle1 =   1
  50.          PageBorderStyle1=   1
  51.          TabBevelSize1   =   1
  52.          TabBevelStyle1  =   1
  53.          TabAlignment1   =   3
  54.          TabVAlignment1  =   3
  55.          PageBevelSize2  =   1
  56.          PageBevelStyle2 =   1
  57.          PageBorderStyle2=   1
  58.          TabBevelSize2   =   1
  59.          TabBevelStyle2  =   1
  60.          TabAlignment2   =   3
  61.          TabVAlignment2  =   3
  62.          PageBevelSize3  =   1
  63.          PageBevelStyle3 =   1
  64.          PageBorderStyle3=   1
  65.          TabBevelSize3   =   1
  66.          TabBevelStyle3  =   1
  67.          TabAlignment3   =   3
  68.          TabVAlignment3  =   3
  69.          PageBevelSize4  =   1
  70.          PageBevelStyle4 =   1
  71.          PageBorderStyle4=   1
  72.          TabBevelSize4   =   1
  73.          TabBevelStyle4  =   1
  74.          TabAlignment4   =   3
  75.          TabVAlignment4  =   3
  76.          PageBevelSize5  =   1
  77.          PageBevelStyle5 =   1
  78.          PageBorderStyle5=   1
  79.          TabBevelSize5   =   1
  80.          TabBevelStyle5  =   1
  81.          TabAlignment5   =   3
  82.          TabVAlignment5  =   3
  83.          PageBevelSize6  =   1
  84.          PageBevelStyle6 =   1
  85.          PageBorderStyle6=   1
  86.          TabBevelSize6   =   1
  87.          TabBevelStyle6  =   1
  88.          TabAlignment6   =   3
  89.          TabVAlignment6  =   3
  90.          PageBevelSize7  =   1
  91.          PageBevelStyle7 =   1
  92.          PageBorderStyle7=   1
  93.          TabBevelSize7   =   1
  94.          TabBevelStyle7  =   1
  95.          TabAlignment7   =   3
  96.          TabVAlignment7  =   3
  97.          PageBevelSize8  =   1
  98.          PageBevelStyle8 =   1
  99.          PageBorderStyle8=   1
  100.          TabBevelSize8   =   1
  101.          TabBevelStyle8  =   1
  102.          TabAlignment8   =   3
  103.          TabVAlignment8  =   3
  104.          PageBevelSize9  =   1
  105.          PageBevelStyle9 =   1
  106.          PageBorderStyle9=   1
  107.          TabBevelSize9   =   1
  108.          TabBevelStyle9  =   1
  109.          TabAlignment9   =   3
  110.          TabVAlignment9  =   3
  111.          TabPicture0     =   "test.frx":0000
  112.          TabPicture1     =   "test.frx":001C
  113.          TabPicture2     =   "test.frx":0038
  114.          TabPicture3     =   "test.frx":0054
  115.          TabPicture4     =   "test.frx":0070
  116.          TabPicture5     =   "test.frx":008C
  117.          TabPicture6     =   "test.frx":00A8
  118.          TabPicture7     =   "test.frx":00C4
  119.          TabPicture8     =   "test.frx":00E0
  120.          TabPicture9     =   "test.frx":00FC
  121.          PagePicture0    =   "test.frx":0118
  122.          PagePicture1    =   "test.frx":0134
  123.          PagePicture2    =   "test.frx":0150
  124.          PagePicture3    =   "test.frx":016C
  125.          PagePicture4    =   "test.frx":0188
  126.          PagePicture5    =   "test.frx":01A4
  127.          PagePicture6    =   "test.frx":01C0
  128.          PagePicture7    =   "test.frx":01DC
  129.          PagePicture8    =   "test.frx":01F8
  130.          PagePicture9    =   "test.frx":0214
  131.          Xoffset         =   0
  132.          Yoffset         =   0
  133.          AssociateChildren=   -1  'True
  134.          TabEnabled0     =   -1  'True
  135.          TabFontTransparent0=   -1  'True
  136.          TabVisible0     =   -1  'True
  137.          TabCaption0     =   "Tab 0"
  138.          TabEnabled1     =   -1  'True
  139.          TabFontTransparent1=   -1  'True
  140.          TabVisible1     =   -1  'True
  141.          TabCaption1     =   "Tab 1"
  142.          TabEnabled2     =   -1  'True
  143.          TabFontTransparent2=   -1  'True
  144.          TabVisible2     =   -1  'True
  145.          TabCaption2     =   "Tab 2"
  146.          TabEnabled3     =   -1  'True
  147.          TabFontTransparent3=   -1  'True
  148.          TabVisible3     =   -1  'True
  149.          TabCaption3     =   "Tab 3"
  150.          TabEnabled4     =   -1  'True
  151.          TabFontTransparent4=   -1  'True
  152.          TabVisible4     =   -1  'True
  153.          TabCaption4     =   "Tab 4"
  154.          TabEnabled5     =   -1  'True
  155.          TabFontTransparent5=   -1  'True
  156.          TabVisible5     =   -1  'True
  157.          TabCaption5     =   "Tab 5"
  158.          TabEnabled6     =   -1  'True
  159.          TabFontTransparent6=   -1  'True
  160.          TabVisible6     =   -1  'True
  161.          TabCaption6     =   "Tab 6"
  162.          TabEnabled7     =   -1  'True
  163.          TabFontTransparent7=   -1  'True
  164.          TabVisible7     =   -1  'True
  165.          TabCaption7     =   "Tab 7"
  166.          TabEnabled8     =   -1  'True
  167.          TabFontTransparent8=   -1  'True
  168.          TabVisible8     =   -1  'True
  169.          TabCaption8     =   "Tab 8"
  170.          TabEnabled9     =   -1  'True
  171.          TabFontTransparent9=   -1  'True
  172.          TabVisible9     =   -1  'True
  173.          TabCaption9     =   "Tab 9"
  174.          BorderColor     =   -2147483642
  175.          FillColor       =   -2147483633
  176.          LightColor      =   -2147483628
  177.          ShadowColor     =   -2147483632
  178.          TextColor       =   -2147483630
  179.          TransparentColor=   -2147483633
  180.       End
  181.       Begin MhtabLib.MhTab MhTab2 
  182.          Height          =   1860
  183.          Left            =   1188
  184.          TabIndex        =   1
  185.          Top             =   1800
  186.          Width           =   2220
  187.          _Version        =   65536
  188.          _ExtentX        =   3916
  189.          _ExtentY        =   3281
  190.          _StockProps     =   69
  191.          TintColor       =   16711935
  192.          BevelSize       =   1
  193.          TabOffset       =   12
  194.          BorderStyle     =   1
  195.          BevelStyle      =   1
  196.          PictureVAlignment=   2
  197.          TabBorderStyle  =   3
  198.          PageBevelSize0  =   1
  199.          PageBevelStyle0 =   1
  200.          PageBorderStyle0=   1
  201.          TabBevelSize0   =   1
  202.          TabBevelStyle0  =   1
  203.          TabAlignment0   =   3
  204.          TabVAlignment0  =   3
  205.          PageBevelSize1  =   1
  206.          PageBevelStyle1 =   1
  207.          PageBorderStyle1=   1
  208.          TabBevelSize1   =   1
  209.          TabBevelStyle1  =   1
  210.          TabAlignment1   =   3
  211.          TabVAlignment1  =   3
  212.          PageBevelSize2  =   1
  213.          PageBevelStyle2 =   1
  214.          PageBorderStyle2=   1
  215.          TabBevelSize2   =   1
  216.          TabBevelStyle2  =   1
  217.          TabAlignment2   =   3
  218.          TabVAlignment2  =   3
  219.          PageBevelSize3  =   1
  220.          PageBevelStyle3 =   1
  221.          PageBorderStyle3=   1
  222.          TabBevelSize3   =   1
  223.          TabBevelStyle3  =   1
  224.          TabAlignment3   =   3
  225.          TabVAlignment3  =   3
  226.          PageBevelSize4  =   1
  227.          PageBevelStyle4 =   1
  228.          PageBorderStyle4=   1
  229.          TabBevelSize4   =   1
  230.          TabBevelStyle4  =   1
  231.          TabAlignment4   =   3
  232.          TabVAlignment4  =   3
  233.          PageBevelSize5  =   1
  234.          PageBevelStyle5 =   1
  235.          PageBorderStyle5=   1
  236.          TabBevelSize5   =   1
  237.          TabBevelStyle5  =   1
  238.          TabAlignment5   =   3
  239.          TabVAlignment5  =   3
  240.          PageBevelSize6  =   1
  241.          PageBevelStyle6 =   1
  242.          PageBorderStyle6=   1
  243.          TabBevelSize6   =   1
  244.          TabBevelStyle6  =   1
  245.          TabAlignment6   =   3
  246.          TabVAlignment6  =   3
  247.          PageBevelSize7  =   1
  248.          PageBevelStyle7 =   1
  249.          PageBorderStyle7=   1
  250.          TabBevelSize7   =   1
  251.          TabBevelStyle7  =   1
  252.          TabAlignment7   =   3
  253.          TabVAlignment7  =   3
  254.          PageBevelSize8  =   1
  255.          PageBevelStyle8 =   1
  256.          PageBorderStyle8=   1
  257.          TabBevelSize8   =   1
  258.          TabBevelStyle8  =   1
  259.          TabAlignment8   =   3
  260.          TabVAlignment8  =   3
  261.          PageBevelSize9  =   1
  262.          PageBevelStyle9 =   1
  263.          PageBorderStyle9=   1
  264.          TabBevelSize9   =   1
  265.          TabBevelStyle9  =   1
  266.          TabAlignment9   =   3
  267.          TabVAlignment9  =   3
  268.          TabPicture0     =   "test.frx":0230
  269.          TabPicture1     =   "test.frx":024C
  270.          TabPicture2     =   "test.frx":0268
  271.          TabPicture3     =   "test.frx":0284
  272.          TabPicture4     =   "test.frx":02A0
  273.          TabPicture5     =   "test.frx":02BC
  274.          TabPicture6     =   "test.frx":02D8
  275.          TabPicture7     =   "test.frx":02F4
  276.          TabPicture8     =   "test.frx":0310
  277.          TabPicture9     =   "test.frx":032C
  278.          PagePicture0    =   "test.frx":0348
  279.          PagePicture1    =   "test.frx":0364
  280.          PagePicture2    =   "test.frx":0380
  281.          PagePicture3    =   "test.frx":039C
  282.          PagePicture4    =   "test.frx":03B8
  283.          PagePicture5    =   "test.frx":03D4
  284.          PagePicture6    =   "test.frx":03F0
  285.          PagePicture7    =   "test.frx":040C
  286.          PagePicture8    =   "test.frx":0428
  287.          PagePicture9    =   "test.frx":0444
  288.          Xoffset         =   0
  289.          Yoffset         =   587
  290.          AssociateChildren=   -1  'True
  291.          TabEnabled0     =   -1  'True
  292.          TabFontTransparent0=   -1  'True
  293.          TabVisible0     =   -1  'True
  294.          TabCaption0     =   "Tab 0"
  295.          TabEnabled1     =   -1  'True
  296.          TabFontTransparent1=   -1  'True
  297.          TabVisible1     =   -1  'True
  298.          TabCaption1     =   "Tab 1"
  299.          TabEnabled2     =   -1  'True
  300.          TabFontTransparent2=   -1  'True
  301.          TabVisible2     =   -1  'True
  302.          TabCaption2     =   "Tab 2"
  303.          TabEnabled3     =   -1  'True
  304.          TabFontTransparent3=   -1  'True
  305.          TabVisible3     =   -1  'True
  306.          TabCaption3     =   "Tab 3"
  307.          TabEnabled4     =   -1  'True
  308.          TabFontTransparent4=   -1  'True
  309.          TabVisible4     =   -1  'True
  310.          TabCaption4     =   "Tab 4"
  311.          TabEnabled5     =   -1  'True
  312.          TabFontTransparent5=   -1  'True
  313.          TabVisible5     =   -1  'True
  314.          TabCaption5     =   "Tab 5"
  315.          TabEnabled6     =   -1  'True
  316.          TabFontTransparent6=   -1  'True
  317.          TabVisible6     =   -1  'True
  318.          TabCaption6     =   "Tab 6"
  319.          TabEnabled7     =   -1  'True
  320.          TabFontTransparent7=   -1  'True
  321.          TabVisible7     =   -1  'True
  322.          TabCaption7     =   "Tab 7"
  323.          TabEnabled8     =   -1  'True
  324.          TabFontTransparent8=   -1  'True
  325.          TabVisible8     =   -1  'True
  326.          TabCaption8     =   "Tab 8"
  327.          TabEnabled9     =   -1  'True
  328.          TabFontTransparent9=   -1  'True
  329.          TabVisible9     =   -1  'True
  330.          TabCaption9     =   "Tab 9"
  331.          BorderColor     =   -2147483642
  332.          FillColor       =   -2147483633
  333.          LightColor      =   -2147483628
  334.          ShadowColor     =   -2147483632
  335.          TextColor       =   -2147483630
  336.          TransparentColor=   -2147483633
  337.       End
  338.       Begin MhtabLib.MhTab MhTab3 
  339.          Height          =   2892
  340.          Left            =   -7668
  341.          TabIndex        =   14
  342.          Top             =   1080
  343.          Width           =   468
  344.          _Version        =   65536
  345.          _ExtentX        =   820
  346.          _ExtentY        =   5106
  347.          _StockProps     =   69
  348.          TintColor       =   16711935
  349.          BevelSize       =   1
  350.          TabOffset       =   12
  351.          BorderStyle     =   1
  352.          BevelStyle      =   1
  353.          PictureVAlignment=   2
  354.          TabBorderStyle  =   3
  355.          PageBevelSize0  =   1
  356.          PageBevelStyle0 =   1
  357.          PageBorderStyle0=   1
  358.          TabBevelSize0   =   1
  359.          TabBevelStyle0  =   1
  360.          TabAlignment0   =   3
  361.          TabVAlignment0  =   3
  362.          PageBevelSize1  =   1
  363.          PageBevelStyle1 =   1
  364.          PageBorderStyle1=   1
  365.          TabBevelSize1   =   1
  366.          TabBevelStyle1  =   1
  367.          TabAlignment1   =   3
  368.          TabVAlignment1  =   3
  369.          PageBevelSize2  =   1
  370.          PageBevelStyle2 =   1
  371.          PageBorderStyle2=   1
  372.          TabBevelSize2   =   1
  373.          TabBevelStyle2  =   1
  374.          TabAlignment2   =   3
  375.          TabVAlignment2  =   3
  376.          PageBevelSize3  =   1
  377.          PageBevelStyle3 =   1
  378.          PageBorderStyle3=   1
  379.          TabBevelSize3   =   1
  380.          TabBevelStyle3  =   1
  381.          TabAlignment3   =   3
  382.          TabVAlignment3  =   3
  383.          PageBevelSize4  =   1
  384.          PageBevelStyle4 =   1
  385.          PageBorderStyle4=   1
  386.          TabBevelSize4   =   1
  387.          TabBevelStyle4  =   1
  388.          TabAlignment4   =   3
  389.          TabVAlignment4  =   3
  390.          PageBevelSize5  =   1
  391.          PageBevelStyle5 =   1
  392.          PageBorderStyle5=   1
  393.          TabBevelSize5   =   1
  394.          TabBevelStyle5  =   1
  395.          TabAlignment5   =   3
  396.          TabVAlignment5  =   3
  397.          PageBevelSize6  =   1
  398.          PageBevelStyle6 =   1
  399.          PageBorderStyle6=   1
  400.          TabBevelSize6   =   1
  401.          TabBevelStyle6  =   1
  402.          TabAlignment6   =   3
  403.          TabVAlignment6  =   3
  404.          PageBevelSize7  =   1
  405.          PageBevelStyle7 =   1
  406.          PageBorderStyle7=   1
  407.          TabBevelSize7   =   1
  408.          TabBevelStyle7  =   1
  409.          TabAlignment7   =   3
  410.          TabVAlignment7  =   3
  411.          PageBevelSize8  =   1
  412.          PageBevelStyle8 =   1
  413.          PageBorderStyle8=   1
  414.          TabBevelSize8   =   1
  415.          TabBevelStyle8  =   1
  416.          TabAlignment8   =   3
  417.          TabVAlignment8  =   3
  418.          PageBevelSize9  =   1
  419.          PageBevelStyle9 =   1
  420.          PageBorderStyle9=   1
  421.          TabBevelSize9   =   1
  422.          TabBevelStyle9  =   1
  423.          TabAlignment9   =   3
  424.          TabVAlignment9  =   3
  425.          TabPicture0     =   "test.frx":0460
  426.          TabPicture1     =   "test.frx":047C
  427.          TabPicture2     =   "test.frx":0498
  428.          TabPicture3     =   "test.frx":04B4
  429.          TabPicture4     =   "test.frx":04D0
  430.          TabPicture5     =   "test.frx":04EC
  431.          TabPicture6     =   "test.frx":0508
  432.          TabPicture7     =   "test.frx":0524
  433.          TabPicture8     =   "test.frx":0540
  434.          TabPicture9     =   "test.frx":055C
  435.          PagePicture0    =   "test.frx":0578
  436.          PagePicture1    =   "test.frx":0594
  437.          PagePicture2    =   "test.frx":05B0
  438.          PagePicture3    =   "test.frx":05CC
  439.          PagePicture4    =   "test.frx":05E8
  440.          PagePicture5    =   "test.frx":0604
  441.          PagePicture6    =   "test.frx":0620
  442.          PagePicture7    =   "test.frx":063C
  443.          PagePicture8    =   "test.frx":0658
  444.          PagePicture9    =   "test.frx":0674
  445.          Xoffset         =   0
  446.          Yoffset         =   0
  447.          TabEnabled0     =   -1  'True
  448.          TabFontTransparent0=   -1  'True
  449.          TabVisible0     =   -1  'True
  450.          TabCaption0     =   "Tab 0"
  451.          TabEnabled1     =   -1  'True
  452.          TabFontTransparent1=   -1  'True
  453.          TabVisible1     =   -1  'True
  454.          TabCaption1     =   "Tab 1"
  455.          TabEnabled2     =   -1  'True
  456.          TabFontTransparent2=   -1  'True
  457.          TabVisible2     =   -1  'True
  458.          TabCaption2     =   "Tab 2"
  459.          TabEnabled3     =   -1  'True
  460.          TabFontTransparent3=   -1  'True
  461.          TabVisible3     =   -1  'True
  462.          TabCaption3     =   "Tab 3"
  463.          TabEnabled4     =   -1  'True
  464.          TabFontTransparent4=   -1  'True
  465.          TabVisible4     =   -1  'True
  466.          TabCaption4     =   "Tab 4"
  467.          TabEnabled5     =   -1  'True
  468.          TabFontTransparent5=   -1  'True
  469.          TabVisible5     =   -1  'True
  470.          TabCaption5     =   "Tab 5"
  471.          TabEnabled6     =   -1  'True
  472.          TabFontTransparent6=   -1  'True
  473.          TabVisible6     =   -1  'True
  474.          TabCaption6     =   "Tab 6"
  475.          TabEnabled7     =   -1  'True
  476.          TabFontTransparent7=   -1  'True
  477.          TabVisible7     =   -1  'True
  478.          TabCaption7     =   "Tab 7"
  479.          TabEnabled8     =   -1  'True
  480.          TabFontTransparent8=   -1  'True
  481.          TabVisible8     =   -1  'True
  482.          TabCaption8     =   "Tab 8"
  483.          TabEnabled9     =   -1  'True
  484.          TabFontTransparent9=   -1  'True
  485.          TabVisible9     =   -1  'True
  486.          TabCaption9     =   "Tab 9"
  487.          BorderColor     =   -2147483642
  488.          FillColor       =   -2147483633
  489.          LightColor      =   -2147483628
  490.          ShadowColor     =   -2147483632
  491.          TextColor       =   -2147483630
  492.          TransparentColor=   -2147483633
  493.       End
  494.       Begin MhtabLib.MhTab MhTab5 
  495.          Height          =   1596
  496.          Left            =   -9828
  497.          TabIndex        =   24
  498.          Top             =   2436
  499.          Width           =   3792
  500.          _Version        =   65536
  501.          _ExtentX        =   6694
  502.          _ExtentY        =   2805
  503.          _StockProps     =   69
  504.          TintColor       =   16711935
  505.          BevelSize       =   1
  506.          TabOffset       =   12
  507.          BorderStyle     =   1
  508.          BevelStyle      =   1
  509.          PictureVAlignment=   2
  510.          TabBorderStyle  =   3
  511.          PageBevelSize0  =   1
  512.          PageBevelStyle0 =   1
  513.          PageBorderStyle0=   1
  514.          TabBevelSize0   =   1
  515.          TabBevelStyle0  =   1
  516.          TabAlignment0   =   3
  517.          TabVAlignment0  =   3
  518.          PageBevelSize1  =   1
  519.          PageBevelStyle1 =   1
  520.          PageBorderStyle1=   1
  521.          TabBevelSize1   =   1
  522.          TabBevelStyle1  =   1
  523.          TabAlignment1   =   3
  524.          TabVAlignment1  =   3
  525.          PageBevelSize2  =   1
  526.          PageBevelStyle2 =   1
  527.          PageBorderStyle2=   1
  528.          TabBevelSize2   =   1
  529.          TabBevelStyle2  =   1
  530.          TabAlignment2   =   3
  531.          TabVAlignment2  =   3
  532.          PageBevelSize3  =   1
  533.          PageBevelStyle3 =   1
  534.          PageBorderStyle3=   1
  535.          TabBevelSize3   =   1
  536.          TabBevelStyle3  =   1
  537.          TabAlignment3   =   3
  538.          TabVAlignment3  =   3
  539.          PageBevelSize4  =   1
  540.          PageBevelStyle4 =   1
  541.          PageBorderStyle4=   1
  542.          TabBevelSize4   =   1
  543.          TabBevelStyle4  =   1
  544.          TabAlignment4   =   3
  545.          TabVAlignment4  =   3
  546.          PageBevelSize5  =   1
  547.          PageBevelStyle5 =   1
  548.          PageBorderStyle5=   1
  549.          TabBevelSize5   =   1
  550.          TabBevelStyle5  =   1
  551.          TabAlignment5   =   3
  552.          TabVAlignment5  =   3
  553.          PageBevelSize6  =   1
  554.          PageBevelStyle6 =   1
  555.          PageBorderStyle6=   1
  556.          TabBevelSize6   =   1
  557.          TabBevelStyle6  =   1
  558.          TabAlignment6   =   3
  559.          TabVAlignment6  =   3
  560.          PageBevelSize7  =   1
  561.          PageBevelStyle7 =   1
  562.          PageBorderStyle7=   1
  563.          TabBevelSize7   =   1
  564.          TabBevelStyle7  =   1
  565.          TabAlignment7   =   3
  566.          TabVAlignment7  =   3
  567.          PageBevelSize8  =   1
  568.          PageBevelStyle8 =   1
  569.          PageBorderStyle8=   1
  570.          TabBevelSize8   =   1
  571.          TabBevelStyle8  =   1
  572.          TabAlignment8   =   3
  573.          TabVAlignment8  =   3
  574.          PageBevelSize9  =   1
  575.          PageBevelStyle9 =   1
  576.          PageBorderStyle9=   1
  577.          TabBevelSize9   =   1
  578.          TabBevelStyle9  =   1
  579.          TabAlignment9   =   3
  580.          TabVAlignment9  =   3
  581.          TabPicture0     =   "test.frx":0690
  582.          TabPicture1     =   "test.frx":06AC
  583.          TabPicture2     =   "test.frx":06C8
  584.          TabPicture3     =   "test.frx":06E4
  585.          TabPicture4     =   "test.frx":0700
  586.          TabPicture5     =   "test.frx":071C
  587.          TabPicture6     =   "test.frx":0738
  588.          TabPicture7     =   "test.frx":0754
  589.          TabPicture8     =   "test.frx":0770
  590.          TabPicture9     =   "test.frx":078C
  591.          PagePicture0    =   "test.frx":07A8
  592.          PagePicture1    =   "test.frx":07C4
  593.          PagePicture2    =   "test.frx":07E0
  594.          PagePicture3    =   "test.frx":07FC
  595.          PagePicture4    =   "test.frx":0818
  596.          PagePicture5    =   "test.frx":0834
  597.          PagePicture6    =   "test.frx":0850
  598.          PagePicture7    =   "test.frx":086C
  599.          PagePicture8    =   "test.frx":0888
  600.          PagePicture9    =   "test.frx":08A4
  601.          Xoffset         =   0
  602.          Yoffset         =   0
  603.          AssociateChildren=   -1  'True
  604.          TabEnabled0     =   -1  'True
  605.          TabFontTransparent0=   -1  'True
  606.          TabVisible0     =   -1  'True
  607.          TabCaption0     =   "Tab 0"
  608.          TabEnabled1     =   -1  'True
  609.          TabFontTransparent1=   -1  'True
  610.          TabVisible1     =   -1  'True
  611.          TabCaption1     =   "Tab 1"
  612.          TabEnabled2     =   -1  'True
  613.          TabFontTransparent2=   -1  'True
  614.          TabVisible2     =   -1  'True
  615.          TabCaption2     =   "Tab 2"
  616.          TabEnabled3     =   -1  'True
  617.          TabFontTransparent3=   -1  'True
  618.          TabVisible3     =   -1  'True
  619.          TabCaption3     =   "Tab 3"
  620.          TabEnabled4     =   -1  'True
  621.          TabFontTransparent4=   -1  'True
  622.          TabVisible4     =   -1  'True
  623.          TabCaption4     =   "Tab 4"
  624.          TabEnabled5     =   -1  'True
  625.          TabFontTransparent5=   -1  'True
  626.          TabVisible5     =   -1  'True
  627.          TabCaption5     =   "Tab 5"
  628.          TabEnabled6     =   -1  'True
  629.          TabFontTransparent6=   -1  'True
  630.          TabVisible6     =   -1  'True
  631.          TabCaption6     =   "Tab 6"
  632.          TabEnabled7     =   -1  'True
  633.          TabFontTransparent7=   -1  'True
  634.          TabVisible7     =   -1  'True
  635.          TabCaption7     =   "Tab 7"
  636.          TabEnabled8     =   -1  'True
  637.          TabFontTransparent8=   -1  'True
  638.          TabVisible8     =   -1  'True
  639.          TabCaption8     =   "Tab 8"
  640.          TabEnabled9     =   -1  'True
  641.          TabFontTransparent9=   -1  'True
  642.          TabVisible9     =   -1  'True
  643.          TabCaption9     =   "Tab 9"
  644.          BorderColor     =   -2147483642
  645.          FillColor       =   -2147483633
  646.          LightColor      =   -2147483628
  647.          ShadowColor     =   -2147483632
  648.          TextColor       =   -2147483630
  649.          TransparentColor=   -2147483633
  650.       End
  651.       Begin VB.ComboBox cboFontStyle 
  652.          Height          =   315
  653.          Left            =   -4915
  654.          Style           =   2  'Dropdown List
  655.          TabIndex        =   27
  656.          Top             =   3330
  657.          Width           =   1905
  658.       End
  659.       Begin VB.PictureBox picTab4 
  660.          Height          =   645
  661.          Index           =   2
  662.          Left            =   -6670
  663.          Picture         =   "test.frx":08C0
  664.          ScaleHeight     =   600
  665.          ScaleWidth      =   600
  666.          TabIndex        =   23
  667.          TabStop         =   0   'False
  668.          Top             =   1665
  669.          Visible         =   0   'False
  670.          Width           =   645
  671.       End
  672.       Begin VB.PictureBox picTab4 
  673.          Height          =   645
  674.          Index           =   1
  675.          Left            =   -7390
  676.          Picture         =   "test.frx":0D02
  677.          ScaleHeight     =   600
  678.          ScaleWidth      =   600
  679.          TabIndex        =   22
  680.          TabStop         =   0   'False
  681.          Top             =   1665
  682.          Visible         =   0   'False
  683.          Width           =   645
  684.       End
  685.       Begin VB.PictureBox picTab4 
  686.          Height          =   645
  687.          Index           =   0
  688.          Left            =   -8110
  689.          Picture         =   "test.frx":1144
  690.          ScaleHeight     =   600
  691.          ScaleWidth      =   600
  692.          TabIndex        =   21
  693.          TabStop         =   0   'False
  694.          Top             =   1665
  695.          Visible         =   0   'False
  696.          Width           =   645
  697.       End
  698.       Begin VB.CheckBox chkRestricted 
  699.          Caption         =   "chkRestricted"
  700.          Height          =   195
  701.          Left            =   -4960
  702.          TabIndex        =   17
  703.          Top             =   2295
  704.          Width           =   1860
  705.       End
  706.       Begin VB.ListBox lstTab3 
  707.          Height          =   2352
  708.          Left            =   -7030
  709.          TabIndex        =   15
  710.          Top             =   1125
  711.          Width           =   1908
  712.       End
  713.       Begin VB.ListBox lstTabBorderStyle 
  714.          Height          =   816
  715.          Left            =   4770
  716.          TabIndex        =   7
  717.          Top             =   1215
  718.          Width           =   1812
  719.       End
  720.       Begin VB.OptionButton optTabPosition 
  721.          Caption         =   "optTabPosition(0)"
  722.          Height          =   285
  723.          Index           =   3
  724.          Left            =   180
  725.          TabIndex        =   3
  726.          Top             =   2700
  727.          Width           =   870
  728.       End
  729.       Begin VB.OptionButton optTabPosition 
  730.          Caption         =   "optTabPosition(0)"
  731.          Height          =   288
  732.          Index           =   2
  733.          Left            =   3600
  734.          TabIndex        =   4
  735.          Top             =   2700
  736.          Width           =   768
  737.       End
  738.       Begin VB.OptionButton optTabPosition 
  739.          Caption         =   "optTabPosition(0)"
  740.          Height          =   285
  741.          Index           =   1
  742.          Left            =   1728
  743.          TabIndex        =   5
  744.          Top             =   3780
  745.          Width           =   870
  746.       End
  747.       Begin VB.OptionButton optTabPosition 
  748.          Caption         =   "optTabPosition(0)"
  749.          Height          =   285
  750.          Index           =   0
  751.          Left            =   1728
  752.          TabIndex        =   2
  753.          Top             =   1392
  754.          Width           =   870
  755.       End
  756.       Begin VB.Label lblTabPosition 
  757.          BackStyle       =   0  'Transparent
  758.          Caption         =   "lblTabPosition"
  759.          Height          =   735
  760.          Left            =   225
  761.          TabIndex        =   31
  762.          Top             =   540
  763.          Width           =   2850
  764.       End
  765.       Begin VB.Label lblTopSecret 
  766.          BackStyle       =   0  'Transparent
  767.          Caption         =   "lblTopSecret"
  768.          Height          =   240
  769.          Left            =   -8065
  770.          TabIndex        =   28
  771.          Top             =   2340
  772.          Width           =   3120
  773.       End
  774.       Begin VB.Label lblTab4 
  775.          BackStyle       =   0  'Transparent
  776.          Caption         =   "lblTab4"
  777.          Height          =   825
  778.          Left            =   -5860
  779.          TabIndex        =   20
  780.          Top             =   1350
  781.          Width           =   2805
  782.       End
  783.       Begin VB.Label lblTab5 
  784.          BackStyle       =   0  'Transparent
  785.          Caption         =   "lblTab5"
  786.          Height          =   555
  787.          Left            =   -5860
  788.          TabIndex        =   25
  789.          Top             =   2700
  790.          Width           =   2760
  791.       End
  792.       Begin VB.Label lblFontStyle 
  793.          BackStyle       =   0  'Transparent
  794.          Caption         =   "lblTabFontStyle"
  795.          Height          =   240
  796.          Left            =   -5815
  797.          TabIndex        =   26
  798.          Top             =   3375
  799.          Width           =   825
  800.       End
  801.       Begin VB.Label lblDisabled 
  802.          Caption         =   "lblDisabled"
  803.          Height          =   1185
  804.          Left            =   -4960
  805.          TabIndex        =   18
  806.          Top             =   2835
  807.          Width           =   1815
  808.       End
  809.       Begin VB.Label lblRestricted 
  810.          Caption         =   "lblRestricted"
  811.          Height          =   1185
  812.          Left            =   -4960
  813.          TabIndex        =   16
  814.          Top             =   990
  815.          Width           =   1860
  816.       End
  817.       Begin VB.Label lblTab3 
  818.          BackStyle       =   0  'Transparent
  819.          Caption         =   "lblTab3"
  820.          Height          =   2220
  821.          Left            =   -9730
  822.          TabIndex        =   13
  823.          Top             =   1035
  824.          Width           =   1950
  825.       End
  826.       Begin VB.Label lblFontOrientationVal 
  827.          BackStyle       =   0  'Transparent
  828.          Caption         =   "lblFontOrientationVal"
  829.          Height          =   240
  830.          Left            =   6345
  831.          TabIndex        =   12
  832.          Top             =   3825
  833.          Width           =   600
  834.       End
  835.       Begin VB.Label lblFontEscapementVal 
  836.          BackStyle       =   0  'Transparent
  837.          Caption         =   "lblFontEscapementVal"
  838.          Height          =   240
  839.          Left            =   6345
  840.          TabIndex        =   10
  841.          Top             =   3600
  842.          Width           =   600
  843.       End
  844.       Begin VB.Label lblFontOrientation 
  845.          BackStyle       =   0  'Transparent
  846.          Caption         =   "lblFontOrientation"
  847.          Height          =   240
  848.          Left            =   4770
  849.          TabIndex        =   11
  850.          Top             =   3825
  851.          Width           =   1365
  852.       End
  853.       Begin VB.Label lblFontEscapement 
  854.          BackStyle       =   0  'Transparent
  855.          Caption         =   "lblFontEscapement"
  856.          Height          =   240
  857.          Left            =   4770
  858.          TabIndex        =   9
  859.          Top             =   3600
  860.          Width           =   1365
  861.       End
  862.       Begin VB.Label lblFont 
  863.          BackStyle       =   0  'Transparent
  864.          Caption         =   "lblFont"
  865.          Height          =   1185
  866.          Left            =   4500
  867.          TabIndex        =   8
  868.          Top             =   2340
  869.          Width           =   2400
  870.       End
  871.       Begin VB.Label lblTabBorderStyle 
  872.          BackStyle       =   0  'Transparent
  873.          Caption         =   "lblTabBorderStyle"
  874.          Height          =   600
  875.          Left            =   4500
  876.          TabIndex        =   6
  877.          Top             =   540
  878.          Width           =   2400
  879.       End
  880.    End
  881.    Begin VB.CommandButton cmdAction 
  882.       Caption         =   "cmdAction"
  883.       Height          =   510
  884.       Left            =   7515
  885.       TabIndex        =   30
  886.       Top             =   3870
  887.       Width           =   1455
  888.    End
  889.    Begin VB.Label lblDescription 
  890.       Alignment       =   2  'Center
  891.       BackStyle       =   0  'Transparent
  892.       Caption         =   "lblDescription"
  893.       Height          =   1416
  894.       Left            =   7488
  895.       TabIndex        =   29
  896.       Top             =   312
  897.       Width           =   1500
  898.    End
  899. Attribute VB_Name = "fMain"
  900. Attribute VB_Creatable = False
  901. Attribute VB_Exposed = False
  902. Option Explicit
  903. Dim iRestrictedFolder As Integer
  904. Sub SetCaptions()
  905. Dim sCaption As String
  906.     iRestrictedFolder = 3
  907.     sCaption = "Several aspects of how you can use the "
  908.     sCaption = sCaption & "MhTab control are described on each "
  909.     sCaption = sCaption & "or the tabs to the left."
  910.     lblDescription.Caption = sCaption
  911.     cmdAction.Caption = "E&xit"
  912. End Sub
  913. Sub Tab1_SetCaptions()
  914. Dim iCount As Integer
  915. Dim sCaption  As String
  916.     ' Style and position.
  917.     MhTab1.Folders = 5
  918.     MhTab1.TabsPerRow = MhTab1.Folders
  919.     MhTab1.Folder = 0
  920.     MhTab1.TabCaption = "Style and Position"
  921.     MhTab1.Folder = 1
  922.     MhTab1.TabCaption = "Events and Locking"
  923.     MhTab1.Folder = 2
  924.     MhTab1.TabCaption = "Graphics"
  925.     MhTab1.Folder = 3
  926.     MhTab1.TabCaption = "Top Secret"
  927.     MhTab1.Folder = 4
  928.     MhTab1.TabCaption = "(Empty)"
  929.     For iCount = 0 To MhTab1.Folders - 1
  930.         MhTab1.Folder = iCount
  931.         MhTab1.TabAutoSize = True
  932.     Next iCount
  933.     MhTab1.Folder = 4
  934.     MhTab1.TabEnabled = False
  935.     ' Style and position.
  936.     MhTab2.FontName = "Arial"
  937.     MhTab2.Folders = 4
  938.     MhTab2.TabsPerRow = MhTab2.Folders / 2
  939.     optTabPosition(0).Caption = "Top"
  940.     optTabPosition(1).Caption = "Bottom"
  941.     optTabPosition(2).Caption = "Right"
  942.     optTabPosition(3).Caption = "Left"
  943.     optTabPosition(0).Value = True
  944.     lstTabBorderStyle.AddItem "0 - Square"
  945.     lstTabBorderStyle.AddItem "1 - Rounded"
  946.     lstTabBorderStyle.AddItem "2 - Slanted"
  947.     lstTabBorderStyle.AddItem "3 - Chamfered"
  948.     lstTabBorderStyle.ListIndex = 3
  949.     sCaption = "The tabs can be displayed on any side of the "
  950.     sCaption = sCaption & "MhTab control by setting the .TabPosition property:"
  951.     lblTabPosition.Caption = sCaption
  952.     sCaption = "You can select from four border styles to "
  953.     sCaption = sCaption & "change the appearance of the tabs:"
  954.     lblTabBorderStyle.Caption = sCaption
  955.     sCaption = "The .FontEscapement and .FontOrientation properties "
  956.     sCaption = sCaption & "allow you to rotate the text of each tab.  "
  957.     sCaption = sCaption & "Select either a left or right .TabPosition to "
  958.     sCaption = sCaption & "see how these properties are affected:"
  959.     lblFont.Caption = sCaption
  960.     lblFontEscapement.Caption = ".FontEscapement:"
  961.     lblFontOrientation.Caption = ".FontOrientation:"
  962.         
  963. End Sub
  964. Sub Tab2_SetCaptions()
  965. Dim iCount As Integer
  966. Dim sCaption  As String
  967.     ' Events and locking.
  968.     MhTab3.FontName = "Arial"
  969.     MhTab3.Folders = 4
  970.     MhTab3.TabsPerRow = MhTab3.Folders
  971.     MhTab3.TabPosition = 3
  972.     MhTab3.TabBorderStyle = 1
  973.     MhTab3_TabChanged 0, 0
  974.     MhTab3.Folder = 0
  975.     MhTab3.TabCaption = "Tables"
  976.     MhTab3.Folder = 1
  977.     MhTab3.TabCaption = "Queries"
  978.     MhTab3.Folder = 2
  979.     MhTab3.TabCaption = "Reports"
  980.     MhTab3.Folder = 3
  981.     MhTab3.TabCaption = "Forms"
  982.     For iCount = 0 To MhTab3.Folders - 1
  983.         MhTab3.Folder = iCount
  984.         MhTab3.TabAutoSize = True
  985.     Next iCount
  986.     lstTab3.Left = MhTab3.Left + MhTab3.ScaleWidth
  987.     lstTab3.Top = MhTab3.Top
  988.     lstTab3.Height = MhTab3.Height
  989.     MhTab3.Height = lstTab3.Height
  990.     sCaption = "The MhTab control on the right uses the "
  991.     sCaption = sCaption & "_TabChanging event to display a message "
  992.     sCaption = sCaption & "box when you change tabs, and the "
  993.     sCaption = sCaption & "_TabChanged event to reload the List "
  994.     sCaption = sCaption & "control with the appropriate items."
  995.     lblTab3.Caption = sCaption
  996.     sCaption = "The 'Top Secret' folder on the main tab "
  997.     sCaption = sCaption & "uses the _TabChanging event to stop the "
  998.     sCaption = sCaption & "user from viewing that tab.  Check the "
  999.     sCaption = sCaption & "box below to gain access:"
  1000.     lblRestricted.Caption = sCaption
  1001.     chkRestricted.Caption = "Administrator access."
  1002.     sCaption = "The '(Empty)' folder  on the main tab "
  1003.     sCaption = sCaption & "uses the .TabEnabled property "
  1004.     sCaption = sCaption & "to disable use of it."
  1005.     lblDisabled.Caption = sCaption
  1006. End Sub
  1007. Sub Tab3_SetCaptions()
  1008. Dim iCount As Integer
  1009. Dim sCaption  As String
  1010.     ' Graphics.
  1011.     MhTab4.Folders = 3
  1012.     MhTab4.TabsPerRow = MhTab4.Folders
  1013.     For iCount = 0 To MhTab4.Folders - 1
  1014.         MhTab4.Folder = iCount
  1015.         MhTab4.TabPicture = picTab4(iCount).Picture
  1016.         MhTab4.TabAutoSize = True
  1017.     Next iCount
  1018.     MhTab5.Folders = 3
  1019.     MhTab5.TabsPerRow = MhTab5.Folders
  1020.     For iCount = 0 To MhTab5.Folders - 1
  1021.         MhTab5.Folder = iCount
  1022.         MhTab5.TabAutoSize = True
  1023.     Next iCount
  1024.     sCaption = "You can add unique images to each "
  1025.     sCaption = sCaption & "tab on the tab control.  "
  1026.     sCaption = sCaption & "The image will be positioned "
  1027.     sCaption = sCaption & "to the left of the .Caption text."
  1028.     lblTab4.Caption = sCaption
  1029.     sCaption = "You can also change the characteristics "
  1030.     sCaption = sCaption & "of the font for the tabs:"
  1031.     lblTab5.Caption = sCaption
  1032.     lblFontStyle.Caption = ".FontStyle:"
  1033.     cboFontStyle.AddItem "0 - None"
  1034.     cboFontStyle.AddItem "1 - Raised"
  1035.     cboFontStyle.AddItem "2 - Raised / more shading"
  1036.     cboFontStyle.AddItem "3 - Lowered"
  1037.     cboFontStyle.AddItem "4 - Lowered / more shading"
  1038.     cboFontStyle.ListIndex = 0
  1039. End Sub
  1040. Sub Tab4_SetCaptions()
  1041.     ' Top secret.
  1042.     lblTopSecret.Caption = "(Enter your top secret information here...)"
  1043. End Sub
  1044. Private Sub cboFontStyle_Change()
  1045.     MhTab5.FontStyle = cboFontStyle.ListIndex
  1046. End Sub
  1047. Private Sub cboFontStyle_Click()
  1048.     cboFontStyle_Change
  1049. End Sub
  1050. Private Sub cmdAction_Click()
  1051.     Unload Me
  1052. End Sub
  1053. Private Sub Form_Load()
  1054. Dim sCaption As String
  1055.     ' Set up form.
  1056.     SetCaptions
  1057.     ' Property settings for:
  1058.     ' Style and position.
  1059.     Tab1_SetCaptions
  1060.     ' Events and locking.
  1061.     Tab2_SetCaptions
  1062.     ' Graphics.
  1063.     Tab3_SetCaptions
  1064.     Tab4_SetCaptions
  1065.     ' center form to screen
  1066.     Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2
  1067. End Sub
  1068. Private Sub lstTabBorderStyle_Click()
  1069.     ' Change the .TabBorderStyle to the selected item.
  1070.     MhTab2.TabBorderStyle = lstTabBorderStyle.ListIndex
  1071. End Sub
  1072. Private Sub MhTab1_TabChanged(NewFolder As Integer, OldFolder As Integer)
  1073.     ' Update the formatting of the previous and current tab.
  1074.     MhTab1.Folder = OldFolder
  1075.     MhTab1.TabFontBold = False
  1076.     MhTab1.Folder = NewFolder
  1077.     MhTab1.TabFontBold = True
  1078. End Sub
  1079. Private Sub MhTab1_TabChanging(NewFolder As Integer, OldFolder As Integer)
  1080. Dim sCaption As String
  1081.     ' Stop user from displaying restricted folder.
  1082.     If NewFolder = iRestrictedFolder And chkRestricted.Value = 0 Then
  1083.         MhTab1.Folder = NewFolder
  1084.         sCaption = MhTab1.TabCaption
  1085.         NewFolder = OldFolder
  1086.         MsgBox "This folder is restricted.", 0, sCaption
  1087.     End If
  1088. End Sub
  1089. Private Sub MhTab3_TabChanged(NewFolder As Integer, OldFolder As Integer)
  1090.     Debug.Print "_TabChanged: Reloading list..."
  1091.     lstTab3.Clear
  1092.     ' Reload the list with the info for the current tab.
  1093.     Select Case NewFolder
  1094.         ' Tables.
  1095.         Case 0
  1096.             lstTab3.AddItem "Customers"
  1097.             lstTab3.AddItem "Orders"
  1098.             lstTab3.AddItem "Employees"
  1099.             lstTab3.AddItem "Vendors"
  1100.         ' Queries.
  1101.         Case 1
  1102.             lstTab3.AddItem "Purchase History"
  1103.             lstTab3.AddItem "Orders Per Month"
  1104.             lstTab3.AddItem "Orders By Vendor"
  1105.         ' Reports.
  1106.         Case 2
  1107.             lstTab3.AddItem "Invoices"
  1108.             lstTab3.AddItem "Paychecks"
  1109.         ' Forms.
  1110.         Case 3
  1111.             lstTab3.AddItem "Order Entry"
  1112.             lstTab3.AddItem "Accounts Receivable"
  1113.             lstTab3.AddItem "Accounts Payable"
  1114.             lstTab3.AddItem "Employee Paychecks"
  1115.     End Select
  1116. End Sub
  1117. Private Sub MhTab3_TabChanging(NewFolder As Integer, OldFolder As Integer)
  1118. Dim sNewFolder As String
  1119. Dim sOldFolder As String
  1120. Dim sMsg As String
  1121.     Debug.Print "_TabChanging: Displaying message box..."
  1122.     ' Get captions of the new and old folders.
  1123.     MhTab3.Folder = NewFolder
  1124.     sNewFolder = MhTab3.TabCaption
  1125.     MhTab3.Folder = OldFolder
  1126.     sOldFolder = MhTab3.TabCaption
  1127.     ' Display info.
  1128.     sMsg = "Changing from '" & sOldFolder & "' to '" & sNewFolder & "'..."
  1129.     MsgBox sMsg, 0, "_TabChanging Event"
  1130. End Sub
  1131. Private Sub optTabPosition_Click(Index As Integer)
  1132.     MhTab2.TabPosition = Index
  1133.     lblFontEscapementVal.Caption = MhTab2.FontEscapement
  1134.     lblFontOrientationVal.Caption = MhTab2.FontOrientation
  1135. End Sub
  1136.