SuperHack

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

/ SuperHack / SuperHack CD.bin / CODING / VBASIC / KNOBVB25.ZIP / VB.ZIP / KEXAMPLE.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-19 | 26.1 KB | 764 lines

VERSION 2.00 Begin Form Examples BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Knob Examples" ClientHeight = 6465 ClientLeft = 1020 ClientTop = 1875 ClientWidth = 9090 Height = 6870 Left = 960 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True ScaleHeight = 431 ScaleMode = 3 'Pixel ScaleWidth = 606 Top = 1530 Width = 9210 Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Mixer" Height = 3420 Left = 3000 TabIndex = 8 Top = 2940 Width = 5955 Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 7 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 4440 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 16 Top = 1800 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0000 End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 6 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 3000 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 15 Top = 1800 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:00DE End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 5 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 1560 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 14 Top = 1800 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:01BC End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 4 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 120 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 13 Top = 1800 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:029A End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 0 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 120 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 12 Top = 240 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0378 End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 3 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 4440 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 11 Top = 240 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0456 End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 2 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 3000 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 10 Top = 240 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0534 End Begin KNOB Knob3 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 2 ' 2 - Inset BevelWidth = 1 BorderType = 1 ' 1 - Bevel BorderWidth = 1 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1515 Index = 1 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.9 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 2 ' 2 - Complex KnobUserDefined = "" KnobValue = 0 Left = 1560 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 9 Top = 240 Value = 0 Width = 1425 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0612 End End Begin Timer Timer1 Interval = 100 Left = 5865 Top = 6690 End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Color Control" Height = 2775 Left = 5700 TabIndex = 5 Top = 60 Width = 3225 Begin KNOB Knob4 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 0 ' 0 - None BevelWidth = 1 BorderType = 0 ' 0 - None BorderWidth = 0 Digital = -1 'True DigitalColor = &H0000FF00& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1050 Index = 0 KnobColor = &H000000FF& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 1.1 KnobSnap = 0 'False KnobSnapIncrement= 0 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 128 Left = 60 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 4 Top = 1380 Value = 0 Width = 1050 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:06F0 End Begin KNOB Knob4 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 0 ' 0 - None BevelWidth = 1 BorderType = 0 ' 0 - None BorderWidth = 0 Digital = -1 'True DigitalColor = &H00FF0000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1050 Index = 1 KnobColor = &H0000FF00& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 1.1 KnobSnap = 0 'False KnobSnapIncrement= 0 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 128 Left = 1065 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 7 Top = 1380 Value = 0 Width = 1050 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0766 End Begin KNOB Knob4 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 0 ' 0 - None BevelWidth = 1 BorderType = 0 ' 0 - None BorderWidth = 0 Digital = -1 'True DigitalColor = &H000000FF& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 1050 Index = 2 KnobColor = &H00FF0000& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 1.1 KnobSnap = 0 'False KnobSnapIncrement= 0 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 128 Left = 2100 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 6 Top = 1380 Value = 0 Width = 1050 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:07DC End Begin Label Label3 BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Height = 1065 Left = 120 TabIndex = 2 Top = 240 Width = 3030 End End Begin KNOB Knob6 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 0 ' 0 - None BorderWidth = 2 Digital = -1 'True DigitalColor = &H00C00000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = -0.31 DigitalY = -1.19 FontID = 0 FrameColor = &H00000000& FrameScaleX = 1 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 2550 KnobColor = &H00800000& KnobMultiTurn = 0 'False KnobMultiTurnValue= 10 KnobRadius = 0.7 KnobSnap = 0 'False KnobSnapIncrement= 0 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 18 Left = 120 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 2 ' 2 - Center OutlineColor = &H00FF0000& OutlineTitle = "Multi-Turn Example" OutlineWidth = 2 Radius = 0 TabIndex = 3 Top = 120 Value = 0 Width = 2580 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0852 End Begin KNOB Knob2 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 2 ' 2 - Outline BorderWidth = 2 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 3540 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.7 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 0.2 Left = 60 MarkUserDefined = "-100,-500, 100,-500, 100,-2200, -100,-2200" MouseControl = -1 'True OutlineAlign = 2 ' 2 - Center OutlineColor = &H00000080& OutlineTitle = "Balance" OutlineWidth = 0 Radius = 0 TabIndex = 1 Top = 2940 Value = 0 Width = 2865 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:0998 End Begin KNOB Knob1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00808080& BackgroundPicture= KEXAMPLE.FRX:0B1E BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 0 ' 0 - None BorderWidth = 2 Digital = -1 'True DigitalColor = &H00C0C0C0& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0.05 FontID = 0 FrameColor = &H00404040& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 2760 KnobColor = &H00404040& KnobMultiTurn = -1 'True KnobMultiTurnValue= 100 KnobRadius = 0.6 KnobSnap = 0 'False KnobSnapIncrement= 0 KnobStyle = 3 ' 3 - Faucet KnobUserDefined = "" KnobValue = 1200 Left = 2760 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 0 Top = 60 Value = 0 Width = 2775 XScale = 0 YScale = 0 ZLoad = KEXAMPLE.FRX:50F8 End Sub Form_Load () label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue) End Sub Sub HScroll1_Change () knob6.KnobValue = hscroll1 label1 = hscroll1 End Sub Sub HScroll1_Scroll () knob6.KnobValue = hscroll1 label1 = hscroll1 End Sub Sub Knob4_Change (Index As Integer) label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue) End Sub Sub Knob4_Turn (Index As Integer) label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue) End Sub Sub Knob6_Change () hscroll1 = knob6.KnobValue label1 = hscroll1 End Sub Sub Knob6_Click () hscroll1 = knob6.KnobValue label1 = hscroll1 End Sub Sub Knob6_Turn () hscroll1 = knob6.KnobValue label1 = hscroll1 End Sub Sub Timer1_Timer () Dim a As Double Randomize a = knob4(0).KnobValue + 2 * Rnd - 1 If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(0) = a a = knob4(1).KnobValue - 2 * Rnd + 1 If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(1) = a a = knob4(2).KnobValue - 2 * Rnd + 1 If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(2) = a label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue) a = knob1.KnobValue + 2 * Rnd - 1 If a < knob1.ScaleMaxValue And a > knob1.ScaleMinValue Then knob1 = a End Sub