home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Slider_Mix222670862012.psc / Fader.ctl < prev    next >
Text File  |  2012-08-06  |  44KB  |  1,398 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Fader 
  3.    AutoRedraw      =   -1  'True
  4.    ClientHeight    =   555
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   555
  8.    ScaleHeight     =   37
  9.    ScaleMode       =   3  'Pixel
  10.    ScaleWidth      =   37
  11.    Begin VB.PictureBox DLH 
  12.       AutoRedraw      =   -1  'True
  13.       AutoSize        =   -1  'True
  14.       BorderStyle     =   0  'None
  15.       Height          =   300
  16.       Index           =   0
  17.       Left            =   1560
  18.       Picture         =   "Fader.ctx":0000
  19.       ScaleHeight     =   20
  20.       ScaleMode       =   3  'Pixel
  21.       ScaleWidth      =   30
  22.       TabIndex        =   44
  23.       Top             =   180
  24.       Visible         =   0   'False
  25.       Width           =   450
  26.    End
  27.    Begin VB.PictureBox DSH 
  28.       AutoRedraw      =   -1  'True
  29.       AutoSize        =   -1  'True
  30.       BorderStyle     =   0  'None
  31.       Height          =   300
  32.       Index           =   0
  33.       Left            =   1200
  34.       Picture         =   "Fader.ctx":0774
  35.       ScaleHeight     =   20
  36.       ScaleMode       =   3  'Pixel
  37.       ScaleWidth      =   10
  38.       TabIndex        =   43
  39.       Top             =   180
  40.       Visible         =   0   'False
  41.       Width           =   150
  42.    End
  43.    Begin VB.PictureBox DSV 
  44.       AutoRedraw      =   -1  'True
  45.       AutoSize        =   -1  'True
  46.       BorderStyle     =   0  'None
  47.       Height          =   150
  48.       Index           =   0
  49.       Left            =   60
  50.       Picture         =   "Fader.ctx":0A38
  51.       ScaleHeight     =   10
  52.       ScaleMode       =   3  'Pixel
  53.       ScaleWidth      =   20
  54.       TabIndex        =   42
  55.       Top             =   3540
  56.       Visible         =   0   'False
  57.       Width           =   300
  58.    End
  59.    Begin VB.PictureBox DLV 
  60.       AutoRedraw      =   -1  'True
  61.       AutoSize        =   -1  'True
  62.       BorderStyle     =   0  'None
  63.       Height          =   450
  64.       Index           =   0
  65.       Left            =   60
  66.       Picture         =   "Fader.ctx":0CD4
  67.       ScaleHeight     =   30
  68.       ScaleMode       =   3  'Pixel
  69.       ScaleWidth      =   20
  70.       TabIndex        =   41
  71.       Top             =   3900
  72.       Visible         =   0   'False
  73.       Width           =   300
  74.    End
  75.    Begin VB.PictureBox DSV 
  76.       AutoRedraw      =   -1  'True
  77.       AutoSize        =   -1  'True
  78.       BorderStyle     =   0  'None
  79.       Height          =   150
  80.       Index           =   10
  81.       Left            =   420
  82.       Picture         =   "Fader.ctx":1420
  83.       ScaleHeight     =   10
  84.       ScaleMode       =   3  'Pixel
  85.       ScaleWidth      =   20
  86.       TabIndex        =   40
  87.       Top             =   720
  88.       Visible         =   0   'False
  89.       Width           =   300
  90.    End
  91.    Begin VB.PictureBox DSV 
  92.       AutoRedraw      =   -1  'True
  93.       AutoSize        =   -1  'True
  94.       BorderStyle     =   0  'None
  95.       Height          =   150
  96.       Index           =   9
  97.       Left            =   60
  98.       Picture         =   "Fader.ctx":16BC
  99.       ScaleHeight     =   10
  100.       ScaleMode       =   3  'Pixel
  101.       ScaleWidth      =   20
  102.       TabIndex        =   39
  103.       Top             =   720
  104.       Visible         =   0   'False
  105.       Width           =   300
  106.    End
  107.    Begin VB.PictureBox DSV 
  108.       AutoRedraw      =   -1  'True
  109.       AutoSize        =   -1  'True
  110.       BorderStyle     =   0  'None
  111.       Height          =   150
  112.       Index           =   8
  113.       Left            =   780
  114.       Picture         =   "Fader.ctx":1958
  115.       ScaleHeight     =   10
  116.       ScaleMode       =   3  'Pixel
  117.       ScaleWidth      =   20
  118.       TabIndex        =   38
  119.       Top             =   1620
  120.       Visible         =   0   'False
  121.       Width           =   300
  122.    End
  123.    Begin VB.PictureBox DSV 
  124.       AutoRedraw      =   -1  'True
  125.       AutoSize        =   -1  'True
  126.       BorderStyle     =   0  'None
  127.       Height          =   150
  128.       Index           =   7
  129.       Left            =   420
  130.       Picture         =   "Fader.ctx":1BF4
  131.       ScaleHeight     =   10
  132.       ScaleMode       =   3  'Pixel
  133.       ScaleWidth      =   20
  134.       TabIndex        =   37
  135.       Top             =   1620
  136.       Visible         =   0   'False
  137.       Width           =   300
  138.    End
  139.    Begin VB.PictureBox DSV 
  140.       AutoRedraw      =   -1  'True
  141.       AutoSize        =   -1  'True
  142.       BorderStyle     =   0  'None
  143.       Height          =   150
  144.       Index           =   6
  145.       Left            =   60
  146.       Picture         =   "Fader.ctx":1E90
  147.       ScaleHeight     =   10
  148.       ScaleMode       =   3  'Pixel
  149.       ScaleWidth      =   20
  150.       TabIndex        =   36
  151.       Top             =   1620
  152.       Visible         =   0   'False
  153.       Width           =   300
  154.    End
  155.    Begin VB.PictureBox DSV 
  156.       AutoRedraw      =   -1  'True
  157.       AutoSize        =   -1  'True
  158.       BorderStyle     =   0  'None
  159.       Height          =   150
  160.       Index           =   5
  161.       Left            =   780
  162.       Picture         =   "Fader.ctx":212C
  163.       ScaleHeight     =   10
  164.       ScaleMode       =   3  'Pixel
  165.       ScaleWidth      =   20
  166.       TabIndex        =   35
  167.       Top             =   2580
  168.       Visible         =   0   'False
  169.       Width           =   300
  170.    End
  171.    Begin VB.PictureBox DSV 
  172.       AutoRedraw      =   -1  'True
  173.       AutoSize        =   -1  'True
  174.       BorderStyle     =   0  'None
  175.       Height          =   150
  176.       Index           =   4
  177.       Left            =   420
  178.       Picture         =   "Fader.ctx":23C8
  179.       ScaleHeight     =   10
  180.       ScaleMode       =   3  'Pixel
  181.       ScaleWidth      =   20
  182.       TabIndex        =   34
  183.       Top             =   2580
  184.       Visible         =   0   'False
  185.       Width           =   300
  186.    End
  187.    Begin VB.PictureBox DSV 
  188.       AutoRedraw      =   -1  'True
  189.       AutoSize        =   -1  'True
  190.       BorderStyle     =   0  'None
  191.       Height          =   150
  192.       Index           =   3
  193.       Left            =   60
  194.       Picture         =   "Fader.ctx":2664
  195.       ScaleHeight     =   10
  196.       ScaleMode       =   3  'Pixel
  197.       ScaleWidth      =   20
  198.       TabIndex        =   33
  199.       Top             =   2580
  200.       Visible         =   0   'False
  201.       Width           =   300
  202.    End
  203.    Begin VB.PictureBox DSV 
  204.       AutoRedraw      =   -1  'True
  205.       AutoSize        =   -1  'True
  206.       BorderStyle     =   0  'None
  207.       Height          =   150
  208.       Index           =   1
  209.       Left            =   420
  210.       Picture         =   "Fader.ctx":2900
  211.       ScaleHeight     =   10
  212.       ScaleMode       =   3  'Pixel
  213.       ScaleWidth      =   20
  214.       TabIndex        =   32
  215.       Top             =   3540
  216.       Visible         =   0   'False
  217.       Width           =   300
  218.    End
  219.    Begin VB.PictureBox DSV 
  220.       AutoRedraw      =   -1  'True
  221.       AutoSize        =   -1  'True
  222.       BorderStyle     =   0  'None
  223.       Height          =   150
  224.       Index           =   2
  225.       Left            =   780
  226.       Picture         =   "Fader.ctx":2B9C
  227.       ScaleHeight     =   10
  228.       ScaleMode       =   3  'Pixel
  229.       ScaleWidth      =   20
  230.       TabIndex        =   31
  231.       Top             =   3540
  232.       Visible         =   0   'False
  233.       Width           =   300
  234.    End
  235.    Begin VB.PictureBox DSH 
  236.       AutoRedraw      =   -1  'True
  237.       AutoSize        =   -1  'True
  238.       BorderStyle     =   0  'None
  239.       Height          =   300
  240.       Index           =   10
  241.       Left            =   1200
  242.       Picture         =   "Fader.ctx":2E38
  243.       ScaleHeight     =   20
  244.       ScaleMode       =   3  'Pixel
  245.       ScaleWidth      =   10
  246.       TabIndex        =   30
  247.       Top             =   3780
  248.       Visible         =   0   'False
  249.       Width           =   150
  250.    End
  251.    Begin VB.PictureBox DSH 
  252.       AutoRedraw      =   -1  'True
  253.       AutoSize        =   -1  'True
  254.       BorderStyle     =   0  'None
  255.       Height          =   300
  256.       Index           =   9
  257.       Left            =   1200
  258.       Picture         =   "Fader.ctx":30FC
  259.       ScaleHeight     =   20
  260.       ScaleMode       =   3  'Pixel
  261.       ScaleWidth      =   10
  262.       TabIndex        =   29
  263.       Top             =   3420
  264.       Visible         =   0   'False
  265.       Width           =   150
  266.    End
  267.    Begin VB.PictureBox DSH 
  268.       AutoRedraw      =   -1  'True
  269.       AutoSize        =   -1  'True
  270.       BorderStyle     =   0  'None
  271.       Height          =   300
  272.       Index           =   8
  273.       Left            =   1200
  274.       Picture         =   "Fader.ctx":33C0
  275.       ScaleHeight     =   20
  276.       ScaleMode       =   3  'Pixel
  277.       ScaleWidth      =   10
  278.       TabIndex        =   28
  279.       Top             =   3060
  280.       Visible         =   0   'False
  281.       Width           =   150
  282.    End
  283.    Begin VB.PictureBox DSH 
  284.       AutoRedraw      =   -1  'True
  285.       AutoSize        =   -1  'True
  286.       BorderStyle     =   0  'None
  287.       Height          =   300
  288.       Index           =   7
  289.       Left            =   1200
  290.       Picture         =   "Fader.ctx":3684
  291.       ScaleHeight     =   20
  292.       ScaleMode       =   3  'Pixel
  293.       ScaleWidth      =   10
  294.       TabIndex        =   27
  295.       Top             =   2700
  296.       Visible         =   0   'False
  297.       Width           =   150
  298.    End
  299.    Begin VB.PictureBox DSH 
  300.       AutoRedraw      =   -1  'True
  301.       AutoSize        =   -1  'True
  302.       BorderStyle     =   0  'None
  303.       Height          =   300
  304.       Index           =   6
  305.       Left            =   1200
  306.       Picture         =   "Fader.ctx":3948
  307.       ScaleHeight     =   20
  308.       ScaleMode       =   3  'Pixel
  309.       ScaleWidth      =   10
  310.       TabIndex        =   26
  311.       Top             =   2340
  312.       Visible         =   0   'False
  313.       Width           =   150
  314.    End
  315.    Begin VB.PictureBox DSH 
  316.       AutoRedraw      =   -1  'True
  317.       AutoSize        =   -1  'True
  318.       BorderStyle     =   0  'None
  319.       Height          =   300
  320.       Index           =   5
  321.       Left            =   1200
  322.       Picture         =   "Fader.ctx":3C0C
  323.       ScaleHeight     =   20
  324.       ScaleMode       =   3  'Pixel
  325.       ScaleWidth      =   10
  326.       TabIndex        =   25
  327.       Top             =   1980
  328.       Visible         =   0   'False
  329.       Width           =   150
  330.    End
  331.    Begin VB.PictureBox DSH 
  332.       AutoRedraw      =   -1  'True
  333.       AutoSize        =   -1  'True
  334.       BorderStyle     =   0  'None
  335.       Height          =   300
  336.       Index           =   4
  337.       Left            =   1200
  338.       Picture         =   "Fader.ctx":3ED0
  339.       ScaleHeight     =   20
  340.       ScaleMode       =   3  'Pixel
  341.       ScaleWidth      =   10
  342.       TabIndex        =   24
  343.       Top             =   1620
  344.       Visible         =   0   'False
  345.       Width           =   150
  346.    End
  347.    Begin VB.PictureBox DSH 
  348.       AutoRedraw      =   -1  'True
  349.       AutoSize        =   -1  'True
  350.       BorderStyle     =   0  'None
  351.       Height          =   300
  352.       Index           =   3
  353.       Left            =   1200
  354.       Picture         =   "Fader.ctx":4194
  355.       ScaleHeight     =   20
  356.       ScaleMode       =   3  'Pixel
  357.       ScaleWidth      =   10
  358.       TabIndex        =   23
  359.       Top             =   1260
  360.       Visible         =   0   'False
  361.       Width           =   150
  362.    End
  363.    Begin VB.PictureBox DSH 
  364.       AutoRedraw      =   -1  'True
  365.       AutoSize        =   -1  'True
  366.       BorderStyle     =   0  'None
  367.       Height          =   300
  368.       Index           =   1
  369.       Left            =   1200
  370.       Picture         =   "Fader.ctx":4458
  371.       ScaleHeight     =   20
  372.       ScaleMode       =   3  'Pixel
  373.       ScaleWidth      =   10
  374.       TabIndex        =   22
  375.       Top             =   540
  376.       Visible         =   0   'False
  377.       Width           =   150
  378.    End
  379.    Begin VB.PictureBox DSH 
  380.       AutoRedraw      =   -1  'True
  381.       AutoSize        =   -1  'True
  382.       BorderStyle     =   0  'None
  383.       Height          =   300
  384.       Index           =   2
  385.       Left            =   1200
  386.       Picture         =   "Fader.ctx":471C
  387.       ScaleHeight     =   20
  388.       ScaleMode       =   3  'Pixel
  389.       ScaleWidth      =   10
  390.       TabIndex        =   21
  391.       Top             =   900
  392.       Visible         =   0   'False
  393.       Width           =   150
  394.    End
  395.    Begin VB.PictureBox DLV 
  396.       AutoRedraw      =   -1  'True
  397.       AutoSize        =   -1  'True
  398.       BorderStyle     =   0  'None
  399.       Height          =   450
  400.       Index           =   10
  401.       Left            =   420
  402.       Picture         =   "Fader.ctx":49E0
  403.       ScaleHeight     =   30
  404.       ScaleMode       =   3  'Pixel
  405.       ScaleWidth      =   20
  406.       TabIndex        =   20
  407.       Top             =   1080
  408.       Visible         =   0   'False
  409.       Width           =   300
  410.    End
  411.    Begin VB.PictureBox DLV 
  412.       AutoRedraw      =   -1  'True
  413.       AutoSize        =   -1  'True
  414.       BorderStyle     =   0  'None
  415.       Height          =   450
  416.       Index           =   9
  417.       Left            =   60
  418.       Picture         =   "Fader.ctx":512C
  419.       ScaleHeight     =   30
  420.       ScaleMode       =   3  'Pixel
  421.       ScaleWidth      =   20
  422.       TabIndex        =   19
  423.       Top             =   1080
  424.       Visible         =   0   'False
  425.       Width           =   300
  426.    End
  427.    Begin VB.PictureBox DLV 
  428.       AutoRedraw      =   -1  'True
  429.       AutoSize        =   -1  'True
  430.       BorderStyle     =   0  'None
  431.       Height          =   450
  432.       Index           =   8
  433.       Left            =   780
  434.       Picture         =   "Fader.ctx":5878
  435.       ScaleHeight     =   30
  436.       ScaleMode       =   3  'Pixel
  437.       ScaleWidth      =   20
  438.       TabIndex        =   18
  439.       Top             =   1980
  440.       Visible         =   0   'False
  441.       Width           =   300
  442.    End
  443.    Begin VB.PictureBox DLV 
  444.       AutoRedraw      =   -1  'True
  445.       AutoSize        =   -1  'True
  446.       BorderStyle     =   0  'None
  447.       Height          =   450
  448.       Index           =   7
  449.       Left            =   420
  450.       Picture         =   "Fader.ctx":5FC4
  451.       ScaleHeight     =   30
  452.       ScaleMode       =   3  'Pixel
  453.       ScaleWidth      =   20
  454.       TabIndex        =   17
  455.       Top             =   1980
  456.       Visible         =   0   'False
  457.       Width           =   300
  458.    End
  459.    Begin VB.PictureBox DLV 
  460.       AutoRedraw      =   -1  'True
  461.       AutoSize        =   -1  'True
  462.       BorderStyle     =   0  'None
  463.       Height          =   450
  464.       Index           =   6
  465.       Left            =   60
  466.       Picture         =   "Fader.ctx":6710
  467.       ScaleHeight     =   30
  468.       ScaleMode       =   3  'Pixel
  469.       ScaleWidth      =   20
  470.       TabIndex        =   16
  471.       Top             =   1980
  472.       Visible         =   0   'False
  473.       Width           =   300
  474.    End
  475.    Begin VB.PictureBox DLV 
  476.       AutoRedraw      =   -1  'True
  477.       AutoSize        =   -1  'True
  478.       BorderStyle     =   0  'None
  479.       Height          =   450
  480.       Index           =   5
  481.       Left            =   780
  482.       Picture         =   "Fader.ctx":6E5C
  483.       ScaleHeight     =   30
  484.       ScaleMode       =   3  'Pixel
  485.       ScaleWidth      =   20
  486.       TabIndex        =   15
  487.       Top             =   2940
  488.       Visible         =   0   'False
  489.       Width           =   300
  490.    End
  491.    Begin VB.PictureBox DLV 
  492.       AutoRedraw      =   -1  'True
  493.       AutoSize        =   -1  'True
  494.       BorderStyle     =   0  'None
  495.       Height          =   450
  496.       Index           =   4
  497.       Left            =   420
  498.       Picture         =   "Fader.ctx":75A8
  499.       ScaleHeight     =   30
  500.       ScaleMode       =   3  'Pixel
  501.       ScaleWidth      =   20
  502.       TabIndex        =   14
  503.       Top             =   2940
  504.       Visible         =   0   'False
  505.       Width           =   300
  506.    End
  507.    Begin VB.PictureBox DLV 
  508.       AutoRedraw      =   -1  'True
  509.       AutoSize        =   -1  'True
  510.       BorderStyle     =   0  'None
  511.       Height          =   450
  512.       Index           =   3
  513.       Left            =   60
  514.       Picture         =   "Fader.ctx":7CF4
  515.       ScaleHeight     =   30
  516.       ScaleMode       =   3  'Pixel
  517.       ScaleWidth      =   20
  518.       TabIndex        =   13
  519.       Top             =   2940
  520.       Visible         =   0   'False
  521.       Width           =   300
  522.    End
  523.    Begin VB.PictureBox DLV 
  524.       AutoRedraw      =   -1  'True
  525.       AutoSize        =   -1  'True
  526.       BorderStyle     =   0  'None
  527.       Height          =   450
  528.       Index           =   1
  529.       Left            =   420
  530.       Picture         =   "Fader.ctx":8440
  531.       ScaleHeight     =   30
  532.       ScaleMode       =   3  'Pixel
  533.       ScaleWidth      =   20
  534.       TabIndex        =   12
  535.       Top             =   3900
  536.       Visible         =   0   'False
  537.       Width           =   300
  538.    End
  539.    Begin VB.PictureBox DLV 
  540.       AutoRedraw      =   -1  'True
  541.       AutoSize        =   -1  'True
  542.       BorderStyle     =   0  'None
  543.       Height          =   450
  544.       Index           =   2
  545.       Left            =   780
  546.       Picture         =   "Fader.ctx":8B8C
  547.       ScaleHeight     =   30
  548.       ScaleMode       =   3  'Pixel
  549.       ScaleWidth      =   20
  550.       TabIndex        =   11
  551.       Top             =   3900
  552.       Visible         =   0   'False
  553.       Width           =   300
  554.    End
  555.    Begin VB.PictureBox DLH 
  556.       AutoRedraw      =   -1  'True
  557.       AutoSize        =   -1  'True
  558.       BorderStyle     =   0  'None
  559.       Height          =   300
  560.       Index           =   2
  561.       Left            =   1560
  562.       Picture         =   "Fader.ctx":92D8
  563.       ScaleHeight     =   20
  564.       ScaleMode       =   3  'Pixel
  565.       ScaleWidth      =   30
  566.       TabIndex        =   10
  567.       Top             =   900
  568.       Visible         =   0   'False
  569.       Width           =   450
  570.    End
  571.    Begin VB.PictureBox DLH 
  572.       AutoRedraw      =   -1  'True
  573.       AutoSize        =   -1  'True
  574.       BorderStyle     =   0  'None
  575.       Height          =   300
  576.       Index           =   1
  577.       Left            =   1560
  578.       Picture         =   "Fader.ctx":9A4C
  579.       ScaleHeight     =   20
  580.       ScaleMode       =   3  'Pixel
  581.       ScaleWidth      =   30
  582.       TabIndex        =   9
  583.       Top             =   540
  584.       Visible         =   0   'False
  585.       Width           =   450
  586.    End
  587.    Begin VB.PictureBox DLH 
  588.       AutoRedraw      =   -1  'True
  589.       AutoSize        =   -1  'True
  590.       BorderStyle     =   0  'None
  591.       Height          =   300
  592.       Index           =   10
  593.       Left            =   1560
  594.       Picture         =   "Fader.ctx":A1C0
  595.       ScaleHeight     =   20
  596.       ScaleMode       =   3  'Pixel
  597.       ScaleWidth      =   30
  598.       TabIndex        =   8
  599.       Top             =   3780
  600.       Visible         =   0   'False
  601.       Width           =   450
  602.    End
  603.    Begin VB.PictureBox DLH 
  604.       AutoRedraw      =   -1  'True
  605.       AutoSize        =   -1  'True
  606.       BorderStyle     =   0  'None
  607.       Height          =   300
  608.       Index           =   9
  609.       Left            =   1560
  610.       Picture         =   "Fader.ctx":A934
  611.       ScaleHeight     =   20
  612.       ScaleMode       =   3  'Pixel
  613.       ScaleWidth      =   30
  614.       TabIndex        =   7
  615.       Top             =   3420
  616.       Visible         =   0   'False
  617.       Width           =   450
  618.    End
  619.    Begin VB.PictureBox DLH 
  620.       AutoRedraw      =   -1  'True
  621.       AutoSize        =   -1  'True
  622.       BorderStyle     =   0  'None
  623.       Height          =   300
  624.       Index           =   8
  625.       Left            =   1560
  626.       Picture         =   "Fader.ctx":B0A8
  627.       ScaleHeight     =   20
  628.       ScaleMode       =   3  'Pixel
  629.       ScaleWidth      =   30
  630.       TabIndex        =   6
  631.       Top             =   3060
  632.       Visible         =   0   'False
  633.       Width           =   450
  634.    End
  635.    Begin VB.PictureBox DLH 
  636.       AutoRedraw      =   -1  'True
  637.       AutoSize        =   -1  'True
  638.       BorderStyle     =   0  'None
  639.       Height          =   300
  640.       Index           =   7
  641.       Left            =   1560
  642.       Picture         =   "Fader.ctx":B81C
  643.       ScaleHeight     =   20
  644.       ScaleMode       =   3  'Pixel
  645.       ScaleWidth      =   30
  646.       TabIndex        =   5
  647.       Top             =   2700
  648.       Visible         =   0   'False
  649.       Width           =   450
  650.    End
  651.    Begin VB.PictureBox DLH 
  652.       AutoRedraw      =   -1  'True
  653.       AutoSize        =   -1  'True
  654.       BorderStyle     =   0  'None
  655.       Height          =   300
  656.       Index           =   6
  657.       Left            =   1560
  658.       Picture         =   "Fader.ctx":BF90
  659.       ScaleHeight     =   20
  660.       ScaleMode       =   3  'Pixel
  661.       ScaleWidth      =   30
  662.       TabIndex        =   4
  663.       Top             =   2340
  664.       Visible         =   0   'False
  665.       Width           =   450
  666.    End
  667.    Begin VB.PictureBox DLH 
  668.       AutoRedraw      =   -1  'True
  669.       AutoSize        =   -1  'True
  670.       BorderStyle     =   0  'None
  671.       Height          =   300
  672.       Index           =   5
  673.       Left            =   1560
  674.       Picture         =   "Fader.ctx":C704
  675.       ScaleHeight     =   20
  676.       ScaleMode       =   3  'Pixel
  677.       ScaleWidth      =   30
  678.       TabIndex        =   3
  679.       Top             =   1980
  680.       Visible         =   0   'False
  681.       Width           =   450
  682.    End
  683.    Begin VB.PictureBox DLH 
  684.       AutoRedraw      =   -1  'True
  685.       AutoSize        =   -1  'True
  686.       BorderStyle     =   0  'None
  687.       Height          =   300
  688.       Index           =   4
  689.       Left            =   1560
  690.       Picture         =   "Fader.ctx":CE78
  691.       ScaleHeight     =   20
  692.       ScaleMode       =   3  'Pixel
  693.       ScaleWidth      =   30
  694.       TabIndex        =   2
  695.       Top             =   1620
  696.       Visible         =   0   'False
  697.       Width           =   450
  698.    End
  699.    Begin VB.PictureBox DLH 
  700.       AutoRedraw      =   -1  'True
  701.       AutoSize        =   -1  'True
  702.       BorderStyle     =   0  'None
  703.       Height          =   300
  704.       Index           =   3
  705.       Left            =   1560
  706.       Picture         =   "Fader.ctx":D5EC
  707.       ScaleHeight     =   20
  708.       ScaleMode       =   3  'Pixel
  709.       ScaleWidth      =   30
  710.       TabIndex        =   1
  711.       Top             =   1260
  712.       Visible         =   0   'False
  713.       Width           =   450
  714.    End
  715.    Begin VB.PictureBox DraggerSource 
  716.       AutoRedraw      =   -1  'True
  717.       AutoSize        =   -1  'True
  718.       BorderStyle     =   0  'None
  719.       Height          =   225
  720.       Left            =   60
  721.       ScaleHeight     =   15
  722.       ScaleMode       =   3  'Pixel
  723.       ScaleWidth      =   22
  724.       TabIndex        =   0
  725.       Top             =   60
  726.       Visible         =   0   'False
  727.       Width           =   330
  728.    End
  729. End
  730. Attribute VB_Name = "Fader"
  731. Attribute VB_GlobalNameSpace = False
  732. Attribute VB_Creatable = True
  733. Attribute VB_PredeclaredId = False
  734. Attribute VB_Exposed = False
  735. Option Explicit
  736.  
  737. 'Original code by Mike Payne
  738.  
  739. '***************** Table of Procedures *************
  740. '   Private Sub UserControl_Initialize
  741. '   Private Sub UserControl_MouseMove
  742. '   Private Sub UserControl_MouseDown
  743. '   Private Sub UserControl_ReadProperties
  744. '   Private Sub UserControl_Resize
  745. '   Private Sub UserControl_WriteProperties
  746. '   Public Function OneIncrement
  747. '   Public Sub DrawPicAtValue
  748. '   Private Sub Redraw
  749. '   Public Property Get BackColor
  750. '   Public Property Let BackColor
  751. '   Public Property Get Border
  752. '   Public Property Let Border
  753. '   Public Property Get ButtonColor
  754. '   Public Property Let ButtonColor
  755. '   Public Property Get ButtonSize
  756. '   Public Property Let ButtonSize
  757. '   Public Property Let Enabled
  758. '   Public Property Get Enabled
  759. '   Public Property Get HalfMark
  760. '   Public Property Let HalfMark
  761. '   Public Property Get HalfMarkColor
  762. '   Public Property Let HalfMarkColor
  763. '   Public Property Get Max
  764. '   Public Property Let Max
  765. '   Public Property Get Min
  766. '   Public Property Let Min
  767. '   Public Property Get Style
  768. '   Public Property Let Style
  769. '   Public Property Get TickMarkColor
  770. '   Public Property Let TickMarkColor
  771. '   Public Property Get TickMarkCnt
  772. '   Public Property Let TickMarkCnt
  773. '   Public Property Get TickMarks
  774. '   Public Property Let TickMarks
  775. '   Public Property Get Value
  776. '   Public Property Let Value
  777. '***************** End of Table ********************
  778.  
  779. Event Scrolling()
  780.     Private Enum RasterOps
  781.         srccopy = &HCC0020
  782.          SRCAND = &H8800C6
  783.          SRCINVERT = &H660046
  784.          SRCPAINT = &HEE0086
  785.          SRCERASE = &H4400328
  786.          WHITENESS = &HFF0062
  787.          BLACKNESS = &H42
  788.     End Enum
  789.     
  790.     Public Enum eStyle
  791.        Vertical = 0
  792.        Horizontal = 1
  793.     End Enum
  794.     
  795.     Public Enum eButtonSize
  796.        Small = 0
  797.        Large = 1
  798.     End Enum
  799.     
  800.     Public Enum eBorder
  801.         None = 0
  802.         Fixedsingle = 1
  803.     End Enum
  804.  
  805.     Public Enum eButtonColor
  806.         Gray = 1
  807.         White = 2
  808.         Red = 3
  809.         Orange = 4
  810.         Yellow = 5
  811.         Green = 6
  812.         Cyan = 7
  813.         Blue = 8
  814.         Violet = 9
  815.         Black = 10
  816.     End Enum
  817.     
  818.     Private Declare Function BitBlt Lib "gdi32" ( _
  819.         ByVal hDestDC As Long, _
  820.         ByVal x As Long, _
  821.         ByVal Y As Long, _
  822.         ByVal nWidth As Long, _
  823.         ByVal nHeight As Long, _
  824.         ByVal hSrcDC As Long, _
  825.         ByVal xSrc As Long, _
  826.         ByVal ySrc As Long, _
  827.         ByVal dwRop As RasterOps _
  828.         ) As Long
  829.  
  830. ' Fader default properties are set here.
  831. ' Change them to suit your preferences.
  832. Const m_def_Border = Fixedsingle
  833. Const m_def_Max = 100
  834. Const m_def_Min = 0
  835. Const m_def_Value = 0
  836. Const m_def_Style = Vertical
  837. Const m_def_HalfMark = False
  838. Const m_def_HalfMarkColor = vbRed
  839. Const m_def_TickMarkColor = &H80000015
  840. Const m_def_BackColor = &H8000000F
  841. Const m_def_TickMarks = True
  842. Const m_def_TickMarkCnt = 5
  843. Const m_def_ButtonSize = Small
  844. Const m_def_ButtonColor = Gray
  845. Const m_def_Enabled = True
  846.  
  847. Const m_DisableButtonColor As Integer = 0
  848.  
  849. Dim m_Border As Integer
  850. Dim m_Value As Long
  851. Dim m_Max As Long
  852. Dim m_Min As Long
  853. Dim m_Style As eStyle
  854. Dim m_HalfMark As Boolean
  855. Dim m_HalfMarkColor As OLE_COLOR
  856. Dim m_TickMarkColor As OLE_COLOR
  857. Dim m_BackColor As OLE_COLOR
  858. Dim m_TickMarks As Boolean
  859. Dim m_TickMarkCnt As Long
  860. Dim m_ButtonSize As eButtonSize
  861. Dim m_ButtonColor As eButtonColor
  862. Dim m_Enabled As Boolean
  863.  
  864. Dim Faderheight As Integer
  865. Dim BottomBoundary As Integer
  866. Dim Faderwidth As Integer
  867. Dim LeftBoundary As Integer
  868.  
  869. Dim bAllowRedraw As Boolean
  870. Dim bResizeDone As Boolean
  871. Private Sub UserControl_Initialize()
  872.  
  873. ' Prevent all refresh/resizing until properties have been read.
  874. bAllowRedraw = False
  875. bResizeDone = False
  876.  
  877. BackColor = m_def_BackColor
  878. Max = m_def_Max
  879. Min = m_def_Min
  880. Value = m_def_Value
  881. ButtonColor = m_def_ButtonColor
  882. HalfMark = m_def_HalfMark
  883. HalfMarkColor = m_def_HalfMarkColor
  884. TickMarkColor = m_def_TickMarkColor
  885. TickMarks = m_def_TickMarks
  886. TickMarkCnt = m_def_TickMarkCnt
  887. Border = m_def_Border
  888. Enabled = m_def_Enabled
  889. Style = m_def_Style
  890. ButtonSize = m_def_ButtonSize
  891.  
  892. End Sub
  893. Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  894.  
  895. Call Scroll(Button, Shift, x, Y)
  896.  
  897. End Sub
  898. Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  899.  
  900. Call Scroll(Button, Shift, x, Y)
  901.  
  902. End Sub
  903. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  904.  
  905. bAllowRedraw = False
  906. Min = PropBag.ReadProperty("Min", m_def_Min)
  907. Max = PropBag.ReadProperty("Max", m_def_Max)
  908. Value = PropBag.ReadProperty("Value", m_def_Value)
  909. Style = PropBag.ReadProperty("Style", m_def_Style)
  910. HalfMark = PropBag.ReadProperty("HalfMark", m_def_HalfMark)
  911. HalfMarkColor = PropBag.ReadProperty("HalfMarkColor", m_def_HalfMarkColor)
  912. BackColor = PropBag.ReadProperty("BackColor", m_def_BackColor)
  913. TickMarks = PropBag.ReadProperty("TickMarks", m_def_TickMarks)
  914. TickMarkCnt = PropBag.ReadProperty("TickMarkCnt", m_def_TickMarkCnt)
  915. TickMarkColor = PropBag.ReadProperty("TickMarkColor", m_def_TickMarkColor)
  916. ButtonSize = PropBag.ReadProperty("ButtonSize", m_def_ButtonSize)
  917. ButtonColor = PropBag.ReadProperty("ButtonColor", m_def_ButtonColor)
  918. Border = PropBag.ReadProperty("Border", m_def_Border)
  919. Enabled = PropBag.ReadProperty("Enabled", m_def_Enabled)
  920. bAllowRedraw = True
  921.  
  922. Redraw
  923.  
  924. End Sub
  925. Private Sub UserControl_Resize()
  926.  
  927. If bResizeDone = False Then
  928.     ' If the Resize sub has not run yet, then
  929.     ' set Style based on aspect ratio.
  930.     ' For existing controls, the style won't change.
  931.     ' For new controls, if the aspect ratio indicates
  932.     ' a horizontal fader, the style will be changed
  933.     ' from vertical to horizontal.
  934.     If UserControl.Height < UserControl.Width Then
  935.         Style = Horizontal
  936.     End If
  937. End If
  938. bResizeDone = True
  939.  
  940. If m_Style = Vertical Then
  941.     Faderheight = UserControl.ScaleHeight - 1
  942.     Faderwidth = UserControl.ScaleWidth - 1
  943.     UserControl.Width = 335
  944. Else
  945.     Faderheight = UserControl.ScaleHeight - 1
  946.     Faderwidth = UserControl.ScaleWidth - 1
  947.     UserControl.Height = 335
  948. End If
  949.  
  950. ' If bAllowRedraw = False, new controls are not drawn, but
  951. ' existing ones are.
  952. bAllowRedraw = True
  953. Redraw
  954.  
  955. End Sub
  956. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  957.  
  958. Call PropBag.WriteProperty("Min", m_Min, m_def_Min)
  959. Call PropBag.WriteProperty("Max", m_Max, m_def_Max)
  960. Call PropBag.WriteProperty("Value", m_Value, m_def_Value)
  961. Call PropBag.WriteProperty("HalfMark", m_HalfMark, m_def_HalfMark)
  962. Call PropBag.WriteProperty("HalfMarkColor", m_HalfMarkColor, m_def_HalfMarkColor)
  963. Call PropBag.WriteProperty("BackColor", m_BackColor, m_def_BackColor)
  964. Call PropBag.WriteProperty("TickMarks", m_TickMarks, m_def_TickMarks)
  965. Call PropBag.WriteProperty("TickMarkCnt", m_TickMarkCnt, m_def_TickMarkCnt)
  966. Call PropBag.WriteProperty("TickMarkColor", m_TickMarkColor, m_def_TickMarkColor)
  967. Call PropBag.WriteProperty("ButtonSize", m_ButtonSize, m_def_ButtonSize)
  968. Call PropBag.WriteProperty("ButtonColor", m_ButtonColor, m_def_ButtonColor)
  969. Call PropBag.WriteProperty("Border", m_Border, m_def_Border)
  970. Call PropBag.WriteProperty("Style", m_Style, m_def_Style)
  971. Call PropBag.WriteProperty("Enabled", m_Enabled, m_def_Enabled)
  972.  
  973. End Sub
  974. Public Function OneIncrement() As Double
  975.  
  976. ' Calculate the pixel width of one unit of fader travel.
  977. If m_Style = Vertical Then
  978.     If m_ButtonSize = Small Then
  979.         OneIncrement = (BottomBoundary - 2) / (m_Max - m_Min)
  980.     Else
  981.         OneIncrement = (BottomBoundary - 2) / (m_Max - m_Min)
  982.     End If
  983. Else
  984.     If m_ButtonSize = Small Then
  985.         OneIncrement = (LeftBoundary - 2) / (m_Max - m_Min)
  986.     Else
  987.         OneIncrement = (LeftBoundary - 2) / (m_Max - m_Min)
  988.     End If
  989. End If
  990.  
  991. End Function
  992. Public Sub DrawPicAtValue(tValue As Long)
  993.  
  994. Dim NewY As Integer
  995. Dim NewX As Integer
  996. Dim oneX As Single
  997.  
  998. oneX = OneIncrement
  999. If m_Style = Vertical Then
  1000.     'Calculate new Y value of slider and draw it.
  1001.     If m_ButtonSize = Small Then
  1002.         NewY = 1 + (m_Max - tValue) * oneX
  1003.         If m_Enabled = True Then
  1004.             BitBlt UserControl.hDC, 1, NewY, DSV(m_ButtonColor).Width, DSV(m_ButtonColor).Height, DSV(m_ButtonColor).hDC, 0, 0, srccopy
  1005.         Else
  1006.             BitBlt UserControl.hDC, 1, NewY, DSV(m_DisableButtonColor).Width, DSV(m_DisableButtonColor).Height, DSV(m_DisableButtonColor).hDC, 0, 0, srccopy
  1007.         End If
  1008.     Else
  1009.         NewY = 1 + (m_Max - tValue) * oneX
  1010.         If m_Enabled = True Then
  1011.             BitBlt UserControl.hDC, 1, NewY, DLV(m_ButtonColor).Width, DLV(m_ButtonColor).Height, DLV(m_ButtonColor).hDC, 0, 0, srccopy
  1012.         Else
  1013.             BitBlt UserControl.hDC, 1, NewY, DLV(m_DisableButtonColor).Width, DLV(m_DisableButtonColor).Height, DLV(m_DisableButtonColor).hDC, 0, 0, srccopy
  1014.         End If
  1015.     End If
  1016. Else
  1017.     'Calculate new X value of slider and draw it.
  1018.     If m_ButtonSize = Small Then
  1019.         NewX = 1 + (tValue - m_Min) * oneX
  1020.         If m_Enabled = True Then
  1021.             BitBlt UserControl.hDC, NewX, 1, DSH(m_ButtonColor).Width, DSH(m_ButtonColor).Height, DSH(m_ButtonColor).hDC, 0, 0, srccopy
  1022.         Else
  1023.             BitBlt UserControl.hDC, NewX, 1, DSH(m_DisableButtonColor).Width, DSH(m_DisableButtonColor).Height, DSH(m_DisableButtonColor).hDC, 0, 0, srccopy
  1024.         End If
  1025.     Else
  1026.         NewX = 1 + (tValue - m_Min) * oneX
  1027.         If m_Enabled = True Then
  1028.             BitBlt UserControl.hDC, NewX, 1, DLH(m_ButtonColor).Width, DLH(m_ButtonColor).Height, DLH(m_ButtonColor).hDC, 0, 0, srccopy
  1029.         Else
  1030.             BitBlt UserControl.hDC, NewX, 1, DLH(m_DisableButtonColor).Width, DLH(m_DisableButtonColor).Height, DLH(m_DisableButtonColor).hDC, 0, 0, srccopy
  1031.         End If
  1032.     End If
  1033. End If
  1034.  
  1035. End Sub
  1036. Private Sub Redraw()
  1037.  
  1038. Dim iLoopCtr As Integer, iButtonCenter As Integer, sTickSpace As Single
  1039.  
  1040. ' When creating a new fader, skip redraw until mouse button is released
  1041. If bAllowRedraw = True Then
  1042.     UserControl.Cls
  1043.     UserControl.BackColor = m_BackColor
  1044.     ' The sub draws:
  1045.     ' Borders, tick marks, centerline, and fader center line
  1046.     If m_Style = Vertical Then
  1047.         ' Get button center and boundary.
  1048.         ' The boundary sets the position of the fader when value=min
  1049.         If m_ButtonSize = Small Then
  1050.             iButtonCenter = DSV(m_ButtonColor).Height / 2
  1051.             BottomBoundary = UserControl.ScaleHeight - 10
  1052.         Else
  1053.             iButtonCenter = DLV(m_ButtonColor).Height / 2
  1054.             BottomBoundary = UserControl.ScaleHeight - 30
  1055.         End If
  1056.         'Draw the border
  1057.         If m_Border = 1 Then
  1058.             UserControl.DrawWidth = 2
  1059.             UserControl.Line (1, 1)-(Faderwidth, Faderheight), vb3DHighlight, B      ' Light box
  1060.             UserControl.DrawWidth = 1
  1061.             UserControl.Line (0, 0)-(Faderwidth - 1, Faderheight - 1), vb3DShadow, B ' Dark box
  1062.         End If
  1063.         'Draw the tick marks
  1064.         If m_TickMarks = True Then
  1065.             ' If you want one the slider to snap to tick marks, set the number of tick marks
  1066.             ' to <Fader>.Max - <Fader>.Min - 1.
  1067.             ' TickMarkCnt is the number of tick marks in between the first and last one
  1068.             UserControl.Line (5, Faderheight - iButtonCenter)-(16, Faderheight - iButtonCenter), m_TickMarkColor, B
  1069.             UserControl.Line (5, iButtonCenter)-(16, iButtonCenter), m_TickMarkColor, B
  1070.             sTickSpace = (Faderheight - 2 * iButtonCenter) / (m_TickMarkCnt + 1)
  1071.             For iLoopCtr = 1 To m_TickMarkCnt
  1072.                 UserControl.Line (5, iLoopCtr * sTickSpace + iButtonCenter)-(16, iLoopCtr * sTickSpace + iButtonCenter), m_TickMarkColor, B
  1073.             Next iLoopCtr
  1074.         End If
  1075.         'Draw the halfmark
  1076.         If m_HalfMark = True Then
  1077.             UserControl.DrawWidth = 1
  1078.             UserControl.Line (1 - 1, Faderheight / 2)-(22 - 1 + 1, Faderheight / 2), m_HalfMarkColor, BF
  1079.             UserControl.DrawWidth = 1
  1080.         End If
  1081.         'Draw the center line
  1082.         UserControl.Line (9, iButtonCenter)-(12, Faderheight - iButtonCenter), vb3DHighlight, BF
  1083.         UserControl.Line (9, iButtonCenter)-(11, Faderheight - 1 - iButtonCenter), vb3DShadow, BF
  1084.         UserControl.Line (10, 1 + iButtonCenter)-(11, Faderheight - 1 - iButtonCenter), vb3DLight, BF
  1085.         UserControl.Line (10, 1 + iButtonCenter)-(10, Faderheight - 2 - iButtonCenter), vb3DDKShadow, B
  1086.     Else
  1087.         ' Get button center and boundary.
  1088.         ' The boundary sets the position of the fader when value=min
  1089.         If m_ButtonSize = Small Then
  1090.             iButtonCenter = DSH(m_ButtonColor).Width / 2
  1091.             LeftBoundary = UserControl.ScaleWidth - 10
  1092.         Else
  1093.             iButtonCenter = DLH(m_ButtonColor).Width / 2
  1094.             LeftBoundary = UserControl.ScaleWidth - 30
  1095.         End If
  1096.         'Draw the border
  1097.         If m_Border = 1 Then
  1098.             UserControl.DrawWidth = 2
  1099.             UserControl.Line (1, 1)-(Faderwidth, Faderheight), vb3DHighlight, B     ' Light box
  1100.             UserControl.DrawWidth = 1
  1101.             UserControl.Line (0, 0)-(Faderwidth - 1, Faderheight - 1), vb3DShadow, B ' Dark box
  1102.         End If
  1103.         'Draw the tick marks
  1104.         If m_TickMarks = True Then
  1105.             ' If you want one the slider to snap to tick marks, set the number of tick marks
  1106.             ' to <Fader>.Max - <Fader>.Min - 1.
  1107.             UserControl.Line (Faderwidth - iButtonCenter, 5)-(Faderwidth - iButtonCenter, 16), m_TickMarkColor, B
  1108.             UserControl.Line (iButtonCenter, 5)-(iButtonCenter, 16), m_TickMarkColor, B
  1109.             sTickSpace = (Faderwidth - 2 * iButtonCenter) / (m_TickMarkCnt + 1)
  1110.             For iLoopCtr = 1 To m_TickMarkCnt
  1111.                 UserControl.Line (iLoopCtr * sTickSpace + iButtonCenter, 5)-(iLoopCtr * sTickSpace + iButtonCenter, 16), m_TickMarkColor, B
  1112.             Next iLoopCtr
  1113.         End If
  1114.         'Draw the halfmark
  1115.         If m_HalfMark = True Then
  1116.             UserControl.DrawWidth = 1
  1117.             UserControl.Line (Faderwidth / 2, 1 - 1)-(Faderwidth / 2, 22 - 1 + 1), m_HalfMarkColor, BF
  1118.             UserControl.DrawWidth = 1
  1119.         End If
  1120.         'Draw the center line
  1121.         UserControl.Line (iButtonCenter, 9)-(Faderwidth - iButtonCenter, 12), vb3DHighlight, BF
  1122.         UserControl.Line (iButtonCenter, 9)-(Faderwidth - 1 - iButtonCenter, 11), vb3DShadow, BF
  1123.         UserControl.Line (1 + iButtonCenter, 10)-(Faderwidth - 2 - iButtonCenter, 11), vb3DLight, BF
  1124.         UserControl.Line (1 + iButtonCenter, 10)-(Faderwidth - 2 - iButtonCenter, 10), vb3DDKShadow, B
  1125.     End If
  1126.     ' Position and draw the button
  1127.     DrawPicAtValue m_Value
  1128. End If
  1129.  
  1130. End Sub
  1131. Public Sub Scroll(ByRef Button As Integer, ByRef Shift As Integer, ByRef x As Single, ByRef Y As Single)
  1132.  
  1133. Dim realY As Long
  1134. Dim realX As Long
  1135. Dim oneX As Double
  1136.  
  1137. If m_Enabled = True And bAllowRedraw = True Then
  1138.     oneX = OneIncrement
  1139.     If Button = 1 Then
  1140.         If m_Style = Vertical Then
  1141.             ' Determine the Y value of the mouse and convert to fader value.
  1142.             If m_ButtonSize = Small Then
  1143.                 realY = (Y - 5) / oneX
  1144.                 m_Value = m_Max - realY
  1145.             Else
  1146.                 realY = (Y - 15) / oneX
  1147.                 m_Value = m_Max - realY
  1148.             End If
  1149.         Else
  1150.             ' Determine the X value of the mouse and convert to fader value.
  1151.             If m_ButtonSize = Small Then
  1152.                 realX = (x - 5) / oneX
  1153.                 m_Value = realX + m_Min
  1154.             Else
  1155.                 ' Ok
  1156.                 realX = (x - 15) / oneX
  1157.                 m_Value = realX + m_Min
  1158.             End If
  1159.         End If
  1160.         If m_Value > m_Max Then
  1161.             m_Value = m_Max
  1162.         ElseIf m_Value < m_Min Then
  1163.             m_Value = m_Min
  1164.         End If
  1165.         Redraw
  1166.         RaiseEvent Scrolling
  1167.     End If
  1168. End If
  1169.  
  1170. End Sub
  1171. Public Property Get BackColor() As OLE_COLOR
  1172.  
  1173. Let BackColor = m_BackColor
  1174.  
  1175. End Property
  1176. Public Property Let BackColor(ByVal NewBackColor As OLE_COLOR)
  1177.  
  1178. Let m_BackColor = NewBackColor
  1179. PropertyChanged "BackColor"
  1180. Redraw
  1181.  
  1182. End Property
  1183. Public Property Get Border() As eBorder
  1184.  
  1185. Let Border = m_Border
  1186.  
  1187. End Property
  1188. Public Property Let Border(ByVal NewBorder As eBorder)
  1189.  
  1190. Let m_Border = NewBorder
  1191. PropertyChanged "Border"
  1192. Redraw
  1193.  
  1194. End Property
  1195. Public Property Get ButtonColor() As eButtonColor
  1196.  
  1197. Let ButtonColor = m_ButtonColor
  1198.  
  1199. End Property
  1200. Public Property Let ButtonColor(ByVal NewButtonColor As eButtonColor)
  1201.  
  1202. Let m_ButtonColor = NewButtonColor
  1203. PropertyChanged "ButtonColor"
  1204. Redraw
  1205.  
  1206. End Property
  1207. Public Property Get ButtonSize() As eButtonSize
  1208.  
  1209. Let ButtonSize = m_ButtonSize
  1210.  
  1211. End Property
  1212. Public Property Let ButtonSize(ByVal NewButtonSize As eButtonSize)
  1213.  
  1214. Let m_ButtonSize = NewButtonSize
  1215. PropertyChanged "ButtonSize"
  1216. Redraw
  1217.  
  1218. End Property
  1219. Public Property Get Enabled() As Boolean
  1220.  
  1221. Let Enabled = m_Enabled
  1222.  
  1223. End Property
  1224. Public Property Let Enabled(ByVal NewEnabled As Boolean)
  1225.  
  1226. Let m_Enabled = NewEnabled
  1227. PropertyChanged "Enabled"
  1228. Redraw
  1229.  
  1230. End Property
  1231. Public Property Get HalfMark() As Boolean
  1232. Attribute HalfMark.VB_Description = "Show half tick mark or not."
  1233.  
  1234. Let HalfMark = m_HalfMark
  1235.  
  1236. End Property
  1237. Public Property Let HalfMark(ByVal NewHalfMark As Boolean)
  1238.  
  1239. Let m_HalfMark = NewHalfMark
  1240. PropertyChanged "HalfMark"
  1241. Redraw
  1242.  
  1243. End Property
  1244. Public Property Get HalfMarkColor() As OLE_COLOR
  1245. Attribute HalfMarkColor.VB_Description = "Color of the half mark tick"
  1246.  
  1247. Let HalfMarkColor = m_HalfMarkColor
  1248.  
  1249. End Property
  1250. Public Property Let HalfMarkColor(ByVal NewHalfMarkColor As OLE_COLOR)
  1251.  
  1252. Let m_HalfMarkColor = NewHalfMarkColor
  1253. PropertyChanged "HalfMarkColor"
  1254. Redraw
  1255.  
  1256. End Property
  1257. Public Property Get Max() As Long
  1258. Attribute Max.VB_Description = "Scale maximum you want eg. 100"
  1259.  
  1260. Let Max = m_Max
  1261.  
  1262. End Property
  1263. Public Property Let Max(NewMax As Long)
  1264.  
  1265. Let m_Max = NewMax
  1266.  
  1267. If m_Value > m_Max Then
  1268.     Value = m_Max
  1269. End If
  1270.  
  1271. PropertyChanged "Max"
  1272. Redraw
  1273.  
  1274. End Property
  1275. Public Property Get Min() As Long
  1276.  
  1277. Let Min = m_Min
  1278.  
  1279. End Property
  1280. Public Property Let Min(NewMin As Long)
  1281.  
  1282. Let m_Min = NewMin
  1283.  
  1284. If m_Value < m_Min Then
  1285.     Value = m_Min
  1286. End If
  1287.  
  1288. PropertyChanged "Min"
  1289. Redraw
  1290.  
  1291. End Property
  1292. Public Property Get Style() As eStyle
  1293. Attribute Style.VB_Description = "Vertical or Horizontal"
  1294.  
  1295. Let Style = m_Style
  1296.  
  1297. End Property
  1298. Public Property Let Style(ByVal NewStyle As eStyle)
  1299.  
  1300. Let m_Style = NewStyle
  1301. If m_Style = Vertical Then
  1302.     If m_ButtonSize = Small Then
  1303.         DraggerSource.Picture = DSV(m_ButtonColor).Picture
  1304.     Else
  1305.         DraggerSource.Picture = DLV(m_ButtonColor).Picture
  1306.     End If
  1307. Else
  1308.     If m_ButtonSize = Small Then
  1309.         DraggerSource.Picture = DSH(m_ButtonColor).Picture
  1310.     Else
  1311.         DraggerSource.Picture = DLH(m_ButtonColor).Picture
  1312.     End If
  1313. End If
  1314.  
  1315. PropertyChanged "Style"
  1316.  
  1317. If bResizeDone = True Then
  1318.     ' bResizeDone is true when the control has been
  1319.     ' drawn. When the user changes the Style,
  1320.     ' swapping the dimensions will prevent the
  1321.     ' control from being redrawn as a small square.
  1322.     Dim i As Integer
  1323.     i = UserControl.Height
  1324.     UserControl.Height = UserControl.Width
  1325.     UserControl.Width = i
  1326. End If
  1327.  
  1328. If bAllowRedraw = True Then
  1329.     UserControl_Resize
  1330. End If
  1331.  
  1332. End Property
  1333. Public Property Get TickMarkCnt() As Long
  1334. Attribute TickMarkCnt.VB_Description = "The spacing between the marks. The larger the number , the farther apart they are."
  1335.  
  1336. Let TickMarkCnt = m_TickMarkCnt
  1337.  
  1338. End Property
  1339. Public Property Let TickMarkCnt(ByVal NewTickMarkCnt As Long)
  1340.  
  1341. Let m_TickMarkCnt = NewTickMarkCnt
  1342.  
  1343. If m_TickMarkCnt > m_Max Then
  1344.     TickMarkCnt = m_Max
  1345. ElseIf m_TickMarkCnt < 0 Then
  1346.     TickMarkCnt = 0
  1347. End If
  1348.  
  1349. PropertyChanged "TickMarkCnt"
  1350. Redraw
  1351.  
  1352. End Property
  1353. Public Property Get TickMarkColor() As OLE_COLOR
  1354.  
  1355. Let TickMarkColor = m_TickMarkColor
  1356.  
  1357. End Property
  1358. Public Property Let TickMarkColor(ByVal NewTickMarkColor As OLE_COLOR)
  1359.  
  1360. Let m_TickMarkColor = NewTickMarkColor
  1361. PropertyChanged "TickMarkColor"
  1362. Redraw
  1363.  
  1364. End Property
  1365. Public Property Get TickMarks() As Boolean
  1366. Attribute TickMarks.VB_Description = "Show tick marks or not."
  1367.  
  1368. Let TickMarks = m_TickMarks
  1369.  
  1370. End Property
  1371. Public Property Let TickMarks(ByVal NewTickMarks As Boolean)
  1372.  
  1373. Let m_TickMarks = NewTickMarks
  1374. PropertyChanged "TickMarks"
  1375. Redraw
  1376.  
  1377. End Property
  1378. Public Property Get Value() As Long
  1379. Attribute Value.VB_Description = "The current cursor position value."
  1380.  
  1381. Let Value = m_Value
  1382.  
  1383. End Property
  1384. Public Property Let Value(NewValue As Long)
  1385.  
  1386. Let m_Value = NewValue
  1387.  
  1388. If m_Value < m_Min Then
  1389.     Value = m_Min
  1390. ElseIf m_Value > m_Max Then
  1391.     Value = m_Max
  1392. End If
  1393.  
  1394. PropertyChanged "Value"
  1395. Redraw
  1396.  
  1397. End Property
  1398.