LED授权错误解决方案

第一步:将Mscomm32.ocx复制到系统文件夹中。    
第二步:用Windows下的注册工具regsvr32注册该OCX控件,点击“开始”->"运行",再在中填入(假设操作安装在C盘,WIN2003):    
              Regsvr32     C:\winnt\system32\Mscomm32.ocx    
  第三步:在注册表中手工新建一个主键项:先在点击“开始”->"运行",再在中填入regedit命令打开注册表,找到HKEY_CLASSES_ROOT\Licenses,在其中添加主键4250E830-6AC2-11cf-8ADB-00AA00C00905 并将内容设置为: kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

 

转载于:https://www.cnblogs.com/chlygxy113/archive/2008/05/30/1210648.html

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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值