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
调试后红色部分显示有问题,但具体咋回事我不知是什么,不知该怎么修改,各位高手救救小弟。小弟万分感谢。