Visual Basic Toolbox

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

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / slidvb25 / sshape.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-18 | 11.1 KB | 344 lines

VERSION 2.00 Begin Form ShapeDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Slider Shape Properties" ClientHeight = 4755 ClientLeft = 1035 ClientTop = 1605 ClientWidth = 7470 Height = 5160 Left = 975 LinkTopic = "Form6" MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 317 ScaleMode = 3 'Pixel ScaleWidth = 498 Top = 1260 Width = 7590 Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Bar Properties" Height = 1125 Left = 3000 TabIndex = 16 Top = 255 Width = 3690 Begin HScrollBar HScroll1 Height = 240 Index = 2 Left = 1020 Max = 100 TabIndex = 3 Top = 735 Width = 2025 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1020 Max = 100 TabIndex = 18 Top = 495 Width = 2025 End Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1020 Max = 100 TabIndex = 17 Top = 255 Width = 2025 End Begin Label Label3 BackStyle = 0 'Transparent Caption = "0.0" Height = 165 Index = 2 Left = 3105 TabIndex = 4 Top = 780 Width = 270 End Begin Label Label3 BackStyle = 0 'Transparent Caption = "0.0" Height = 165 Index = 1 Left = 3105 TabIndex = 5 Top = 525 Width = 270 End Begin Label Label2 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BarBorder:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 195 TabIndex = 6 Top = 750 Width = 795 End Begin Label Label2 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BarOuter:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 285 TabIndex = 7 Top = 510 Width = 705 End Begin Label Label2 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BarInner:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 330 TabIndex = 14 Top = 270 Width = 660 End Begin Label Label3 BackStyle = 0 'Transparent Caption = "0.0" Height = 165 Index = 0 Left = 3105 TabIndex = 15 Top = 300 Width = 270 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "ShapeStyle" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1425 Left = 3000 TabIndex = 8 Top = 1575 Width = 1680 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "User Defined" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 4 Left = 120 TabIndex = 13 Top = 1125 Width = 1350 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Tank" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 3 Left = 120 TabIndex = 12 Top = 925 Width = 1350 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Thermometer" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 120 TabIndex = 11 Top = 710 Width = 1350 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Ellipse" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 120 TabIndex = 10 Top = 495 Width = 1350 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Rectangle" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 120 TabIndex = 9 Top = 270 Value = -1 'True Width = 1350 End End Begin TextBox Text1 BackColor = &H00FFFFFF& Height = 945 Left = 3000 TabIndex = 1 Top = 3630 Width = 4335 End Begin SLIDER Slider1 AutoRedraw = -1 'True AVersion = 2.501 BackColor = &H00C0C0C0& BarBorder = 0.06 BarInner = 0.04 BarOuter = 0.96 BevelInner = 1 ' 1 - Raised BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderWidth = 8 CaptionID = 0 Captions = 0 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 Direction = 1 ' 1 - Backward FontID = 0 Height = 4335 KnobColor = &H00000000& KnobOffset = 0 KnobStyle = 0 ' 0 - None KnobXScale = 0 KnobYScale = 0 Left = 300 Max = 100 Min = 0 MouseControl = -1 'True OffColor = &H00808080& OnColor = &H00FF0000& Orientation = 1 ' 1 - Vertical Shape = "200,1000, 200,600, 1000,-1000, -1000,-1000, -200,600, -200,1000" ShapeStyle = 0 ' 0 - Rectangle Snap = 0 ' 0 - None SnapIncrement = 0 TabIndex = 0 TicID = 0 Tics = 0 Top = 240 Value = 50 Width = 2535 ZLoad = SSHAPE.FRX:0000 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "Shape: (x,y pairs)" Height = 225 Left = 2970 TabIndex = 2 Top = 3390 Width = 1725 End Sub Form_Load () hscroll1(0) = slider1.BarInner * 100 hscroll1(1) = slider1.BarOuter * 100 hscroll1(2) = slider1.BarBorder * 100 text1 = slider1.Shape End Sub Sub HScroll1_Change (Index As Integer) Dim v As Single v = hscroll1(Index) v = v / 100 Select Case Index Case 0 slider1.BarInner = v Case 1 slider1.BarOuter = v Case 2 slider1.BarBorder = v End Select label3(Index) = v End Sub Sub HScroll1_Scroll (Index As Integer) Dim v As Single v = hscroll1(Index) v = v / 100 Select Case Index Case 0 slider1.BarInner = v Case 1 slider1.BarOuter = v Case 2 slider1.BarBorder = v End Select label3(Index) = v End Sub Sub Option1_Click (Index As Integer) slider1.ShapeStyle = Index End Sub Sub Text1_Change () slider1.Shape = text1 End Sub