home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / lgavb25 / lgscales.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-07  |  17.5 KB  |  524 lines
  1. VERSION 2.00
  2. Begin Form ScaleDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Scales"
  6.    ClientHeight    =   3315
  7.    ClientLeft      =   2430
  8.    ClientTop       =   2595
  9.    ClientWidth     =   8625
  10.    Height          =   3675
  11.    Left            =   2370
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3315
  17.    ScaleWidth      =   8625
  18.    Top             =   2295
  19.    Width           =   8745
  20.    Begin Frame Frame6 
  21.       BackColor       =   &H00C0C0C0&
  22.       Caption         =   "Orientation"
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "Arial"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   855
  30.       Left            =   6930
  31.       TabIndex        =   10
  32.       Top             =   120
  33.       Width           =   1560
  34.       Begin OptionButton Option3 
  35.          BackColor       =   &H00C0C0C0&
  36.          Caption         =   "Vertical"
  37.          FontBold        =   0   'False
  38.          FontItalic      =   0   'False
  39.          FontName        =   "MS Sans Serif"
  40.          FontSize        =   8.25
  41.          FontStrikethru  =   0   'False
  42.          FontUnderline   =   0   'False
  43.          Height          =   195
  44.          Index           =   1
  45.          Left            =   150
  46.          TabIndex        =   11
  47.          Top             =   510
  48.          Width           =   1275
  49.       End
  50.       Begin OptionButton Option3 
  51.          BackColor       =   &H00C0C0C0&
  52.          Caption         =   "Horizontal"
  53.          FontBold        =   0   'False
  54.          FontItalic      =   0   'False
  55.          FontName        =   "MS Sans Serif"
  56.          FontSize        =   8.25
  57.          FontStrikethru  =   0   'False
  58.          FontUnderline   =   0   'False
  59.          Height          =   195
  60.          Index           =   0
  61.          Left            =   150
  62.          TabIndex        =   12
  63.          Top             =   270
  64.          Value           =   -1  'True
  65.          Width           =   1275
  66.       End
  67.    End
  68.    Begin LGAUGE LGauge1 
  69.       AutoRedraw      =   -1  'True
  70.       AVersion        =   2.501
  71.       BackColor       =   &H00C0C0C0&
  72.       BandID          =   1
  73.       Bands           =   2
  74.       BevelInner      =   0  ' 0 - None
  75.       BevelOuter      =   2  ' 2 - Inset
  76.       BevelWidth      =   2
  77.       BorderWidth     =   0
  78.       CaptionID       =   0
  79.       Captions        =   0
  80.       FontID          =   0
  81.       Height          =   3045
  82.       Left            =   180
  83.       Orientation     =   0  ' 0 - Horizontal
  84.       PointerID       =   0
  85.       Pointers        =   2
  86.       ScaleID         =   0
  87.       Scales          =   2
  88.       TabIndex        =   13
  89.       TicID           =   3
  90.       Tics            =   4
  91.       Top             =   120
  92.       Width           =   3885
  93.       ZLoad           =   LGSCALES.FRX:0000
  94.    End
  95.    Begin Frame Frame1 
  96.       BackColor       =   &H00C0C0C0&
  97.       Caption         =   "Scale ID"
  98.       FontBold        =   -1  'True
  99.       FontItalic      =   0   'False
  100.       FontName        =   "Arial"
  101.       FontSize        =   8.25
  102.       FontStrikethru  =   0   'False
  103.       FontUnderline   =   0   'False
  104.       Height          =   855
  105.       Left            =   4200
  106.       TabIndex        =   0
  107.       Top             =   120
  108.       Width           =   1035
  109.       Begin OptionButton Option1 
  110.          BackColor       =   &H00C0C0C0&
  111.          Caption         =   "1"
  112.          FontBold        =   -1  'True
  113.          FontItalic      =   0   'False
  114.          FontName        =   "System"
  115.          FontSize        =   9.75
  116.          FontStrikethru  =   0   'False
  117.          FontUnderline   =   0   'False
  118.          Height          =   255
  119.          Index           =   1
  120.          Left            =   165
  121.          TabIndex        =   2
  122.          Top             =   510
  123.          Width           =   615
  124.       End
  125.       Begin OptionButton Option1 
  126.          BackColor       =   &H00C0C0C0&
  127.          Caption         =   "0"
  128.          FontBold        =   -1  'True
  129.          FontItalic      =   0   'False
  130.          FontName        =   "System"
  131.          FontSize        =   9.75
  132.          FontStrikethru  =   0   'False
  133.          FontUnderline   =   0   'False
  134.          Height          =   255
  135.          Index           =   0
  136.          Left            =   165
  137.          TabIndex        =   1
  138.          Top             =   255
  139.          Value           =   -1  'True
  140.          Width           =   615
  141.       End
  142.    End
  143.    Begin Frame Frame5 
  144.       BackColor       =   &H00C0C0C0&
  145.       Caption         =   "Scale Position Properties"
  146.       FontBold        =   -1  'True
  147.       FontItalic      =   0   'False
  148.       FontName        =   "Arial"
  149.       FontSize        =   8.25
  150.       FontStrikethru  =   0   'False
  151.       FontUnderline   =   0   'False
  152.       Height          =   1035
  153.       Left            =   4200
  154.       TabIndex        =   3
  155.       Top             =   2145
  156.       Width           =   4305
  157.       Begin HScrollBar HScroll1 
  158.          Height          =   240
  159.          Index           =   2
  160.          Left            =   1470
  161.          Max             =   100
  162.          TabIndex        =   4
  163.          Top             =   345
  164.          Width           =   2400
  165.       End
  166.       Begin HScrollBar HScroll1 
  167.          Height          =   240
  168.          Index           =   3
  169.          Left            =   1470
  170.          Max             =   100
  171.          TabIndex        =   5
  172.          Top             =   585
  173.          Width           =   2400
  174.       End
  175.       Begin Label Label2 
  176.          AutoSize        =   -1  'True
  177.          BackStyle       =   0  'Transparent
  178.          Caption         =   " 0"
  179.          Height          =   195
  180.          Index           =   3
  181.          Left            =   3885
  182.          TabIndex        =   6
  183.          Top             =   615
  184.          Width           =   180
  185.       End
  186.       Begin Label Label2 
  187.          AutoSize        =   -1  'True
  188.          BackStyle       =   0  'Transparent
  189.          Caption         =   " 0"
  190.          Height          =   195
  191.          Index           =   2
  192.          Left            =   3885
  193.          TabIndex        =   7
  194.          Top             =   375
  195.          Width           =   180
  196.       End
  197.       Begin Label Label1 
  198.          Alignment       =   1  'Right Justify
  199.          AutoSize        =   -1  'True
  200.          BackStyle       =   0  'Transparent
  201.          Caption         =   "ScalePositionStart:"
  202.          FontBold        =   0   'False
  203.          FontItalic      =   0   'False
  204.          FontName        =   "Arial"
  205.          FontSize        =   8.25
  206.          FontStrikethru  =   0   'False
  207.          FontUnderline   =   0   'False
  208.          Height          =   210
  209.          Index           =   4
  210.          Left            =   120
  211.          TabIndex        =   8
  212.          Top             =   330
  213.          Width           =   1350
  214.       End
  215.       Begin Label Label1 
  216.          Alignment       =   1  'Right Justify
  217.          AutoSize        =   -1  'True
  218.          BackStyle       =   0  'Transparent
  219.          Caption         =   "ScalePositionStop:"
  220.          FontBold        =   0   'False
  221.          FontItalic      =   0   'False
  222.          FontName        =   "Arial"
  223.          FontSize        =   8.25
  224.          FontStrikethru  =   0   'False
  225.          FontUnderline   =   0   'False
  226.          Height          =   210
  227.          Index           =   5
  228.          Left            =   120
  229.          TabIndex        =   9
  230.          Top             =   585
  231.          Width           =   1335
  232.       End
  233.    End
  234.    Begin Frame Frame3 
  235.       BackColor       =   &H00C0C0C0&
  236.       Caption         =   "Scale Limit Properties"
  237.       FontBold        =   -1  'True
  238.       FontItalic      =   0   'False
  239.       FontName        =   "Arial"
  240.       FontSize        =   8.25
  241.       FontStrikethru  =   0   'False
  242.       FontUnderline   =   0   'False
  243.       Height          =   1035
  244.       Left            =   4200
  245.       TabIndex        =   17
  246.       Top             =   1035
  247.       Width           =   4305
  248.       Begin HScrollBar HScroll1 
  249.          Height          =   240
  250.          Index           =   0
  251.          Left            =   1470
  252.          Max             =   100
  253.          TabIndex        =   19
  254.          Top             =   345
  255.          Width           =   2400
  256.       End
  257.       Begin HScrollBar HScroll1 
  258.          Height          =   240
  259.          Index           =   1
  260.          Left            =   1470
  261.          Max             =   100
  262.          TabIndex        =   18
  263.          Top             =   585
  264.          Width           =   2400
  265.       End
  266.       Begin Label Label2 
  267.          AutoSize        =   -1  'True
  268.          BackStyle       =   0  'Transparent
  269.          Caption         =   " 0"
  270.          Height          =   195
  271.          Index           =   0
  272.          Left            =   3900
  273.          TabIndex        =   23
  274.          Top             =   390
  275.          Width           =   180
  276.       End
  277.       Begin Label Label1 
  278.          Alignment       =   1  'Right Justify
  279.          AutoSize        =   -1  'True
  280.          BackStyle       =   0  'Transparent
  281.          Caption         =   "Scale Max:"
  282.          FontBold        =   0   'False
  283.          FontItalic      =   0   'False
  284.          FontName        =   "Arial"
  285.          FontSize        =   8.25
  286.          FontStrikethru  =   0   'False
  287.          FontUnderline   =   0   'False
  288.          Height          =   210
  289.          Index           =   0
  290.          Left            =   660
  291.          TabIndex        =   22
  292.          Top             =   330
  293.          Width           =   795
  294.       End
  295.       Begin Label Label1 
  296.          Alignment       =   1  'Right Justify
  297.          AutoSize        =   -1  'True
  298.          BackStyle       =   0  'Transparent
  299.          Caption         =   "Scale Min:"
  300.          FontBold        =   0   'False
  301.          FontItalic      =   0   'False
  302.          FontName        =   "Arial"
  303.          FontSize        =   8.25
  304.          FontStrikethru  =   0   'False
  305.          FontUnderline   =   0   'False
  306.          Height          =   210
  307.          Index           =   1
  308.          Left            =   690
  309.          TabIndex        =   21
  310.          Top             =   585
  311.          Width           =   735
  312.       End
  313.       Begin Label Label2 
  314.          AutoSize        =   -1  'True
  315.          BackStyle       =   0  'Transparent
  316.          Caption         =   " 0"
  317.          Height          =   195
  318.          Index           =   1
  319.          Left            =   3900
  320.          TabIndex        =   20
  321.          Top             =   630
  322.          Width           =   180
  323.       End
  324.    End
  325.    Begin Frame Frame2 
  326.       BackColor       =   &H00C0C0C0&
  327.       Caption         =   "Scale Direction"
  328.       FontBold        =   -1  'True
  329.       FontItalic      =   0   'False
  330.       FontName        =   "Arial"
  331.       FontSize        =   8.25
  332.       FontStrikethru  =   0   'False
  333.       FontUnderline   =   0   'False
  334.       Height          =   855
  335.       Index           =   0
  336.       Left            =   5310
  337.       TabIndex        =   14
  338.       Top             =   120
  339.       Width           =   1560
  340.       Begin OptionButton Option2 
  341.          BackColor       =   &H00C0C0C0&
  342.          Caption         =   "Backward"
  343.          FontBold        =   0   'False
  344.          FontItalic      =   0   'False
  345.          FontName        =   "Arial"
  346.          FontSize        =   8.25
  347.          FontStrikethru  =   0   'False
  348.          FontUnderline   =   0   'False
  349.          Height          =   240
  350.          Index           =   1
  351.          Left            =   150
  352.          TabIndex        =   16
  353.          Top             =   510
  354.          Width           =   1335
  355.       End
  356.       Begin OptionButton Option2 
  357.          BackColor       =   &H00C0C0C0&
  358.          Caption         =   "Forward"
  359.          FontBold        =   0   'False
  360.          FontItalic      =   0   'False
  361.          FontName        =   "Arial"
  362.          FontSize        =   8.25
  363.          FontStrikethru  =   0   'False
  364.          FontUnderline   =   0   'False
  365.          Height          =   240
  366.          Index           =   0
  367.          Left            =   150
  368.          TabIndex        =   15
  369.          Top             =   270
  370.          Value           =   -1  'True
  371.          Width           =   1245
  372.       End
  373.    End
  374. Sub Form_Load ()
  375.     hscroll1(0) = lgauge1.ScaleMax
  376.     hscroll1(1) = lgauge1.ScaleMin
  377.     hscroll1(2) = lgauge1.ScalePositionStart * 100
  378.     hscroll1(3) = lgauge1.ScalePositionStop * 100
  379.     option2(lgauge1.ScaleDirection) = True
  380. End Sub
  381. Sub HScroll1_Change (index As Integer)
  382.     Select Case index
  383.         Case 0
  384.             If lgauge1.ScaleMin < hscroll1(0) Then
  385.                 lgauge1.ScaleMax = hscroll1(0)
  386.             Else
  387.                 hscroll1(0) = lgauge1.ScaleMin
  388.             End If
  389.             
  390.             If lgauge1.ScaleID = 0 Then
  391.                 lgauge1.TicID = 0
  392.                 lgauge1.TicStop = hscroll1(0)
  393.                 lgauge1.TicID = 1
  394.                 lgauge1.TicStop = hscroll1(0)
  395.             Else
  396.                 lgauge1.TicID = 2
  397.                 lgauge1.TicStop = hscroll1(0)
  398.                 lgauge1.TicID = 3
  399.                 lgauge1.TicStop = hscroll1(0)
  400.             End If
  401.             
  402.             lgauge1.PointerID = lgauge1.ScaleID
  403.             If lgauge1.PointerValue > hscroll1(0) Then
  404.                 lgauge1.PointerValue = hscroll1(0)
  405.             End If
  406.             
  407.             lgauge1.BandID = lgauge1.ScaleID
  408.             lgauge1.BandStop = lgauge1.ScaleMax
  409.             label2(0) = hscroll1(0)
  410.         Case 1
  411.             If lgauge1.ScaleMax > hscroll1(1) Then
  412.                 lgauge1.ScaleMin = hscroll1(1)
  413.             Else
  414.                 hscroll1(1) = lgauge1.ScaleMax
  415.             End If
  416.             
  417.             If lgauge1.ScaleID = 0 Then
  418.                 lgauge1.TicID = 0
  419.                 lgauge1.TicStart = hscroll1(1)
  420.                 lgauge1.TicID = 1
  421.                 lgauge1.TicStart = hscroll1(1)
  422.             Else
  423.                 lgauge1.TicID = 2
  424.                 lgauge1.TicStart = hscroll1(1)
  425.                 lgauge1.TicID = 3
  426.                 lgauge1.TicStart = hscroll1(1)
  427.             End If
  428.             
  429.             lgauge1.PointerID = lgauge1.ScaleID
  430.             If lgauge1.PointerValue < hscroll1(1) Then
  431.                 lgauge1.PointerValue = hscroll1(1)
  432.             End If
  433.             
  434.             lgauge1.BandID = lgauge1.ScaleID
  435.             lgauge1.BandStart = lgauge1.ScaleMin
  436.             label2(1) = hscroll1(1)
  437.         Case 2
  438.             lgauge1.ScalePositionStart = hscroll1(2) / 100
  439.             label2(2) = hscroll1(2) / 100
  440.         Case 3
  441.             lgauge1.ScalePositionStop = hscroll1(3) / 100
  442.             label2(3) = hscroll1(3) / 100
  443.     End Select
  444. End Sub
  445. Sub HScroll1_Scroll (index As Integer)
  446.     Select Case index
  447.         Case 0
  448.             If lgauge1.ScaleMin < hscroll1(0) Then
  449.                 lgauge1.ScaleMax = hscroll1(0)
  450.             Else
  451.                 hscroll1(0) = lgauge1.ScaleMin
  452.             End If
  453.             
  454.             If lgauge1.ScaleID = 0 Then
  455.                 lgauge1.TicID = 0
  456.                 lgauge1.TicStop = hscroll1(0)
  457.                 lgauge1.TicID = 1
  458.                 lgauge1.TicStop = hscroll1(0)
  459.             Else
  460.                 lgauge1.TicID = 2
  461.                 lgauge1.TicStop = hscroll1(0)
  462.                 lgauge1.TicID = 3
  463.                 lgauge1.TicStop = hscroll1(0)
  464.             End If
  465.             
  466.             lgauge1.PointerID = lgauge1.ScaleID
  467.             If lgauge1.PointerValue > hscroll1(0) Then
  468.                 lgauge1.PointerValue = hscroll1(0)
  469.             End If
  470.             
  471.             lgauge1.BandID = lgauge1.ScaleID
  472.             lgauge1.BandStop = lgauge1.ScaleMax
  473.             label2(0) = hscroll1(0)
  474.         Case 1
  475.             If lgauge1.ScaleMax > hscroll1(1) Then
  476.                 lgauge1.ScaleMin = hscroll1(1)
  477.             Else
  478.                 hscroll1(1) = lgauge1.ScaleMax
  479.             End If
  480.             
  481.             If lgauge1.ScaleID = 0 Then
  482.                 lgauge1.TicID = 0
  483.                 lgauge1.TicStart = hscroll1(1)
  484.                 lgauge1.TicID = 1
  485.                 lgauge1.TicStart = hscroll1(1)
  486.             Else
  487.                 lgauge1.TicID = 2
  488.                 lgauge1.TicStart = hscroll1(1)
  489.                 lgauge1.TicID = 3
  490.                 lgauge1.TicStart = hscroll1(1)
  491.             End If
  492.             
  493.             lgauge1.PointerID = lgauge1.ScaleID
  494.             If lgauge1.PointerValue < hscroll1(1) Then
  495.                 lgauge1.PointerValue = hscroll1(1)
  496.             End If
  497.             
  498.             lgauge1.BandID = lgauge1.ScaleID
  499.             lgauge1.BandStart = lgauge1.ScaleMin
  500.             label2(1) = hscroll1(1)
  501.         Case 2
  502.             lgauge1.ScalePositionStart = hscroll1(2) / 100
  503.             label2(2) = hscroll1(2) / 100
  504.         Case 3
  505.             lgauge1.ScalePositionStop = hscroll1(3) / 100
  506.             label2(3) = hscroll1(3) / 100
  507.     End Select
  508. End Sub
  509. Sub Option1_Click (index As Integer)
  510.     lgauge1.ScaleID = index
  511.     hscroll1(0) = lgauge1.ScaleMax
  512.     hscroll1(1) = lgauge1.ScaleMin
  513.     hscroll1(2) = lgauge1.ScalePositionStart * 100
  514.     hscroll1(3) = lgauge1.ScalePositionStop * 100
  515.     option2(lgauge1.ScaleDirection) = True
  516.     option2(lgauge1.Orientation) = True
  517. End Sub
  518. Sub Option2_Click (index As Integer)
  519.     lgauge1.ScaleDirection = index
  520. End Sub
  521. Sub Option3_Click (index As Integer)
  522.     lgauge1.Orientation = index
  523. End Sub
  524.