SuperHack

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

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

Wrap

Visual Basic Form | 1996-01-17 | 44.8 KB | 1,266 lines

VERSION 2.00 Begin Form ledcontrol BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "LED Custom Control" ClientHeight = 5985 ClientLeft = 1050 ClientTop = 1410 ClientWidth = 9075 Height = 6390 Left = 990 LinkTopic = "Form1" MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 299.25 ScaleMode = 2 'Point ScaleWidth = 453.75 Top = 1065 Width = 9195 Begin Frame Frame6 BackColor = &H00C0C0C0& Caption = "LED Control Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 4560 Left = 915 TabIndex = 16 Top = 1305 Width = 3495 Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "AutoSize" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 1030 Index = 3 Left = 1725 TabIndex = 61 Top = 2505 Width = 1410 Begin OptionButton Option5 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 90 TabIndex = 64 Top = 270 Value = -1 'True Width = 1200 End Begin OptionButton Option5 BackColor = &H00C0C0C0& Caption = "Size Control" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 90 TabIndex = 63 Top = 480 Width = 1200 End Begin OptionButton Option5 BackColor = &H00C0C0C0& Caption = "Size LEDs" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 90 TabIndex = 62 Top = 690 Width = 1200 End End Begin HScrollBar HScroll1 Height = 255 Index = 8 Left = 1110 Max = 32 TabIndex = 2 Top = 735 Value = 1 Width = 1875 End Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "MouseControl" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 315 Left = 150 TabIndex = 8 Top = 3720 Value = 1 'Checked Width = 1275 End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Mode" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 765 Index = 0 Left = 1725 TabIndex = 17 Top = 3690 Width = 1200 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Bitwise" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 195 Index = 1 Left = 90 TabIndex = 18 Top = 480 Width = 1000 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Value" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 195 Index = 0 Left = 90 TabIndex = 7 Top = 270 Value = -1 'True Width = 1000 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "LEDStyle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 1030 Index = 0 Left = 165 TabIndex = 19 Top = 2505 Width = 1200 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Bitmap" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 90 TabIndex = 20 Top = 735 Value = -1 'True Width = 1000 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Circular" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 90 TabIndex = 21 Top = 525 Width = 1000 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Rectangle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 90 TabIndex = 6 Top = 315 Width = 1000 End End Begin HScrollBar HScroll1 Height = 255 Index = 2 Left = 1110 Max = 30 TabIndex = 3 Top = 1320 Width = 1875 End Begin HScrollBar HScroll1 Height = 255 Index = 3 Left = 1110 Max = 30 TabIndex = 5 Top = 2145 Width = 1875 End Begin HScrollBar HScroll1 Height = 255 Index = 4 Left = 1110 Max = 30 TabIndex = 4 Top = 1575 Width = 1875 End Begin HScrollBar HScroll1 Height = 255 Index = 5 Left = 1110 Max = 32 Min = 1 TabIndex = 1 Top = 480 Value = 1 Width = 1875 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Value :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 8 Left = 570 TabIndex = 22 Top = 750 Width = 495 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 8 Left = 3015 TabIndex = 23 Top = 780 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "LEDHeight :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 2 Left = 210 TabIndex = 24 Top = 1350 Width = 870 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 2 Left = 3015 TabIndex = 25 Top = 1380 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "LEDSep :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 3 Left = 375 TabIndex = 26 Top = 2190 Width = 690 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 180 Index = 3 Left = 3015 TabIndex = 27 Top = 2190 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "LEDWidth :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 4 Left = 240 TabIndex = 29 Top = 1605 Width = 825 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 4 Left = 3015 TabIndex = 30 Top = 1620 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "NumLEDs :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 5 Left = 270 TabIndex = 31 Top = 510 Width = 810 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 5 Left = 3015 TabIndex = 32 Top = 540 Width = 120 End End Begin Frame Frame5 BackColor = &H00C0C0C0& Caption = "General Appearance Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 4560 Left = 4665 TabIndex = 43 Top = 1305 Width = 4200 Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Control Size" Height = 810 Index = 2 Left = 150 TabIndex = 54 Top = 1050 Width = 3900 Begin HScrollBar HScroll1 Height = 255 Index = 10 Left = 1455 Max = 400 TabIndex = 56 Top = 480 Value = 10 Width = 1875 End Begin HScrollBar HScroll1 Height = 255 Index = 9 Left = 1455 Max = 400 TabIndex = 55 Top = 225 Value = 10 Width = 1875 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 10 Left = 3390 TabIndex = 58 Top = 540 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Width :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 10 Left = 900 TabIndex = 60 Top = 525 Width = 510 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 9 Left = 3390 TabIndex = 59 Top = 300 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Height :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 9 Left = 870 TabIndex = 57 Top = 285 Width = 555 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Bevel Properties" Height = 1740 Index = 1 Left = 150 TabIndex = 33 Top = 2745 Width = 3900 Begin HScrollBar HScroll1 Height = 255 Index = 7 Left = 1455 Max = 10 TabIndex = 49 Top = 225 Value = 6 Width = 1875 End Begin HScrollBar HScroll1 Height = 255 Index = 6 Left = 1455 Max = 10 TabIndex = 13 Top = 480 Value = 2 Width = 1875 End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "BevelOuter" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 915 Index = 2 Left = 1650 TabIndex = 34 Top = 720 Width = 1290 Begin OptionButton Option7 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 90 TabIndex = 15 Top = 270 Width = 900 End Begin OptionButton Option7 BackColor = &H00C0C0C0& Caption = "Raised" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 90 TabIndex = 35 Top = 465 Value = -1 'True Width = 900 End Begin OptionButton Option7 BackColor = &H00C0C0C0& Caption = "Inset" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 90 TabIndex = 36 Top = 660 Width = 900 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "BevelInner" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 915 Index = 1 Left = 315 TabIndex = 37 Top = 720 Width = 1290 Begin OptionButton Option6 BackColor = &H00C0C0C0& Caption = "Inset" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 90 TabIndex = 38 Top = 660 Value = -1 'True Width = 900 End Begin OptionButton Option6 BackColor = &H00C0C0C0& Caption = "Raised" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 90 TabIndex = 39 Top = 465 Width = 900 End Begin OptionButton Option6 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 90 TabIndex = 14 Top = 270 Width = 900 End End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "6" Height = 195 Index = 7 Left = 3390 TabIndex = 50 Top = 270 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BorderWidth :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 7 Left = 450 TabIndex = 65 Top = 255 Width = 975 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BevelWidth :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 6 Left = 510 TabIndex = 40 Top = 510 Width = 915 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "2" Height = 195 Index = 6 Left = 3390 TabIndex = 41 Top = 510 Width = 120 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Inner Border Properties" Height = 855 Index = 0 Left = 150 TabIndex = 48 Top = 1875 Width = 3900 Begin HScrollBar HScroll1 Height = 255 Index = 1 Left = 1455 Max = 30 TabIndex = 12 Top = 540 Width = 1875 End Begin HScrollBar HScroll1 Height = 255 Index = 0 Left = 1455 Max = 30 TabIndex = 11 Top = 300 Width = 1875 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BorderVertical :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 1 Left = 315 TabIndex = 42 Top = 570 Width = 1080 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BorderHorizontal :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 0 Left = 150 TabIndex = 53 Top = 315 Width = 1260 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 1 Left = 3390 TabIndex = 52 Top = 585 Width = 120 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 0 Left = 3390 TabIndex = 51 Top = 360 Width = 120 End End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Direction" ForeColor = &H00000000& Height = 795 Left = 2775 TabIndex = 46 Top = 240 Width = 1275 Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "Backward" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 255 Index = 1 Left = 120 TabIndex = 47 Top = 480 Width = 1100 End Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "Forward" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 255 Index = 0 Left = 120 TabIndex = 10 Top = 270 Value = -1 'True Width = 1100 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Orientation" Height = 795 Index = 1 Left = 150 TabIndex = 44 Top = 240 Width = 1275 Begin OptionButton Option4 BackColor = &H00C0C0C0& Caption = "Horizontal" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 0 Left = 105 TabIndex = 9 Top = 285 Value = -1 'True Width = 1100 End Begin OptionButton Option4 BackColor = &H00C0C0C0& Caption = "Vertical" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 195 Index = 1 Left = 105 TabIndex = 45 Top = 480 Width = 1100 End End End Begin LED LED1 AutoRedraw = -1 'True AutoSize = 0 ' 0 - None AVersion = 2.5 BackColor = &H00C0C0C0& BevelInner = 2 ' 2 - Inset BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderHorizontal= 2 BorderVertical = 4 BorderWidth = 6 DecayRate = 0 Direction = 0 ' 0 - Forward Height = 855 LEDHeight = 30 LEDIndex = 0 LEDSep = 2 LEDStyle = 2 ' 2 - Bitmap LEDWidth = 23 Left = 120 MaxDecay = 0 'False Mode = 0 ' 0 - Value MouseControl = -1 'True NumLEDs = 15 OffPictureGreen = LEDCONTR.FRX:0000 OffPictureRed = LEDCONTR.FRX:0332 OffPictureYellow= LEDCONTR.FRX:04FC OnPictureGreen = LEDCONTR.FRX:06C6 OnPictureRed = LEDCONTR.FRX:0890 OnPictureYellow = LEDCONTR.FRX:0A5A Orientation = 0 ' 0 - Horizontal TabIndex = 0 Top = 300 Value = 15 Width = 5970 ZLoad = LEDCONTR.FRX:0C24 End Begin Label Label3 BackStyle = 0 'Transparent Caption = "Click on the LEDs to change the control's value." Height = 255 Left = 660 TabIndex = 28 Top = 60 Width = 4575 End Sub Check1_Click () led1.MouseControl = -check1 End Sub Sub Form_Load () hscroll1(0) = led1.BorderHorizontal hscroll1(1) = led1.BorderVertical hscroll1(2) = led1.LEDHeight hscroll1(3) = led1.LEDSep hscroll1(4) = led1.LEDWidth hscroll1(5) = led1.NumLEDs hscroll1(6) = led1.BevelWidth hscroll1(7) = led1.BorderWidth hscroll1(8) = led1.Value hscroll1(9) = led1.Height hscroll1(10) = led1.Width End Sub Sub HScroll1_Change (index As Integer) i = index Select Case i Case 0 'BorderHorizontal led1.BorderHorizontal = hscroll1(i) Case 1 'BorderVertical led1.BorderVertical = hscroll1(i) Case 2 'LEDHeight led1.LEDHeight = hscroll1(i) Case 3 'LEDSep led1.LEDSep = hscroll1(i) Case 4 'LEDWidth led1.LEDWidth = hscroll1(i) Case 5 'NumLEDs led1.NumLEDs = hscroll1(i) Case 6 'BevelWidth led1.BevelWidth = hscroll1(i) Case 7 'BorderWidth led1.BorderWidth = hscroll1(i) Case 8 'Value led1.Value = hscroll1(i) Case 9 'Height led1.Height = hscroll1(i) Case 10 'Width led1.Width = hscroll1(i) End Select label2(i) = hscroll1(i) update_page End Sub Sub HScroll1_Scroll (index As Integer) i = index Select Case i Case 0 'BorderHorizontal led1.BorderHorizontal = hscroll1(i) Case 1 'BorderVertical led1.BorderVertical = hscroll1(i) Case 2 'LEDHeight led1.LEDHeight = hscroll1(i) Case 3 'LEDSep led1.LEDSep = hscroll1(i) Case 4 'LEDWidth led1.LEDWidth = hscroll1(i) Case 5 'NumLEDs led1.NumLEDs = hscroll1(i) Case 6 'BevelWidth led1.BevelWidth = hscroll1(i) Case 7 'BorderWidth led1.BorderWidth = hscroll1(i) Case 8 'Value led1.Value = hscroll1(i) Case 9 'Height led1.Height = hscroll1(i) Case 10 'Width led1.Width = hscroll1(i) End Select label2(i) = hscroll1(i) update_page End Sub Sub LED1_Click () If led1.Mode = 0 Then 'Value hscroll1(8) = led1.Value Else 'Bitwise If led1.NumLEDs < 15 Then hscroll1(8) = led1.Value Else hscroll1(8) = hscroll1(8).Max label2(8) = Str(led1.Value) End If End If End Sub Sub Option1_Click (index As Integer) led1.LEDStyle = index End Sub Sub Option2_Click (index As Integer) led1.Mode = index If led1.Mode = 0 Then 'Value hscroll1(8).Max = led1.NumLEDs Else 'Bitwise If led1.NumLEDs < 15 Then hscroll1(8).Max = 2 ^ (led1.NumLEDs - 1) + 1 Else hscroll1(8).Max = 2 ^ 14 + 1 End If End If End Sub Sub Option3_Click (index As Integer) led1.Direction = index End Sub Sub Option4_Click (index As Integer) old = led1.Orientation led1.Orientation = index If led1.Orientation <> old Then oldwidth = led1.Width led1.Width = led1.Height led1.Height = oldwidth End If hscroll1(9) = led1.Height hscroll1(10) = led1.Width End Sub Sub Option5_Click (index As Integer) led1.AutoSize = index DoEvents If index = 0 Then hscroll1(2).Visible = True label2(2).Visible = True hscroll1(4).Visible = True label2(4).Visible = True hscroll1(9).Visible = True label2(9).Visible = True hscroll1(10).Visible = True label2(10).Visible = True End If If index = 1 Then hscroll1(2).Visible = True label2(2).Visible = True hscroll1(4).Visible = True label2(4).Visible = True hscroll1(9).Visible = False label2(9).Visible = False hscroll1(10).Visible = False label2(10).Visible = False If led1.LEDHeight <= hscroll1(2).Max Then hscroll1(2) = led1.LEDHeight Else led1.LEDHeight = hscroll1(2).Max End If If led1.LEDWidth <= hscroll1(4).Max Then hscroll1(4) = led1.LEDWidth Else led1.LEDWidth = hscroll1(4).Max End If ElseIf index = 2 Then hscroll1(2).Visible = False label2(2).Visible = False hscroll1(4).Visible = False label2(4).Visible = False hscroll1(9).Visible = True label2(9).Visible = True hscroll1(10).Visible = True label2(10).Visible = True If led1.Height <= hscroll1(9).Max Then hscroll1(9) = led1.Height Else led1.Height = hscroll1(9).Max End If If led1.Width <= hscroll1(10).Max Then hscroll1(10) = led1.Width Else led1.Width = hscroll1(10).Max End If End If End Sub Sub Option6_Click (index As Integer) led1.BevelInner = index End Sub Sub Option7_Click (index As Integer) led1.BevelOuter = index End Sub Sub update_page () 'hscroll1(0) BorderHorizontal If led1.BorderHorizontal >= hscroll1(0).Min And led1.BorderHorizontal <= hscroll1(0).Max Then hscroll1(0) = led1.BorderHorizontal ElseIf led1.BorderHorizontal < hscroll1(0).Min Then hscroll1(0) = hscroll1(0).Min Else hscroll1(0) = hscroll1(0).Max End If 'hscroll1(1) BorderVertical If led1.BorderVertical >= hscroll1(1).Min And led1.BorderVertical <= hscroll1(1).Max Then hscroll1(1) = led1.BorderVertical ElseIf led1.BorderVertical < hscroll1(1).Min Then hscroll1(1) = hscroll1(1).Min Else hscroll1(1) = hscroll1(1).Max End If 'hscroll1(2) LEDHeight If led1.LEDHeight >= hscroll1(2).Min And led1.LEDHeight <= hscroll1(2).Max Then hscroll1(2) = led1.LEDHeight ElseIf led1.LEDHeight < hscroll1(2).Min Then hscroll1(2) = hscroll1(2).Min Else hscroll1(2) = hscroll1(2).Max End If 'hscroll1(3) LEDSep If led1.LEDSep >= hscroll1(3).Min And led1.LEDSep <= hscroll1(3).Max Then hscroll1(3) = led1.LEDSep ElseIf led1.LEDSep < hscroll1(3).Min Then hscroll1(3) = hscroll1(3).Min Else hscroll1(3) = hscroll1(3).Max End If 'hscroll1(4) LEDWidth If led1.LEDWidth >= hscroll1(4).Min And led1.LEDWidth <= hscroll1(4).Max Then hscroll1(4) = led1.LEDWidth ElseIf led1.LEDWidth < hscroll1(4).Min Then hscroll1(4) = hscroll1(4).Min Else hscroll1(4) = hscroll1(4).Max End If 'hscroll1(5) NumLEDs If led1.NumLEDs >= hscroll1(5).Min And led1.NumLEDs <= hscroll1(5).Max Then hscroll1(5) = led1.NumLEDs ElseIf led1.NumLEDs < hscroll1(5).Min Then hscroll1(5) = hscroll1(5).Min Else hscroll1(5) = hscroll1(5).Max End If 'hscroll1(6) BevelWidth If led1.BevelWidth >= hscroll1(6).Min And led1.BevelWidth <= hscroll1(6).Max Then hscroll1(6) = led1.BevelWidth ElseIf led1.BevelWidth < hscroll1(6).Min Then hscroll1(6) = hscroll1(6).Min Else hscroll1(6) = hscroll1(6).Max End If 'hscroll1(7) BorderWidth If led1.BorderWidth >= hscroll1(7).Min And led1.BorderWidth <= hscroll1(7).Max Then hscroll1(7) = led1.BorderWidth ElseIf led1.BorderWidth < hscroll1(7).Min Then hscroll1(7) = hscroll1(7).Min Else hscroll1(7) = hscroll1(7).Max End If 'hscroll1(8) Value If led1.Value >= hscroll1(8).Min And led1.Value <= hscroll1(8).Max Then hscroll1(8) = led1.Value ElseIf led1.Value < hscroll1(8).Min Then hscroll1(8) = hscroll1(8).Min Else hscroll1(8) = hscroll1(8).Max End If 'hscroll1(9) Height If led1.Height >= hscroll1(9).Min And led1.Height <= hscroll1(9).Max Then hscroll1(9) = led1.Height ElseIf led1.Height < hscroll1(9).Min Then hscroll1(9) = hscroll1(9).Min Else hscroll1(9) = hscroll1(9).Max End If 'hscroll1(10) Width If led1.Width >= hscroll1(10).Min And led1.Width <= hscroll1(10).Max Then hscroll1(10) = led1.Width ElseIf led1.Width < hscroll1(10).Min Then hscroll1(10) = hscroll1(10).Min Else hscroll1(10) = hscroll1(10).Max End If For i = 0 To 10 label2(i) = hscroll1(i) Next i End Sub