控件 led。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