vb.net的过程 vbnet with

详细阐述 vb.net 中main

每个 Visual Basic 应用程序均必须包含一个称为VB.NET Main过程。该过程为应用程序的起始点并为应用程序提供总体控制。.NET Framework 在已加载应用程序并准备将控制传递给它时，将调用 Main 过程。除非您要创建 Windows 窗体应用程序，否则就必须为自运行的应用程序编写 Main 过程。

我们提供的服务有：网站建设、成都做网站、微信公众号开发、网站优化、网站认证、科尔沁左翼ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的科尔沁左翼网站制作公司

Main 中包含首先运行的代码。在 Main 中，可以确定在程序启动时首先加载的窗体，确定系统上是否已在运行您的应用程序副本，为应用程序建立一组变量，或者打开应用程序需要的数据库。

VB.NET Main过程的要求

独立运行的文件（扩展名通常为 .exe）必须包含 Main 过程。库（例如，扩展名为 .dll）不独立运行，因而不需要 Main 过程。可以创建的不同类型的项目的要求如下：

控制台应用程序可以独立运行，而且您必须提供至少一个 Main 过程。

Windows 窗体应用程序可以独立运行。但是，Visual Basic 编译器会在此类应用程序中自动生成一个 Main 过程，因而您不需要编写此过程。

类库不需要 Main 过程。这些类库包括 Windows 控件库和 Web 控件库。作为类库部署 Web 应用程序。

声明VB.NET Main过程

有四种方法可以声明 Main 过程。它可以使用参数或不使用参数，可以返回值或不返回值。

注意

如果在类中声明 Main 过程，则必须使用 Shared 关键字。在模块中，Main 不必是 Shared。

最简单的方法是声明一个不使用参数或不返回值的 Sub 过程。

Module mainModule

Sub Main()

MsgBox("The Main procedure

is starting the application.")

' Insert call to appropriate

starting place in your code.

MsgBox("The application

is terminating.")

End Sub

End ModuleMain

还可以返回一个 Integer 值，操作系统将其作为程序的退出代码。其他程序可以通过检查 Windows ERRORLEVEL 值来测试该代码。若要返回退出代码，必须将VB.NET Main过程声明为 Function 过程而不是 Sub 过程。

Module mainModule

Function Main() As Integer

MsgBox("The Main procedure

is starting the application.")

Dim returnValue As Integer = 0

' Insert call to appropriate

starting place in your code.

' On return, assign appropriate

value to returnValue.

' 0 usually means successful

completion.

MsgBox("The application is

terminating with error level " _

CStr(returnValue) ".")

Return returnValue

End Function

End ModuleMain

还可以采用一个 String 数组作为参数。数组中的每个字符串均包含一个用于调用程序的命令行参数。您可以根据它们的值采取不同的操作。

Module mainModule

Function Main(ByVal cmdArgs()

As String) As Integer

MsgBox("The Main procedure is

starting the application.")

Dim returnValue As Integer = 0

' See if there are any arguments.

If cmdArgs.Length 0 Then

For argNum As Integer = 0 To

UBound(cmdArgs, 1)

' Insert code to examine cmdArgs

(argNum) and take

' appropriate action based on its value.

Next argNum

End If

' Insert call to appropriate starting

place in your code.

' On return, assign appropriate

value to returnValue.

' 0 usually means successful completion.

MsgBox("The application is

terminating with error level " _

CStr(returnValue) ".")

Return returnValue

End Function

End Module

可以声明VB.NET Main过程来检查命令行参数而不返回退出代码，如下所示。

Module mainModule

Sub Main(ByVal cmdArgs() As String)

MsgBox("The Main procedure is

starting the application.")

Dim returnValue As Integer = 0

' See if there are any arguments.

If cmdArgs.Length 0 Then

For argNum As Integer = 0 To

UBound(cmdArgs, 1)

' Insert code to examine cmdArgs

(argNum) and take

' appropriate action based on its value.

Next argNum

End If

' Insert call to appropriate

starting place in your code.

MsgBox("The application is

terminating."

End Sub

End Module

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过程

可以看到PC（）函数是这样定义的

Public Sub pc(ByVal a%, ByRef d%, ByRef b%).

ByVal是传递值 源数据不会被修改，你可以把这个值当作自己的局部变量来使用；ByRef是传递地址，源数据可能被修改，你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉.

------------------------------------------------

而a，b，c初始化分别为2，3，4

a = 2 : b = 3 : c = 4

当调用PC（）函数时

Call pc(a, b, c) ，此时，相当于call pc(2,3,4)

由于PC函数定义的时候，d，c是传递地址，可以改变，所以此时d=3，b=4，a不变，还是为2

所以执行以下计算的时候，

a = a + 1 =2+1=3（注意，执行这句操作的时候，在PC函数里面a的值改变了为3，影响PC函数中涉及到a的计算）

b = b + 2 =4+2=6

c = a + d =3+3=6

------------------------

最后按钮事件里面还有一个输出，

由于a在PC（）函数里面是值传递，所以不会受到影响，故a=2；

b为一个局部变量，不影响，故b=3；

c=6

--------------

调试程序的时候看的有点乱了，也不知道我这样分析有没有错，你自己也看看吧，互相学习