控件 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 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 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 , snow, True If LED1.LEDLEFT 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 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