Question

vb6.0中实时错误424代表

这是一个用vb6.0编写的计算器代码部分，但是调试的时候出现424错误，由于没有装MSDN，请各位帮忙解决呀！！

Dim cl As Boolean
Dim M As Integer

Private Sub Add_textbox(st As String)

If Len(textbox1.Text) > 8 And cl = False Then Exit Sub

If textbox1.Text = "0" And st = "0" Then Exit Sub
M = CDbl(textbox1.Text)
If M <> 0 And cl = True Then
textbox1.Text = " "
cl = False
End If
If textbox1.Text = "0" And st <> "." Then textbox1.Text = " "

textbox1.Text = textbox1.Text + st

End Sub

Answer 1

此段代码应该没有语法错误 ,这只是一个过程,此过程是用来检测输入是否有误,将一些超出范围或不合法的字符过滤掉,由于你给的代码不全

对于 424 错误的分析 是 没有对象

你可能是没有添加对象,但代码中出现未知的对象名称,或者对象名称与属性名称不一致,本代码中有个textbox1 它表示的是一个文本框,但是在创建时默认名为 text1 如果你 没改过来的话 就可能出现要求对象的424 错误