SuperHack

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

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

Wrap

Visual Basic Form | 1996-01-17 | 13.3 KB | 413 lines

VERSION 2.00 Begin Form AnnularDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Annulars" ClientHeight = 4050 ClientLeft = 1515 ClientTop = 1455 ClientWidth = 8655 Height = 4455 Left = 1455 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4050 ScaleWidth = 8655 Top = 1110 Width = 8775 Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Annular Radius Properties" Height = 960 Left = 4050 TabIndex = 5 Top = 2880 Width = 4450 Begin HScrollBar HScroll1 Height = 240 Index = 2 Left = 1815 Max = 100 TabIndex = 8 Top = 330 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 3 Left = 1815 Max = 100 TabIndex = 9 Top = 555 Width = 2000 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularInnerRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 285 TabIndex = 10 Top = 330 Width = 1470 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 2 Left = 3900 TabIndex = 11 Top = 345 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularOuterRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 255 TabIndex = 12 Top = 570 Width = 1515 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 3 Left = 3900 TabIndex = 13 Top = 570 Width = 120 End End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Annular Value Properties" Height = 960 Left = 4050 TabIndex = 24 Top = 1740 Width = 4450 Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1785 Max = 100 TabIndex = 26 Top = 315 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1785 Max = 100 TabIndex = 25 Top = 540 Width = 2000 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 0 Left = 3855 TabIndex = 15 Top = 330 Width = 180 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularStartValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 345 TabIndex = 29 Top = 330 Width = 1380 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularStopValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 345 TabIndex = 28 Top = 555 Width = 1365 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " 0" Height = 195 Index = 1 Left = 3855 TabIndex = 27 Top = 570 Width = 180 End End Begin AGAUGE Gauge1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 2 ' 2 - Inset BevelOuter = 1 ' 1 - Raised BevelWidth = 3 BorderType = 1 ' 1 - Bevel BorderWidth = 10 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 3735 Left = 30 MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 Shape = "" TabIndex = 23 Top = 135 Value = 0 Width = 3900 XScale = 0 YScale = 0 ZLoad = GANNULAR.FRX:0000 End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Annular Color" Height = 1095 Left = 6210 TabIndex = 6 Top = 150 Width = 1425 Begin Label Colors BackColor = &H00000000& Height = 225 Index = 0 Left = 120 TabIndex = 7 Top = 390 Width = 225 End Begin Label Colors BackColor = &H00808080& Height = 225 Index = 1 Left = 120 TabIndex = 14 Top = 630 Width = 225 End Begin Label Colors BackColor = &H00FFFFFF& Height = 225 Index = 2 Left = 360 TabIndex = 16 Top = 390 Width = 225 End Begin Label Colors BackColor = &H000000FF& Height = 225 Index = 3 Left = 360 TabIndex = 17 Top = 630 Width = 225 End Begin Label Colors BackColor = &H0000FF00& Height = 225 Index = 4 Left = 600 TabIndex = 18 Top = 390 Width = 225 End Begin Label Colors BackColor = &H0000FFFF& Height = 225 Index = 5 Left = 600 TabIndex = 19 Top = 630 Width = 225 End Begin Label Colors BackColor = &H00FF0000& Height = 225 Index = 6 Left = 840 TabIndex = 20 Top = 390 Width = 225 End Begin Label Colors BackColor = &H00FF00FF& Height = 225 Index = 7 Left = 840 TabIndex = 21 Top = 630 Width = 225 End Begin Label Colors BackColor = &H000080FF& Height = 225 Index = 8 Left = 1080 TabIndex = 22 Top = 390 Width = 225 End Begin Label Colors BackColor = &H00004040& Height = 225 Index = 9 Left = 1080 TabIndex = 4 Top = 630 Width = 225 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Annular ID" Height = 1095 Left = 4800 TabIndex = 0 Top = 150 Width = 1215 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "2" Height = 255 Index = 2 Left = 360 TabIndex = 3 Top = 720 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "1" Height = 255 Index = 1 Left = 360 TabIndex = 2 Top = 465 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "0" Height = 255 Index = 0 Left = 360 TabIndex = 1 Top = 240 Value = -1 'True Width = 615 End End Sub Colors_Click (Index As Integer) gauge1.AnnularColor = colors(Index).BackColor End Sub Sub Form_Load () hscroll1(0) = gauge1.AnnularStartValue hscroll1(1) = gauge1.AnnularStopValue hscroll1(2) = gauge1.AnnularInnerRadius * 100 hscroll1(3) = gauge1.AnnularOuterRadius * 100 End Sub Sub HScroll1_Change (Index As Integer) Select Case Index Case 0 gauge1.AnnularStartValue = hscroll1(0) label2(0) = hscroll1(0) Case 1 gauge1.AnnularStopValue = hscroll1(1) label2(1) = hscroll1(1) Case 2 gauge1.AnnularInnerRadius = hscroll1(2) / 100 label2(2) = hscroll1(2) / 100 Case 3 gauge1.AnnularOuterRadius = hscroll1(3) / 100 label2(3) = hscroll1(3) / 100 End Select End Sub Sub HScroll1_Scroll (Index As Integer) Select Case Index Case 0 gauge1.AnnularStartValue = hscroll1(0) label2(0) = hscroll1(0) Case 1 gauge1.AnnularStopValue = hscroll1(1) label2(1) = hscroll1(1) Case 2 gauge1.AnnularInnerRadius = hscroll1(2) / 100 label2(2) = hscroll1(2) / 100 Case 3 gauge1.AnnularOuterRadius = hscroll1(3) / 100 label2(3) = hscroll1(3) / 100 End Select End Sub Sub Option1_Click (Index As Integer) gauge1.AnnularID = Index hscroll1(0) = gauge1.AnnularStartValue hscroll1(1) = gauge1.AnnularStopValue hscroll1(2) = gauge1.AnnularInnerRadius * 100 hscroll1(3) = gauge1.AnnularOuterRadius * 100 End Sub