VB 子程序或函数未定义
答案:5 悬赏:0 手机版
解决时间 2021-03-29 11:39
- 提问者网友:富士山上尢
- 2021-03-28 18:54
VB 子程序或函数未定义
最佳答案
- 五星知识达人网友:纵马山川剑自提
- 2021-03-28 19:11
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 SubMsgBox 函数
在对话框中显示消息,等待用户单击按钮,并返回一个 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 SubMsgBox 函数
在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
全部回答
- 1楼网友:孤独入客枕
- 2021-03-28 21:25
msg ("注意,你的1号框里没有任何内空请加入.")
改为
msgbox "注意,你的1号框里没有任何内空请加入."
改为
msgbox "注意,你的1号框里没有任何内空请加入."
- 2楼网友:举杯邀酒敬孤独
- 2021-03-28 21:15
第三行该成 K=msgbox() 括号里输出你要提示的内容
开始的时候最好也定义一下K
开始的时候最好也定义一下K
- 3楼网友:动情书生
- 2021-03-28 20:10
msg错了吧,要显示用于输出显示的对话框是用msgbox语句或msgbox()函数,
msgbox作为语句用时不需要括号,作为函数用时当然就要括号了,作为函数用他还有返回值,所以要用一变量来存储返回值(整型变量As Integer)
msgbox作为语句用时不需要括号,作为函数用时当然就要括号了,作为函数用他还有返回值,所以要用一变量来存储返回值(整型变量As Integer)
- 4楼网友:人间朝暮
- 2021-03-28 19:59
子程序是指你程序里面调用的程序,来看一下你的程序,Command1_Click() 里面哪里是子程序或者函数,可以发现你调用了一个VB的内置函数MSG,你想用这个函数来输出提示信息,不错。但是,想法很好,函数却用错了,你看一下MSDn会发现根本没有MSG(),近似的有MSGBOX(),这个函数正是输出内容的函数。调用之:
msgbox ("注意,你的1号框里没有任何内空请加入.")
这样没有内容输入的时候,这个提示“注意,你的1号框里没有任何内空请加入.”的对话框旧出来了,学一个函数一定要搞清出他的来历,用法
msgbox ("注意,你的1号框里没有任何内空请加入.")
这样没有内容输入的时候,这个提示“注意,你的1号框里没有任何内空请加入.”的对话框旧出来了,学一个函数一定要搞清出他的来历,用法
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯