SuperHack

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

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

Wrap

Visual Basic Form | 1996-01-17 | 14.7 KB | 456 lines

VERSION 2.00 Begin Form MarkDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Knob Mark Properties Demo" ClientHeight = 3885 ClientLeft = 1740 ClientTop = 3060 ClientWidth = 8580 Height = 4290 Left = 1680 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 259 ScaleMode = 3 'Pixel ScaleWidth = 572 Top = 2715 Width = 8700 Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Mark Position/Size Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1155 Left = 3945 TabIndex = 4 Top = 1215 Width = 4470 Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1920 Max = 100 TabIndex = 20 Top = 270 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1920 Max = 100 TabIndex = 22 Top = 510 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 2 Left = 1920 Max = 100 TabIndex = 24 Top = 750 Width = 2000 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 0 Left = 3990 TabIndex = 0 Top = 285 Width = 120 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Mark Inner Radius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 570 TabIndex = 1 Top = 285 Width = 1335 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Mark Outer Radius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 525 TabIndex = 5 Top = 525 Width = 1380 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 1 Left = 3990 TabIndex = 6 Top = 540 Width = 120 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Mark Width:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 1065 TabIndex = 25 Top = 765 Width = 840 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 2 Left = 3990 TabIndex = 27 Top = 780 Width = 120 End End Begin KNOB Knob1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderType = 1 ' 1 - Bevel 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 = 3705 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.6 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 0 Left = 135 MarkUserDefined = "0,1000, 500,200, 0,0, -500,500" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 28 Top = 90 Value = 0 Width = 3690 XScale = 0 YScale = 0 ZLoad = KMARKS.FRX:0000 End Begin TextBox Text1 Height = 1125 Left = 3960 MultiLine = -1 'True TabIndex = 2 Text = "0,1000, 500,200, 0,0, -500,500" Top = 2685 Width = 4455 End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Mark Color" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1140 Left = 6765 TabIndex = 21 Top = 75 Width = 1290 Begin Label Colors BackColor = &H000080FF& Height = 225 Index = 8 Left = 285 TabIndex = 3 Top = 810 Width = 225 End Begin Label Colors BackColor = &H00FF00FF& Height = 225 Index = 7 Left = 765 TabIndex = 8 Top = 810 Width = 225 End Begin Label Colors BackColor = &H00FF0000& Height = 225 Index = 6 Left = 285 TabIndex = 9 Top = 570 Width = 225 End Begin Label Colors BackColor = &H0000FFFF& Height = 225 Index = 5 Left = 525 TabIndex = 10 Top = 810 Width = 225 End Begin Label Colors BackColor = &H0000FF00& Height = 225 Index = 4 Left = 765 TabIndex = 11 Top = 330 Width = 225 End Begin Label Colors BackColor = &H000000FF& Height = 225 Index = 3 Left = 765 TabIndex = 12 Top = 570 Width = 225 End Begin Label Colors BackColor = &H00FFFFFF& Height = 225 Index = 2 Left = 525 TabIndex = 13 Top = 330 Width = 225 End Begin Label Colors BackColor = &H00808080& Height = 225 Index = 1 Left = 525 TabIndex = 14 Top = 570 Width = 225 End Begin Label Colors BackColor = &H00000000& Height = 225 Index = 0 Left = 285 TabIndex = 15 Top = 330 Width = 225 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Mark Style" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1080 Left = 3930 TabIndex = 16 Top = 75 Width = 2265 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "User" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 4 Left = 1200 TabIndex = 19 Top = 525 Width = 870 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Arrow" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 1200 TabIndex = 23 Top = 315 Width = 870 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Triangular" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 135 TabIndex = 7 Top = 720 Width = 990 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Circular" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 135 TabIndex = 18 Top = 510 Width = 990 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 135 TabIndex = 17 Top = 300 Width = 990 End End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Mark Shape: (x,y pair list)" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 3960 TabIndex = 26 Top = 2460 Width = 2070 End Sub Colors_Click (index As Integer) knob1.MarkColor = colors(index).BackColor End Sub Sub Form_Load () hscroll1(0) = knob1.MarkInnerRadius * 100 hscroll1(1) = knob1.MarkOuterRadius * 100 hscroll1(2) = knob1.MarkWidth * 100 option2(knob1.MarkStyle) = True text1 = knob1.MarkUserDefined For i% = 0 To 2 label2(i%) = hscroll1(i%) / 100 Next End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 knob1.MarkInnerRadius = hscroll1(0) / 100 label2(0) = hscroll1(0) / 100 Case 1 knob1.MarkOuterRadius = hscroll1(1) / 100 label2(1) = hscroll1(1) / 100 Case 2 knob1.MarkWidth = hscroll1(2) / 100 label2(2) = hscroll1(2) / 100 End Select End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 knob1.MarkInnerRadius = hscroll1(0) / 100 label2(0) = hscroll1(0) / 100 Case 1 knob1.MarkOuterRadius = hscroll1(1) / 100 label2(1) = hscroll1(1) / 100 Case 2 knob1.MarkWidth = hscroll1(2) / 100 label2(2) = hscroll1(2) / 100 End Select End Sub Sub Option2_Click (index As Integer) knob1.MarkStyle = index End Sub Sub Text1_Change () knob1.MarkUserDefined = text1 End Sub