📄 led.frm
字号:
LedSeparation = 2
LedWidth = 16
Orientation = 1
OutLineWidth = 0
PosY = 15
SizeMode = 2
StyleNum = 4
StyleShape0 = 1
StyleOffColor0 = 64
StyleOnPicture0 = "LED.frx":1C6E
StyleOffPicture0= "LED.frx":1C8A
StyleOnColor1 = 65280
StyleOffColor1 = 25600
StyleOnPicture1 = "LED.frx":1CA6
StyleOffPicture1= "LED.frx":1CC2
StyleOnColor2 = 65535
StyleOffColor2 = 25700
StyleOnPicture2 = "LED.frx":1CDE
StyleOffPicture2= "LED.frx":1CFA
StyleOnColor3 = 16711680
StyleOffColor3 = 6553600
StyleOnPicture3 = "LED.frx":1D16
StyleOffPicture3= "LED.frx":1D32
Value = 20
End
Begin cstLED.LED ledVolume
Height = 1620
Index = 3
Left = 1290
TabIndex = 15
Top = 270
Width = 270
_ExtentX = 476
_ExtentY = 2858
BackColor = 0
BackPicture = "LED.frx":1D4E
BorderWidth = 0
CaptionNum = 2
CaptionText0 = "4"
CaptionColor0 = 65535
CaptionY0 = .07
CaptionText1 = "D"
CaptionColor1 = 255
CaptionY1 = .93
Direction = 1
BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
InLineWidth = 0
LedHeight = 2
LedNum = 20
LedSeparation = 2
LedWidth = 16
Orientation = 1
OutLineWidth = 0
PosY = 15
SizeMode = 2
StyleNum = 4
StyleShape0 = 1
StyleOffColor0 = 64
StyleOnPicture0 = "LED.frx":1D6A
StyleOffPicture0= "LED.frx":1D86
StyleOnColor1 = 65280
StyleOffColor1 = 25600
StyleOnPicture1 = "LED.frx":1DA2
StyleOffPicture1= "LED.frx":1DBE
StyleOnColor2 = 65535
StyleOffColor2 = 25700
StyleOnPicture2 = "LED.frx":1DDA
StyleOffPicture2= "LED.frx":1DF6
StyleOnColor3 = 16711680
StyleOffColor3 = 6553600
StyleOnPicture3 = "LED.frx":1E12
StyleOffPicture3= "LED.frx":1E2E
Value = 20
End
Begin cstLED.LED ledVolume
Height = 1620
Index = 4
Left = 1560
TabIndex = 16
Top = 270
Width = 270
_ExtentX = 476
_ExtentY = 2858
BackColor = 0
BackPicture = "LED.frx":1E4A
BorderWidth = 0
CaptionNum = 2
CaptionText0 = "5"
CaptionColor0 = 65535
CaptionY0 = .07
CaptionText1 = "E"
CaptionColor1 = 255
CaptionY1 = .93
Direction = 1
BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
InLineWidth = 0
LedHeight = 2
LedNum = 20
LedSeparation = 2
LedWidth = 16
Orientation = 1
OutLineWidth = 0
PosY = 15
SizeMode = 2
StyleNum = 4
StyleShape0 = 1
StyleOffColor0 = 64
StyleOnPicture0 = "LED.frx":1E66
StyleOffPicture0= "LED.frx":1E82
StyleOnColor1 = 65280
StyleOffColor1 = 25600
StyleOnPicture1 = "LED.frx":1E9E
StyleOffPicture1= "LED.frx":1EBA
StyleOnColor2 = 65535
StyleOffColor2 = 25700
StyleOnPicture2 = "LED.frx":1ED6
StyleOffPicture2= "LED.frx":1EF2
StyleOnColor3 = 16711680
StyleOffColor3 = 6553600
StyleOnPicture3 = "LED.frx":1F0E
StyleOffPicture3= "LED.frx":1F2A
Value = 20
End
Begin cstLED.LED ledVolume
Height = 1620
Index = 5
Left = 1830
TabIndex = 17
Top = 270
Width = 270
_ExtentX = 476
_ExtentY = 2858
BackColor = 0
BackPicture = "LED.frx":1F46
BorderWidth = 0
CaptionNum = 2
CaptionText0 = "6"
CaptionColor0 = 65535
CaptionY0 = .07
CaptionText1 = "F"
CaptionColor1 = 255
CaptionY1 = .93
Direction = 1
BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
InLineWidth = 0
LedHeight = 2
LedNum = 20
LedSeparation = 2
LedWidth = 16
Orientation = 1
OutLineWidth = 0
PosY = 15
SizeMode = 2
StyleNum = 4
StyleShape0 = 1
StyleOffColor0 = 64
StyleOnPicture0 = "LED.frx":1F62
StyleOffPicture0= "LED.frx":1F7E
StyleOnColor1 = 65280
StyleOffColor1 = 25600
StyleOnPicture1 = "LED.frx":1F9A
StyleOffPicture1= "LED.frx":1FB6
StyleOnColor2 = 65535
StyleOffColor2 = 25700
StyleOnPicture2 = "LED.frx":1FD2
StyleOffPicture2= "LED.frx":1FEE
StyleOnColor3 = 16711680
StyleOffColor3 = 6553600
StyleOnPicture3 = "LED.frx":200A
StyleOffPicture3= "LED.frx":2026
Value = 20
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 1665
Left = 450
Top = 240
Width = 1665
End
Begin VB.Label Label1
AutoSize = -1 'True
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 7200
TabIndex = 19
Top = 4470
Width = 120
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "You can control these ActiveX with mouse"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 3810
TabIndex = 18
Top = 1830
Width = 4395
End
Begin VB.Menu menuFile
Caption = "File(&F)"
Begin VB.Menu menuExit
Caption = "Exit(&X)"
End
End
Begin VB.Menu menuHelp
Caption = "Help(&H)"
Begin VB.Menu menuContents
Caption = "Contents F1"
End
Begin VB.Menu menuAbout
Caption = "About LED"
End
Begin VB.Menu menuSep
Caption = "-"
End
Begin VB.Menu menuHome
Caption = "Century Soar Home Page"
End
End
End
Attribute VB_Name = "LED"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'LED Example
'*********************************************************************************************
Private Sub DLed1_change()
'On Error Resume Next
Label1.Caption = DLed1.Value
End Sub
Private Sub DLed6_change()
'On Error Resume Next
DLed7.Value = DLed6.Value
End Sub
Private Sub Timer1_Timer()
'On Error Resume Next
Dim i As Long
For i = 0 To 5
ledVolume(i).Value = Rnd * 20
Next i
End Sub
Private Sub Timer2_Timer()
'On Error Resume Next
Static i As Byte
i = i + 1
If i = 6 Then
DLed2(1).CaptionID = 0
DLed2(1).CaptionText = "END"
ElseIf i > 6 Then
i = 0
DLed2(1).CaptionID = 0
DLed2(1).CaptionText = "L O A D. . ."
End If
DLed2(1).Value = i
End Sub
'**********************************************************************************************
Private Sub Form_Unload(Cancel As Integer)
''On Error Resume Next
Set LED = Nothing
End Sub
Private Sub menuExit_Click()
Unload Me
End Sub
Private Sub menuContents_Click()
SendKeys "{F1}"
End Sub
Private Sub menuHome_Click()
Shell "c:\program files\internet explorer\iexplore.exe http://www.cstsoft.com", 3
End Sub
Private Sub menuAbout_Click()
DLed1.ShowAbout
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -