VB 模块中的过程如何调用？

Question

模块1 中有个过程：
Private Sub ABC()
'......
End Sub

要在窗体中的 按钮1 中调用过程ABC（）

Private Sub Command1_Click()
Call ABC
End Sub
-------------
想问问这个错在那里？
貌似有应该该用 Private 开垦模块过程。那么另一个字是什么来着。
调用时是否还的Call Module1.ABC

Answer 1

调用过程，调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。下面说明如何调用 Sub 过程和 Function 过程。

调用 Sub 过程

与 Sub 过程不同，在表达式中，Sub 过程不能用其名字调用。调用 Sub 过程的是一个独立的语句。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与 Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。

调用 Sub 过程有两种方法：

'以下两个语句都调用了名为 MyProc 的 Sub 过程。

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，当使用 Call 语法时，参数必须在括号内。若省略 Call 关键字，则也必须省略参数两边的括号

调用函数过程

通常，调用自行编写的函数过程的方法和调用 Visual Basic 内部函数过程（例如 Abs）的方法一样；即在表达式中写上它的名字。

'下面的语句都调用函数 ToDec。

Print 10 * ToDec

X = ToDec

If ToDec = 10 Then Debug.Print "Out of Range"

X = AnotherFunction ( 10 * ToDec)

就像调用 Sub 过程那样，也能调用函数。下面的语句都调用同一个函数：

Call Year (Now)

Year Now

当用这种方法调用函数时，Visual Basic 放弃返回值。

调用其它模块中的过程

在工程中的任何地方都能调用其它模块中的公用过程。可能需要指定这样的模块，它包含正在调用的过程。调用其它模块中的过程的各种技巧，取决于该过程是在窗体模块中、类模块中还是标准模块中。

窗体中的过程

所有窗体模块的外部调用必须指向包含此过程的窗体模块。如果在窗体模块 Form1 包含 SomeSub 过程，则可使用下面的语句调用 Form1 中的过程：

Call Form1.SomeSub(arguments)

类模块中的过程

与窗体中调用过程类似，在类模块中调用过程要调用与过程一致并且指向类实例的变量。例如，DemoClass 是类 Class1 的实例：

Dim DemoClass as New Class1

DemoClass.SomeSub

但是不同于窗体的是，在引用一个类的实例时，不能用类名作限定符。必须首先声明类的实例为对象变量（在这个例子中是 DemoClass ）并用变量名引用它。

标准模块中的过程

如果过程名是唯一的，则不必在调用时加模块名。无论是在模块内，还是在模块外调用，结果总会引用这个唯一过程。如果过程仅出现在一个地方，这个过程就是唯一的。

如果两个以上的模块都包含同名的过程，那就有必要用模块名来限定了。在同一模块内调用一个公共过程就会运行该模块内的过程。例如，对于 Module1 和 Module2 中名为 CommonName 的过程，从 Module2 中调用 CommonName 则运行 Module2 中的 CommonName 过程，而不是 Module1 中的 CommonName 过程。

从其它模块调用公共过程名时必须指定那个模块。例如，若在 Module1 中调用 Module2 中的 CommonName 过程，要用下面的语句：

Module2.CommonName (arguments)

Public   用于声明对所有模块中的所有其它过程都可以使用的过程。 

Private  ç”¨äºŽå£°æ˜Žåªèƒ½åœ¨åŒ…含该声明的模块中使用的过程。 

Answer 2

与private 相对的是public
改成下面这样就行了，用private表示只在模块中起作用，用module1.abc也不能调用。

Public Sub ABC()
'......
End Sub

或者直接 sub abc(),前面啥也不要。本回答被提问者采纳

Answer 3

举一个比较直观的例子
你在模块1中写好以后函数：

Public Function 直角三角形斜边(Byval 直角边1 as Double,Byval 直角边2 as Double)
直角三角形斜边=sqr(直角边1^2+直角边2^2)
End Function

在你要调用函数的地方写上
Dim 斜边 as Double
斜边=直角三角形斜边(3,4)
print 斜边

最终会打印出 5 ，说明你的函数调用成功了。
如果是没有返回值的过程，其实也一样的，就不需要定义一个变量去接收它：
使用Call+过程名 命令就可以了

比如
Private Sub ABC()
'......
End Sub

使用的时候就 Call ABC

但是应该注意函数或过程的作用域，也就是Private或Public,如果其他地方没有权限调用函数，就会报错。本回答被网友采纳