VB语言结束提示子程序或函数未定义。 10
3个回答
2018-09-19 · 知道合伙人互联网行家
关注
展开全部
VB字程序或函数未定义说明代码中引用的过程或函数没有定义或名称写错。
给出的代码msg不是VB的内部函数,代码中也没有自定义的msg过程存在。而正确的消息框函数名是MsgBox。
Sub, Function, 或 Property 未定义(错误 35)
调用 Sub、Function 或 Property 的过程必须定义。此错误有以下的原因和解决方法:
过程名称拼错。
检查拼写并改正。
试图从另一个工程调用过程,但并没有在“引用”
对话框中将该引用添加到该工程。
添加引用
1.显示“引用” 对话框。
2.查找包含要调用过程的工程名。如果“引用” 对话框中没有所要的工程名,请按“浏览”按钮来搜寻它。
3.选取工程名左边的复选框。
4.单击“确定”。
正确的代码:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("注意,你的1号框里没有任何内空请加入.")
Else
Text2.Text = Text1.Text
End If
End Sub
MsgBox 函数
在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
给出的代码msg不是VB的内部函数,代码中也没有自定义的msg过程存在。而正确的消息框函数名是MsgBox。
Sub, Function, 或 Property 未定义(错误 35)
调用 Sub、Function 或 Property 的过程必须定义。此错误有以下的原因和解决方法:
过程名称拼错。
检查拼写并改正。
试图从另一个工程调用过程,但并没有在“引用”
对话框中将该引用添加到该工程。
添加引用
1.显示“引用” 对话框。
2.查找包含要调用过程的工程名。如果“引用” 对话框中没有所要的工程名,请按“浏览”按钮来搜寻它。
3.选取工程名左边的复选框。
4.单击“确定”。
正确的代码:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("注意,你的1号框里没有任何内空请加入.")
Else
Text2.Text = Text1.Text
End If
End Sub
MsgBox 函数
在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
展开全部
你看看,出错提示同时是否在“mciSendString”处高亮度选中?如果是的话,mciSendString 是一个API 函数,需要在声明段引用声明。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |