【文件属性】:
文件名称:控件 led。ocx
文件大小:105KB
文件格式:RAR
更新时间:2012-12-30 18:56:38
控件 了点ocx
Dim addition As Integer
Private Sub Command1_Click()
'LED1.SetLineWidth (CInt(Text1.Text))
LED1.LEDSIZE = CInt(Text1.Text)
End Sub
Private Sub Command2_Click()
LED1.LEDWIDTH = CInt(Text2.Text)
End Sub
Private Sub Command3_Click()
LED1.LEDXYRATE = CVar(Text3.Text)
End Sub
Private Sub Form_Load()
Text1.Text = LED1.LEDSIZE
Text2.Text = LED1.LEDWIDTH
Text3.Text = LED1.LEDXYRATE
LED2.LEDSTRING = Left(CStr(Now()), 8)
addition = 30
End Sub
Private Sub Timer1_Timer()
Dim sNow$
sNow = CStr(Now())
'LED1.DRAW_LED 30, 30, snow, True
If LED1.LEDLEFT <= 0 Then
addition = 30
Else
If LED1.LEDLEFT + LED1.LEDLONG > 6000 Then addition = -30
End If
LED1.LEDLEFT = LED1.LEDLEFT + addition
LED1.LEDTOP = (LED1.Height - LED1.LEDHIGH) / 2
LED1.LEDSTRING = Right(sNow, 8)
End Sub
Dim addition As Integer
Private Sub Command1_Click()
'LED1.SetLineWidth (CInt(Text1.Text))
LED1.LEDSIZE = CInt(Text1.Text)
End Sub
Private Sub Command2_Click()
LED1.LEDWIDTH = CInt(Text2.Text)
End Sub
Private Sub Command3_Click()
LED1.LEDXYRATE = CVar(Text3.Text)
End Sub
Private Sub Form_Load()
Text1.Text = LED1.LEDSIZE
Text2.Text = LED1.LEDWIDTH
Text3.Text = LED1.LEDXYRATE
LED2.LEDSTRING = Left(CStr(Now()), 8)
addition = 30
End Sub
Private Sub Timer1_Timer()
Dim sNow$
sNow = CStr(Now())
'LED1.DRAW_LED 30, 30, snow, True
If LED1.LEDLEFT <= 0 Then
addition = 30
Else
If LED1.LEDLEFT + LED1.LEDLONG > 6000 Then addition = -30
End If
LED1.LEDLEFT = LED1.LEDLEFT + addition
LED1.LEDTOP = (LED1.Height - LED1.LEDHIGH) / 2
LED1.LEDSTRING = Right(sNow, 8)
End Sub
【文件预览】:
使用说明.txt
led
----使用说明.txt(1KB)
----FormTest.frx(778B)
----Led控件.oca(27KB)
----FormTest.frm(3KB)
----LED.oca(19KB)
----MSSCCPRJ.SCC(196B)
----Led控件.ocx(140KB)
----ProjectTest.vbw(50B)
----readme.txt(506B)
----ProjectTest.vbp(707B)
Led控件.ocx
网友评论
- 一般般,我没有用上,最后自己写一个。
- 能用,不错
- 怎么只能运行几秒钟呀?
- 效果还不错
- 为什么需要注册码啊,控件很好·
- 控件还是很不错的 可惜是要注册码的