home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / KNOBVB25.ZIP / VB.ZIP / KSNAP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-17  |  11.7 KB  |  363 lines
  1. VERSION 2.00
  2. Begin Form SnapDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Knob Snap and Multiturn Properties Demo"
  6.    ClientHeight    =   3885
  7.    ClientLeft      =   1485
  8.    ClientTop       =   1995
  9.    ClientWidth     =   8430
  10.    Height          =   4290
  11.    Left            =   1425
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   259
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   562
  19.    Top             =   1650
  20.    Width           =   8550
  21.    Begin KNOB Knob1 
  22.       Angle           =   0
  23.       AutoRedraw      =   -1  'True
  24.       AVersion        =   2.5
  25.       BackgroundColor =   &H00C0C0C0&
  26.       BevelInner      =   1  ' 1 - Raised
  27.       BevelOuter      =   2  ' 2 - Inset
  28.       BevelWidth      =   2
  29.       BorderType      =   2  ' 2 - Outline
  30.       BorderWidth     =   2
  31.       Digital         =   -1  'True
  32.       DigitalColor    =   &H00FFFFFF&
  33.       DigitalDecimals =   1
  34.       DigitalFontID   =   0
  35.       DigitalX        =   0
  36.       DigitalY        =   0
  37.       FontID          =   0
  38.       FrameColor      =   &H00404040&
  39.       FrameScaleX     =   1.1
  40.       FrameScaleY     =   1
  41.       FrameStyle      =   1  ' 1 - Circle
  42.       Height          =   3615
  43.       KnobColor       =   &H00404040&
  44.       KnobMultiTurn   =   -1  'True
  45.       KnobMultiTurnValue=   10
  46.       KnobRadius      =   0.6
  47.       KnobSnap        =   -1  'True
  48.       KnobSnapIncrement=   1
  49.       KnobStyle       =   1  ' 1 - Pointer
  50.       KnobUserDefined =   "0,1000,200,800,50,700,500,-600,0,-500,-500,-600,-50,700,-200,800"
  51.       KnobValue       =   0
  52.       Left            =   75
  53.       MarkUserDefined =   ""
  54.       MouseControl    =   -1  'True
  55.       OutlineAlign    =   0  ' 0 - Left 
  56.       OutlineColor    =   &H000000C0&
  57.       OutlineTitle    =   "Snap/Multiturn Demonstration"
  58.       OutlineWidth    =   2
  59.       Radius          =   0
  60.       TabIndex        =   0
  61.       Top             =   120
  62.       Value           =   0
  63.       Width           =   3705
  64.       XScale          =   0
  65.       YScale          =   0
  66.       ZLoad           =   KSNAP.FRX:0000
  67.    End
  68.    Begin Frame Frame1 
  69.       BackColor       =   &H00C0C0C0&
  70.       Caption         =   "Snap Properties"
  71.       FontBold        =   -1  'True
  72.       FontItalic      =   0   'False
  73.       FontName        =   "Arial"
  74.       FontSize        =   8.25
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   930
  78.       Index           =   1
  79.       Left            =   3990
  80.       TabIndex        =   1
  81.       Top             =   1500
  82.       Width           =   4300
  83.       Begin HScrollBar HScroll1 
  84.          Height          =   240
  85.          Index           =   1
  86.          LargeChange     =   2
  87.          Left            =   1860
  88.          Max             =   20
  89.          TabIndex        =   3
  90.          Top             =   555
  91.          Width           =   2000
  92.       End
  93.       Begin CheckBox Check3 
  94.          BackColor       =   &H00C0C0C0&
  95.          Caption         =   "KnobSnap"
  96.          FontBold        =   0   'False
  97.          FontItalic      =   0   'False
  98.          FontName        =   "Arial"
  99.          FontSize        =   8.25
  100.          FontStrikethru  =   0   'False
  101.          FontUnderline   =   0   'False
  102.          Height          =   255
  103.          Left            =   360
  104.          TabIndex        =   2
  105.          Top             =   300
  106.          Width           =   1125
  107.       End
  108.       Begin Label Label2 
  109.          AutoSize        =   -1  'True
  110.          BackStyle       =   0  'Transparent
  111.          Caption         =   "0"
  112.          Height          =   195
  113.          Index           =   1
  114.          Left            =   3930
  115.          TabIndex        =   5
  116.          Top             =   585
  117.          Width           =   120
  118.       End
  119.       Begin Label Label1 
  120.          AutoSize        =   -1  'True
  121.          BackStyle       =   0  'Transparent
  122.          Caption         =   "KnobSnapIncrement:"
  123.          FontBold        =   0   'False
  124.          FontItalic      =   0   'False
  125.          FontName        =   "Arial"
  126.          FontSize        =   8.25
  127.          FontStrikethru  =   0   'False
  128.          FontUnderline   =   0   'False
  129.          Height          =   210
  130.          Index           =   0
  131.          Left            =   360
  132.          TabIndex        =   4
  133.          Top             =   570
  134.          Width           =   1500
  135.       End
  136.    End
  137.    Begin Frame Frame1 
  138.       BackColor       =   &H00C0C0C0&
  139.       Caption         =   "Multiturn Properties"
  140.       FontBold        =   -1  'True
  141.       FontItalic      =   0   'False
  142.       FontName        =   "Arial"
  143.       FontSize        =   8.25
  144.       FontStrikethru  =   0   'False
  145.       FontUnderline   =   0   'False
  146.       Height          =   930
  147.       Index           =   0
  148.       Left            =   3990
  149.       TabIndex        =   6
  150.       Top             =   2490
  151.       Width           =   4300
  152.       Begin HScrollBar HScroll1 
  153.          Height          =   240
  154.          Index           =   0
  155.          LargeChange     =   100
  156.          Left            =   1845
  157.          Max             =   2000
  158.          SmallChange     =   100
  159.          TabIndex        =   10
  160.          Top             =   555
  161.          Width           =   2000
  162.       End
  163.       Begin CheckBox Check2 
  164.          BackColor       =   &H00C0C0C0&
  165.          Caption         =   "KnobMultiturn"
  166.          FontBold        =   0   'False
  167.          FontItalic      =   0   'False
  168.          FontName        =   "Arial"
  169.          FontSize        =   8.25
  170.          FontStrikethru  =   0   'False
  171.          FontUnderline   =   0   'False
  172.          Height          =   285
  173.          Left            =   360
  174.          TabIndex        =   7
  175.          Top             =   300
  176.          Width           =   1335
  177.       End
  178.       Begin Label Label2 
  179.          AutoSize        =   -1  'True
  180.          BackStyle       =   0  'Transparent
  181.          Caption         =   "0"
  182.          Height          =   195
  183.          Index           =   0
  184.          Left            =   3930
  185.          TabIndex        =   11
  186.          Top             =   585
  187.          Width           =   120
  188.       End
  189.       Begin Label Label1 
  190.          AutoSize        =   -1  'True
  191.          BackStyle       =   0  'Transparent
  192.          Caption         =   "KnobMultiturnValue:"
  193.          FontBold        =   0   'False
  194.          FontItalic      =   0   'False
  195.          FontName        =   "Arial"
  196.          FontSize        =   8.25
  197.          FontStrikethru  =   0   'False
  198.          FontUnderline   =   0   'False
  199.          Height          =   210
  200.          Index           =   1
  201.          Left            =   360
  202.          TabIndex        =   8
  203.          Top             =   570
  204.          Width           =   1440
  205.       End
  206.    End
  207.    Begin CheckBox Check1 
  208.       BackColor       =   &H00C0C0C0&
  209.       Caption         =   "MouseControl"
  210.       FontBold        =   -1  'True
  211.       FontItalic      =   0   'False
  212.       FontName        =   "Arial"
  213.       FontSize        =   8.25
  214.       FontStrikethru  =   0   'False
  215.       FontUnderline   =   0   'False
  216.       Height          =   225
  217.       Left            =   5520
  218.       TabIndex        =   9
  219.       Top             =   240
  220.       Width           =   1635
  221.    End
  222.    Begin Frame Frame4 
  223.       BackColor       =   &H00C0C0C0&
  224.       Caption         =   "Knob Color"
  225.       FontBold        =   -1  'True
  226.       FontItalic      =   0   'False
  227.       FontName        =   "Arial"
  228.       FontSize        =   8.25
  229.       FontStrikethru  =   0   'False
  230.       FontUnderline   =   0   'False
  231.       Height          =   1215
  232.       Left            =   3990
  233.       TabIndex        =   15
  234.       Top             =   120
  235.       Width           =   1305
  236.       Begin Label HColors 
  237.          BackColor       =   &H000080FF&
  238.          Height          =   225
  239.          Index           =   4
  240.          Left            =   570
  241.          TabIndex        =   12
  242.          Top             =   555
  243.          Width           =   225
  244.       End
  245.       Begin Label HColors 
  246.          BackColor       =   &H00FF00FF&
  247.          Height          =   225
  248.          Index           =   8
  249.          Left            =   795
  250.          TabIndex        =   13
  251.          Top             =   780
  252.          Width           =   225
  253.       End
  254.       Begin Label HColors 
  255.          BackColor       =   &H00FF0000&
  256.          Height          =   225
  257.          Index           =   3
  258.          Left            =   345
  259.          TabIndex        =   14
  260.          Top             =   555
  261.          Width           =   225
  262.       End
  263.       Begin Label HColors 
  264.          BackColor       =   &H0000FFFF&
  265.          Height          =   225
  266.          Index           =   7
  267.          Left            =   570
  268.          TabIndex        =   18
  269.          Top             =   780
  270.          Width           =   225
  271.       End
  272.       Begin Label HColors 
  273.          BackColor       =   &H0000FF00&
  274.          Height          =   225
  275.          Index           =   2
  276.          Left            =   795
  277.          TabIndex        =   19
  278.          Top             =   330
  279.          Width           =   225
  280.       End
  281.       Begin Label HColors 
  282.          BackColor       =   &H000000FF&
  283.          Height          =   225
  284.          Index           =   6
  285.          Left            =   345
  286.          TabIndex        =   20
  287.          Top             =   780
  288.          Width           =   225
  289.       End
  290.       Begin Label HColors 
  291.          BackColor       =   &H00FFFFFF&
  292.          Height          =   225
  293.          Index           =   1
  294.          Left            =   570
  295.          TabIndex        =   21
  296.          Top             =   330
  297.          Width           =   225
  298.       End
  299.       Begin Label HColors 
  300.          BackColor       =   &H00808080&
  301.          Height          =   225
  302.          Index           =   5
  303.          Left            =   795
  304.          TabIndex        =   16
  305.          Top             =   555
  306.          Width           =   225
  307.       End
  308.       Begin Label HColors 
  309.          BackColor       =   &H00000000&
  310.          Height          =   225
  311.          Index           =   0
  312.          Left            =   345
  313.          TabIndex        =   17
  314.          Top             =   330
  315.          Width           =   225
  316.       End
  317.    End
  318. Sub Check1_Click ()
  319.     knob1.MouseControl = check1
  320. End Sub
  321. Sub Check2_Click ()
  322.     If check2 Then check1 = check2
  323.     knob1.KnobMultiTurn = check2
  324. End Sub
  325. Sub Check3_Click ()
  326.     If check3 Then check1 = check3
  327.     knob1.KnobSnap = check3
  328. End Sub
  329. Sub Form_Load ()
  330.     hscroll1(0) = knob1.KnobMultiTurnValue * 100
  331.     hscroll1(1) = knob1.KnobSnapIncrement * 10
  332.     check1 = -knob1.MouseControl
  333.     check2 = -knob1.KnobSnap
  334.     check3 = -knob1.KnobMultiTurn
  335. End Sub
  336. Sub HColors_Click (index As Integer)
  337.     knob1.KnobColor = HColors(index).BackColor
  338. End Sub
  339. Sub HScroll1_Change (index As Integer)
  340. Dim multiturn As Integer
  341.     Select Case index
  342.         Case 0
  343.             multiturn = hscroll1(index) / 100
  344.             knob1.KnobMultiTurnValue = multiturn
  345.             label2(index) = multiturn
  346.         Case 1
  347.             knob1.KnobSnapIncrement = hscroll1(index) / 10
  348.             label2(index) = knob1.KnobSnapIncrement
  349.     End Select
  350. End Sub
  351. Sub HScroll1_Scroll (index As Integer)
  352. Dim multiturn As Integer
  353.     Select Case index
  354.         Case 0
  355.             multiturn = hscroll1(index) / 100
  356.             knob1.KnobMultiTurnValue = multiturn
  357.             label2(index) = multiturn
  358.         Case 1
  359.             knob1.KnobSnapIncrement = hscroll1(index) / 10
  360.             label2(index) = knob1.KnobSnapIncrement
  361.     End Select
  362. End Sub
  363.