Question

VB 子程序或函数未定义

Private Sub Command1_Click()
If Text1.Text = "" Then
msg ("注意,你的1号框里没有任何内空请加入.")
Else
Text2.Text = Text1.Text
End If
End Sub

请问高手错哪里了?要怎样做才能对.我是新手请你们细心的回答下..谢谢..

Answer 1

VB 子程序或函数未定义是设置错误造成的，解决方法为：

1、先绘制一个命令按钮，双击命令按钮进入代码窗口。

2、首先定义一个变体变量。

3、输入一个数字，并使用ABS函数。

4、然后写输出Print语句。

5、然后点击按钮测试。

Answer 2

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 告诉用户单击哪一个按钮。

Answer 3

ClsOpenDataBase
LoadName
可能是别人封装好的方法，这写都不是系统自带的函数，你要解决这问题，要没自己封装该方法，要么弄到该方法的源码加在自己的工程里。

Answer 4

msg ("注意,你的1号框里没有任何内空请加入.")
改为
msgbox "注意,你的1号框里没有任何内空请加入."

Answer 5

Position
VB没有这个函数吧?
你以前用的
是不是有模块定义了公有函数或者子程序