Question

VB编程中出现“编译错误：发现二义性的名称

Private Sub Command1_Click()
Const num = 140

Private Sub Form_Load()
Label3.Caption = Str(num)
End Sub

Private Sub Command1_Click()
Label3.Caption = num - Len(Text1.Text)
If Val(Label3.Caption) < 0 Then
Text1.Text = Left(Text1.Text, num)
MsgBox "您不能再输入更多内容了！", , "字数限制！"
End If
End Sub

Private Subindex As Integer
Const num = 140
If Len(Text1.Text) = 0 Then

MsgBox "已经成功将内容发送到您的微博！", , "发送成功！"
Text1.Text = ""
Else
MsgBox "没有内容,请写博文！", , "错误"
End If
End Sub

End Sub

Answer 1

我遇到过你的情况。解决的方式：一定是控件按钮名称是一样，比如至少有两个command1_click()。
可以先查找控件名称，函数名称，过程名称，找到重复的。
找到重复的过程，不用立即删除，先注释过程的代码，即代码中没一行都是以“'”开头，字体成绿色。在VB上面有整个代码注释的按钮。防治删除正确的代码。保留正确的，确保成功后，才能删除不需要和重复的代码。
希望能够解决。

Answer 2

Private Subindex As Integer
Const num = 140 '这个

Private Sub Command1_Click()　‘这个也重定义了
Const num = 140　‘和这个重定义了

Answer 3

第一句，Private Sub Command1_Click()

这句有什么用呢？