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