vb.net模块参数 vbnet函数与模块

VB.NET中传递参数有哪些方式？

byval

成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于做网站、成都网站建设、本溪网络推广、重庆小程序开发、本溪网络营销、本溪企业策划、本溪品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供本溪建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com

byref

Of

Optional

ParamArray

在Visual stdio 工程中写 public sub AA(

下面自动出现这五个.

你这个默认是指自动生成的方法(过程\函数)吗?

那么默认是值传递Byval

要是自己写函数.则无参为默认

如何使用VB.NET中可选参数调用方法

VB.NET可选参数的默认值必须是一个常数表达式。

过程定义中跟在可选参数后的每个参数也都必须是可选的。

下面的语法显示带VB.NET可选参数的过程声明：

Sub sub name（ByVal parameter 1 As data type 1,

Optional ByVal parameter 2 As data type 2 = default value）

调用带VB.NET可选参数的过程

过程在运行时无法检测到给定的参数是否已被省略，或者调用代码是否已显式提供默认值。如果需要弄清楚这一点，可以设置一个不可能的值作为默认值。下面的过程定义了可选参数 office,并测试其默认值 QJZ 以查看它在调用中是否已被省略：

Visual Basic

Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）

If office = "QJZ" Then

Debug.WriteLine（"office not supplied -- using Headquarters"）

office = "Headquarters" End If

' Insert code to notify headquarters or specified office.

End Sub

如果可选参数是像 String 这样的引用类型，只要它不是该变量所预期的值，就可以使用 Nothing 作为默认值。

VB.NET可选参数和重载

定义带可选参数的过程的另一种方法是使用重载。如果有一个可选参数，可以定义过程的两个重载版本，一个接受此参数，另一个则不带参数。此方法随可选参数数目的增加而变得更复杂。然而，这样做的优点是可以完全确定调用程序是否提供了每个VB.NET可选参数。

VB.NET怎么调用其它模块的过程？

调用过程，调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。下面说明如何调用 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  用于声明只能在包含该声明的模块中使用的过程。

VB.NET中的模块

在C#中有 静态类 的概念 自然里边全部的方法都是静态的 这意味着你可以直接通过 类名 方法名 去调用（例如System的Math类就是典型） 在VB NET中 没有 静态类 的概念（当然你可以用 单例模式 把构造函数弄成Private的方式 其它方法都是静态的）如果某些方法需要被其它地方频繁使用 可以创建 模块 在VB NET中一旦创建了模块 其中任何方法 属性或者变量都可以被其它地方引用 因此适合全局情况下频繁交互的情况（比如初始化加载的参数 可能后续程序要使用）等

现在问题在于 如果你把一个类似以下的模块代码封装成DLL类库 无论在C#或者是VB NET中都无法引用到其方法

Module A

Public Sub Test()

End Sub

End Module

或许你感到很奇怪——不是在VB NET中这样定义一个Module就直接可以使用其内部方法了么？为什么封装成类库就不可以了呢？上网问了一些人 众说纷纭 后来我在他人协助下终于成功解决了这个问题——解决方法很简单——只要在Module前加Public

理由是 为了兼容C# VB NET由Module封装成类库中这个模块不再是 模块 而是一个标准的类了 如果这样写 那么在 NET中被理解成(C#)

internal A

{

public void Test()

{

}

}

整个模块变成Internal的了！当然你到其它程序集中去引用就引用不到！而把类库中的Module的修饰符改为Public就可以了 这就是MSDN那位友人给我最好的提示

虽然这个提示不是令我太满意（因为要知道VB NET中可以直接不通过 类名 方式直接使用方法名） 但是这给了我很大的暗示 得出重要的结论

）VB NET中Module在制作成类库时候等同于VB NET中的类的规则（里边的方法都是静态的） 默认情况下是Friend（C#是internal）

）根据结论 那么我们知道引用该DLL类库的方法一定是 i）引用命名空间  ii）C#中直接 类名 方法名 对于VB NET 直接可以引用到方法名

lishixinzhi/Article/program/net/201311/12502

vb.net 中在模块（module）里如何实现委托

委托三个步骤

1、声明委托 用Delegate 声明一个委托 类型 参数要和 被委托的方法一样 例如 Delegate Function a(byval x as string) as string

2、实例化委托 dim t as new a(AddressOf Function Name)

3.通过 t(参数) 或者 t.Invoke(参数调用委托)

示例：

Module module1

Delegate Function a(ByVal x As Integer, ByVal y As Integer) As Integer '声明委托类型 委托可以使一个对象调用另一个对象的方法

Function sum(ByVal x As Integer, ByVal y As Integer) As Integer

Return (x + y)

End Function

Sub main()

Dim d As New a(AddressOf sum) '实例化委托

Dim s = 0

s = d.Invoke(1, 2) '执行委托

Console.WriteLine(s.ToString())

s = d(1, 2) '执行委托

Console.WriteLine(s.ToString())

MsgBox("")

End Sub

End Module