Visual Basic 4 Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / knob_vb4 / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-11-20 | 14.2 KB | 469 lines

VERSION 4.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4320 ClientLeft = 2145 ClientTop = 1860 ClientWidth = 5625 Height = 4725 Left = 2085 LinkTopic = "Form1" ScaleHeight = 4320 ScaleWidth = 5625 Top = 1515 Width = 5745 Begin VB.HScrollBar HScroll1 Height = 255 Left = 120 Max = 100 TabIndex = 0 Top = 1440 Value = 50 Width = 3495 End Begin Threed.SSPanel SSPanel1 Height = 975 Left = 120 TabIndex = 3 Top = 360 Width = 3495 _version = 65536 _extentx = 6165 _extenty = 1720 _stockprops = 15 backcolor = 12632256 bevelwidth = 2 bevelinner = 1 Begin KnobLib.Knob Knob1 Height = 735 Index = 3 Left = 2640 TabIndex = 7 Top = 120 Width = 735 _version = 65536 _extentx = 1296 _extenty = 1296 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin KnobLib.Knob Knob1 Height = 735 Index = 2 Left = 1800 TabIndex = 6 Top = 120 Width = 735 _version = 65536 _extentx = 1296 _extenty = 1296 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin KnobLib.Knob Knob1 Height = 735 Index = 1 Left = 960 TabIndex = 5 Top = 120 Width = 735 _version = 65536 _extentx = 1296 _extenty = 1296 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin KnobLib.Knob Knob1 Height = 735 Index = 0 Left = 120 TabIndex = 4 Top = 120 Width = 735 _version = 65536 _extentx = 1296 _extenty = 1296 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End End Begin Threed.SSPanel SSPanel2 Height = 1335 Left = 3840 TabIndex = 17 Top = 2520 Width = 1455 _version = 65536 _extentx = 2566 _extenty = 2355 _stockprops = 15 backcolor = 192 bevelwidth = 2 bevelinner = 1 Begin KnobLib.Knob Knob14 Height = 495 Left = 840 TabIndex = 21 Top = 720 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 backcolor = 192 needlecolor = 16777215 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 1 outerbevelwidth = 0 innerbevelwidth = 1 borderwidth = 1 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 4210752 End Begin KnobLib.Knob Knob13 Height = 495 Left = 120 TabIndex = 20 Top = 720 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 backcolor = 192 needlecolor = 16777215 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 1 outerbevelwidth = 0 innerbevelwidth = 1 borderwidth = 1 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 4210752 End Begin KnobLib.Knob Knob12 Height = 495 Left = 840 TabIndex = 19 Top = 120 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 backcolor = 192 needlecolor = 16777215 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 1 outerbevelwidth = 0 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 0 End Begin KnobLib.Knob Knob11 Height = 495 Left = 120 TabIndex = 18 Top = 120 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 backcolor = 192 needlecolor = 16777215 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 1 outerbevelwidth = 0 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 0 End End Begin VB.Label Label5 BackColor = &H0080FFFF& Caption = $"FORM1.frx":0000 Height = 495 Left = 360 TabIndex = 16 Top = 3600 Width = 3135 End Begin VB.Label Label4 BackColor = &H0080FFFF& Caption = $"FORM1.frx":0050 Height = 615 Left = 360 TabIndex = 15 Top = 2880 Width = 3135 End Begin VB.Label Label3 BackColor = &H0080FFFF& Caption = $"FORM1.frx":00B4 Height = 495 Left = 360 TabIndex = 14 Top = 2280 Width = 3135 End Begin KnobLib.Knob Knob6 Height = 495 Left = 4560 TabIndex = 13 Top = 1920 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 1 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin KnobLib.Knob Knob5 Height = 495 Left = 3960 TabIndex = 12 Top = 1920 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 1 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin KnobLib.Knob Knob2 Height = 615 Index = 1 Left = 4680 TabIndex = 11 Top = 1200 Width = 615 _version = 65536 _extentx = 1085 _extenty = 1085 _stockprops = 1 needlecolor = 0 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 0 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 2 facecolor = 12632256 End Begin KnobLib.Knob Knob4 Height = 615 Left = 3960 TabIndex = 10 Top = 1200 Width = 615 _version = 65536 _extentx = 1085 _extenty = 1085 _stockprops = 1 needlecolor = 0 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 0 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 1 facecolor = 12632256 End Begin KnobLib.Knob Knob3 Height = 615 Left = 4680 TabIndex = 9 Top = 480 Width = 615 _version = 65536 _extentx = 1085 _extenty = 1085 _stockprops = 1 needlecolor = 0 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 0 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 0 facecolor = 12632256 End Begin KnobLib.Knob Knob2 Height = 615 Index = 0 Left = 3960 TabIndex = 8 Top = 480 Width = 615 _version = 65536 _extentx = 1085 _extenty = 1085 _stockprops = 1 needlecolor = 0 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 0 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 12632256 End Begin VB.Label Label2 Caption = "Position" Height = 255 Left = 240 TabIndex = 2 Top = 1800 Width = 735 End Begin VB.Label Label1 Caption = "50" Height = 255 Left = 960 TabIndex = 1 Top = 1800 Width = 735 End Attribute VB_Name = "Form1" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub HScroll1_Change() For a = 0 To 3 Knob1(a).Pos = HScroll1.Value End Sub Private Sub HScroll1_Scroll() For a = 0 To 3 Knob1(a).Pos = HScroll1.Value End Sub Private Sub Text1_Change() Knob3.Pos = Val(Text1.Text) End Sub Private Sub Knob3_ValueChanged(Pos As Integer) Label1.Caption = Val(Pos) End Sub Private Sub Knob1_ValueChanged(Index As Integer, Pos As Integer) Label1.Caption = Str(Pos) End Sub