| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 659 人关注过本帖
标题:VB6中出现错误429,Active部件不能创建对象。敢情各位帮忙看下是怎么回事
只看楼主 加入收藏
北方之狼
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-3-16
收藏
 问题点数:0 回复次数:0 
VB6中出现错误429,Active部件不能创建对象。敢情各位帮忙看下是怎么回事
各位大侠,路过的烦请看看,小弟去年编了一个程序,能用的,今年打算用此程序做毕业设计的。但是今天打开后发现程序不能用了,运行后显示错误哦429,ActiveX部件不能创建对象。由于毕业论文这个月底就要交了,小弟烦请各位帮忙看下哪里有问题,该如何修改
Private StopWatch1 As ccrpStopWatch
Dim one_time As Double
Dim m As Integer

Private Sub Form_Keypress(Keyascii As Integer):  Dim x As Integer:
L1.Visible = False
Line1.Visible = True: Line2.Visible = True
one_time = StopWatch1.Elapsed
n = Data1.Recordset("数字"): i = Keyascii: p = n Mod 2:
Select Case p
   Case 0
     Select Case i
          Case 107
          Open "d:\结果输出偶数.txt" For Append As #1
          Print #1, n, m, "不正确", one_time
          Close #1
          Case 115
          Open "d:\结果输出偶数.txt" For Append As #1
          Print #1, n, m, "正确", one_time
          Close #1
          Case Else
          Open "d:\结果输出偶数.txt" For Append As #1
          Print #1, n, m, "不正确", one_time
          Close #1
     End Select
   Case 1
      Select Case i
          Case 107
          Open "d:\结果输出奇数.txt " For Append As #2
          Print #2, n, m, "正确", one_time
          Close #2
          Case 115
          Open "d:\结果输出奇数.txt " For Append As #2
          Print #2, n, m, "不正确", one_time
          Close #2
          Case Else
          Open "d:\结果输出奇数.txt " For Append As #2
          Print #2, n, m, "不正确", one_time
          Close #2
       End Select
 End Select
 End Sub

Private Sub Form_Load()
Form3.Width = Screen.Width
Form3.Height = Screen.Height
Line1.BorderColor = vbRed
Line2.BorderColor = vbRed

Set StopWatch1 = New ccrpStopWatch
m = 0
End Sub

Private Sub Timer1_Timer()
  Data1.Recordset.MoveNext
  L1.Visible = True
  Line1.Visible = False: Line2.Visible = False
  m = Int(Rnd * 3 + 1)
  Select Case m
    Case 1
         Form3.L1.Left = 0.19 * Form3.Width
         Form3.L1.Top = 0.35 * Form3.Height
         Form3.L1.Width = 0.2 * Form3.Width
         Form3.L1.Height = 0.3 * Form3.Height
     Case 2
         Form3.L1.Left = 0.5 * Form3.Width
         Form3.L1.Top = 0.35 * Form3.Height
         Form3.L1.Width = 0.5 * Form3.Width
         Form3.L1.Height = 0.3 * Form3.Height
     Case 3
         Form3.L1.Left = 0.8 * Form3.Width
         Form3.L1.Top = 0.35 * Form3.Height
         Form3.L1.Width = 0.8 * Form3.Width
         Form3.L1.Height = 0.3 * Form3.Height
    End Select
  L1.Caption = Label2.Caption
  StopWatch1.Reset
  If Form3.Data1.Recordset.EOF Then Form2.Show
End Sub
调试后红色部分显示有问题,但具体咋回事我不知是什么,不知该怎么修改,各位高手救救小弟。小弟万分感谢。
搜索更多相关主题的帖子: 429 毕业论文 如何 
2012-03-16 19:53
快速回复:VB6中出现错误429,Active部件不能创建对象。敢情各位帮忙看下是怎么回 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037405 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved