在本章中，我们将讨论可用于创建VB.Net应用程序的工具。

我们已经提到VB.Net是.Net框架的一部分，用于编写.Net应用程序。 因此，在讨论用于运行VB.Net程序的可用工具之前，让我们先了解VB.Net如何与.Net框架相关。

.NET框架 

.NET Framework是一个革命性的平台，可以帮助你编写以下类型的应用：

• Windows应用程序

• Web应用程序

• 网页服务

.Net框架应用程序是多平台应用程序。 该框架的设计方式使其可以从以下任何语言使用：Visual Basic，C＃，C ++，Jscript和COBOL等。

.Net框架包含一个巨大的代码库，用于客户端语言（如VB.Net）。 这些语言使用面向对象的方法。

所有这些语言可以访问框架以及彼此通信。

以下是.Net框架的一些组件：

• 公共语言运行时（CLR）  Common Language Runtime (CLR)
  

• .NET框架类库  The .Net Framework Class Library
  

• 公共语言规范  Common Language Specification
  

• 通用类型系统  Common Type System
  

• 元数据和组件  Metadata and Assemblies
  

• Windows窗体  Windows Forms
  

• ASP.Net和ASP.Net AJAX  

• ADO.Net

• Windows工作流基础（WF）  Windows Workflow Foundation (WF)
  

• Windows演示基础  Windows Presentation Foundation
  

• Windows通讯基础（WCF）  Windows Communication Foundation (WCF)
  

• LINQ

对于每个组件执行的工作，请参阅ASP.Net -介绍 ，有关每个组件的详细信息，请参阅微软的文档。

VB.Net的集成开发环境（IDE） 

Microsoft为VB.Net编程提供以下开发工具：

1、Visual Studio 2010（VS）

2、Visual Basic 2010 Express（VBE）

3、可视化Web开发

最后两个是免费的。 使用这些工具，您可以将各种VB.Net程序从简单的命令行应用程序写入到更复杂的应用程序。 Visual Basic Express和Visual Web Developer Express版是Visual Studio的精简版本，具有相同的外观和感觉。 它们保留了Visual Studio的大多数功能。 在本教程中，我们使用了Visual Basic 2010 Express和Visual Web Developer（针对Web编程章节）。

你可以从这里下载 。它会自动安装在您的计算机上。 请注意，您需要一个有效的互联网连接安装快速版本。

在Linux或Mac OS上编写VB.Net程序

虽然.NET Framework在Windows操作系统上运行，但有一些替代版本可在其他操作系统上运行。 Mono是.NET Framework的开源版本，包括Visual Basic编译器，可在多种操作系统上运行，包括各种Linux和Mac OS。 最新版本是VB 2012。

Mono的既定目的不仅是能够跨平台运行Microsoft .NET应用程序，而且为Linux开发人员提供更好的开发工具。 Mono可以在许多操作系统上运行，包括Android，BSD，iOS，Linux，OS X，Windows，Solaris和UNIX。

在我们学习VB.Net编程语言的基本构建块之前，让我们看看一个最小的VB.Net程序结构，以便我们可以将它作为未来的章节的参考。

VB.Net Hello World示例

一个VB.Net程序主要由以下几部分组成：

• 命名空间声明  Namespace declaration
  

• 一个类或模块  A class or module
  

• 一个或多个程序  One or more procedures
  

• 变量  Variables
  

• 主过程  The Main procedure
  

• 语句和表达式  Statements & Expressions
  

• 注释  Comments

让我们看一个简单的代码，打印单词“Hello World”：

Imports SystemModule Module1   'This program will display Hello World    Sub Main()      Console.WriteLine("Hello World")      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Hello, World!

让我们来看看上面的程序中的各个部分：

• 程序Imports System的第一行用于在程序中包括系统命名空间。The first line of the program Imports System is used to include the System namespace in the program.

• 下一行有一个Module声明，模块Module1。 VB.Net是完全面向对象的，所以每个程序必须包含一个类的模块，该类包含您的程序使用的数据和过程。The next line has a Module declaration, the module Module1. VB.Net is completely object oriented, so every program must contain a module of a class that contains the data and procedures that your program uses.
  

• 类或模块通常将包含多个过程。 过程包含可执行代码，或者换句话说，它们定义了类的行为。 过程可以是以下任何一种：

  • 功能 Function
    

  • 子 Sub
    

  • 运算符 Operator
    

  • 获取 Get
    

  • 组 Set
    

  • AddHandler

  • RemoveHandler

  • 的RaiseEvent

• 下一行（'这个程序）将被编译器忽略，并且已经在程序中添加了额外的注释。

• 下一行定义了Main过程，它是所有VB.Net程序的入口点。 Main过程说明了模块或类在执行时将做什么。

• Main过程使用语句指定其行为

  Console.WriteLine（“Hello World”的）

  WriteLine是在System命名空间中定义的Console类的一个方法。 此语句会导致消息"Hello，World ！"在屏幕上显示。
  

• 最后一行Console.ReadKey（）是用于VS.NET用户的。 这将阻止屏幕从Visual Studio .NET启动时快速运行和关闭。

编译和执行VB.Net程序：

如果您使用Visual Studio.Net IDE，请执行以下步骤：

• 启动Visual Studio。 Start Visual Studio.

• 在菜单栏，选择文件，新建，项目。 On the menu bar, choose File, New, Project.

• 从模板中选择Visual Basic。Choose Visual Basic from templates

• 选择控制台应用程序。Choose Console Application.

• 使用浏览按钮指定项目的名称和位置，然后选择确定按钮。 Specify a name and location for your project using the Browse button, and then choose the OK button.

• 新项目显示在解决方案资源管理器中。 The new project appears in Solution Explorer.

• 在代码编辑器中编写代码。 Write code in the Code Editor.

• 单击运行按钮或F5键运行项目。 将出现一个包含行Hello World的命令提示符窗口。 Click the Run button or the F5 key to run the project. A Command Prompt window appears that contains the line Hello World.

您可以使用命令行而不是Visual Studio IDE编译VB.Net程序：

• 打开文本编辑器，并添加上述代码。 Open a text editor and add the above mentioned code.

• 将文件另存为helloworld.vb。 Save the file as helloworld.vb

• 打开命令提示符工具并转到保存文件的目录。 Open the command prompt tool and go to the directory where you saved the file.

• 类型VBC helloworld.vb，然后按回车编译代码。 Type vbc helloworld.vb and press enter to compile your code.

• 如果在你的代码中没有错误命令提示符下会带你到下一行，并会产生HelloWorld.exe的可执行文件。 If there are no errors in your code the command prompt will take you to the next line and would generate helloworld.exe executable file.

• 接下来，输入的HelloWorld来执行你的程序。 Next, type helloworld to execute your program.

• 您将可以看到“Hello World”字样在屏幕上。 You will be able to see "Hello World" printed on the screen.

VB.Net是一种面向对象的编程语言。 在面向对象编程方法中，程序由通过动作相互交互的各种对象组成。 对象可能采取的动作称为方法。 相同类型的对象被认为具有相同的类型，或者更经常地被称为在同一类中。

当我们考虑VB.Net程序时，它可以定义为通过调用对方的方法进行通信的对象的集合。 现在让我们简单地看看类，对象，方法和实例变量是什么意思。

• Object 对象-对象具有状态和行为。 示例：狗有状态 - 颜色，名称，品种以及行为 - 摇摆，吠叫，吃饭等。对象是类的实例。
  

• Class 类-类可以被定义为描述其类型的对象支持的行为/状态的模板/蓝图。
  

• Methods 方法-方法基本上是一种行为。一个类可以包含许多方法。一般的程序逻辑在方法中体现，数据的操作和动作的执行也在方法中实现。

• 实例变量 -每个对象都有其唯一的实例变量集。 对象的状态由分配给这些实例变量的值创建。

VB.Net中的Rectangle类

例如，让我们考虑一个Rectangle对象。 它具有长度和宽度等属性。 根据设计，它可能需要接受这些属性的值，计算面积和显示细节的方式。

让我们看一个Rectangle类的实现，并在我们的观察的基础上讨论VB.Net基本语法：

Imports SystemPublic Class Rectangle    Private length As Double    Private width As Double    'Public methods    Public Sub AcceptDetails()        length = 4.5        width = 3.5    End Sub    Public Function GetArea() As Double        GetArea = length * width    End Function    Public Sub Display()        Console.WriteLine("Length: {0}", length)        Console.WriteLine("Width: {0}", width)        Console.WriteLine("Area: {0}", GetArea())    End Sub    Shared Sub Main()        Dim r As New Rectangle()        r.Acceptdetails()        r.Display()        Console.ReadLine()    End SubEnd Class

当上述代码被编译和执行时，它产生以下结果：

Length: 4.5Width: 3.5Area: 15.75

在上一章中，我们创建了一个包含代码的Visual Basic模块。 Sub Main表示VB.Net程序的入口点。 这里，我们使用包含代码和数据的类。 您使用类来创建对象。 例如，在代码中，r是一个Rectangle对象。

对象是类的一个实例：

Dim r As New Rectangle()

类可以具有可以从外部类访问的成员，如果指定的话。 数据成员称为字段，过程成员称为方法。

可以在不创建类的对象的情况下调用共享方法或静态方法。 通过类的一个对象调用实例方法：

Shared Sub Main()   Dim r As New Rectangle()   r.Acceptdetails()   r.Display()   Console.ReadLine()End Sub

标识符

标识符是用于标识类，变量，函数或任何其他用户定义项的名称。 在VB.Net中命名类的基本规则如下：

• 名称必须以字母开头，后跟一个字母，数字（0 - 9）或下划线。 标识符中的第一个字符不能是数字。
  

• 不能包含任何空格或特殊符号（例如：？  - +！ @＃％^＆*（）[] {}。 ; ：“'/和）。但是，可以使用下划线（_）。
  

• 不可以使用保留关键字。

VB.Net关键字

下表列出了VB.Net保留的关键字：

数据类型指用于声明不同类型的变量或函数的扩展系统。 变量的类型确定它在存储中占用多少空间以及如何解释存储的位模式。

VB.Net中提供的数据类型

VB.Net提供了多种数据类型。下表显示的所有数据类型可用的：

示例

下面的示例演示使用的一些类型︰

Module DataTypes   Sub Main()      Dim b As Byte      Dim n As Integer      Dim si As Single      Dim d As Double      Dim da As Date      Dim c As Char      Dim s As String      Dim bl As Boolean      b = 1      n = 1234567      si = 0.12345678901234566      d = 0.12345678901234566      da = Today      c = "U"c      s = "Me"      If ScriptEngine = "VB" Then         bl = True      Else         bl = False      End If      If bl Then         'the oath taking          Console.Write(c & " and," & s & vbCrLf)          Console.WriteLine("declaring on the day of: {0}", da)          Console.WriteLine("We will learn VB.Net seriously")          Console.WriteLine("Lets see what happens to the floating point variables:")          Console.WriteLine("The Single: {0}, The Double: {1}", si, d)      End If      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

U and, Medeclaring on the day of: 12/4/2012 12:00:00 PMWe will learn VB.Net seriouslyLets see what happens to the floating point variables:The Single:0.1234568, The Double: 0.123456789012346

VB.Net中的类型转换函数

VB.Net提供以下内联类型转换函数：

示例：

下面的例子演示了其中的一些功能：

Module DataTypes   Sub Main()      Dim n As Integer      Dim da As Date      Dim bl As Boolean = True      n = 1234567      da = Today      Console.WriteLine(bl)      Console.WriteLine(CSByte(bl))      Console.WriteLine(CStr(bl))      Console.WriteLine(CStr(da))      Console.WriteLine(CChar(CChar(CStr(n))))      Console.WriteLine(CChar(CStr(da)))      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

True-1True12/4/201211

VB.Net中的变量声明

[ < attributelist> ] [ accessmodifier ] [[ Shared ] [ Shadows ] | [ Static ]][ ReadOnly ] Dim [ WithEvents ] variablelist

1、attributelist是适用于变量的属性列表。 可选的。

2、accessmodifier定义变量的访问级别，它具有值 - Public，Protected，Friend，Protected Friend和Private。 可选的。

3、Shared共享声明一个共享变量，它不与类或结构的任何特定实例相关联，而是可用于类或结构的所有实例。 可选的。

4、Shadows阴影表示变量在基类中重新声明和隐藏一个同名的元素或一组重载的元素。 可选的。

5、Static表示变量将保留其值，即使在声明它的过程终止之后。 可选的。

6、ReadOnly表示变量可以读取，但不能写入。 可选的。

7、WithEvents指定该变量用于响应分配给变量的实例引发的事件。 可选的。

8、Variablelist提供了声明的变量列表。

变量列表中的每个变量具有以下语法和部分：

variablename[ ( [ boundslist ] ) ] [ As [ New ] datatype ] [ = initializer ]

1、variablename：是变量的名称

2、boundslist：可选。 它提供了数组变量的每个维度的边界列表。

3、New：可选。 当Dim语句运行时，它创建一个类的新实例。

4、datatype：如果Option Strict为On，则为必需。 它指定变量的数据类型。

5、initializer：如果未指定New，则为可选。 创建时评估并分配给变量的表达式。

一些有效的变量声明及其定义如下所示：

Dim StudentID As IntegerDim StudentName As StringDim Salary As DoubleDim count1, count2 As IntegerDim status As BooleanDim exitButton As New System.Windows.Forms.ButtonDim lastTime, nextTime As Date

VB.Net中的变量初始化

变量被初始化（赋值）一个等号，然后是一个常量表达式。 初始化的一般形式是：

variable_name = value;

例如，

Dim pi As Doublepi = 3.14159

您可以在声明时初始化变量，如下所示：

Dim StudentID As Integer = 100Dim StudentName As String = "Bill Smith"

示例

尝试下面的例子，它使用各种类型的变量：

Module variablesNdataypes   Sub Main()      Dim a As Short      Dim b As Integer      Dim c As Double      a = 10      b = 20      c = a + b      Console.WriteLine("a = {0}, b = {1}, c = {2}", a, b, c)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

a = 10, b = 20, c = 30

接受来自用户的值

System命名空间中的控制台类提供了一个函数ReadLine，用于接受来自用户的输入并将其存储到变量中。 例如，

Dim message As Stringmessage = Console.ReadLine

下面的例子说明：

Module variablesNdataypes   Sub Main()      Dim message As String      Console.Write("Enter message: ")      message = Console.ReadLine      Console.WriteLine()      Console.WriteLine("Your Message: {0}", message)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果（假设用户输入的Hello World）：

Enter message: Hello World   Your Message: Hello World

Lvalues和Rvalues

有两种表达式：

• lvalue：作为左值的表达式可能出现在赋值的左侧或右侧。
• rvalue：作为右值的表达式可能出现在作业的右侧但不是左侧。

变量是左值，因此可能出现在作业的左侧。 数字文字是右值，因此可能不会分配，不能出现在左侧。 以下是有效的语句：

Dim g As Integer = 20

但以下并不是有效的语句，并会生成编译时的错误：

20 = g

enumeration 枚举是一组命名的整数常量。

声明常量

[ < attributelist> ] [ accessmodifier ] [ Shadows ] Const constantlist

1、attributelist：指定应用于常量的属性列表; 您可以提供多个属性，以逗号分隔。 可选的。

2、accessmodifier：指定哪些代码可以访问这些常量。 可选的。 值可以是：Public, Protected, Friend, Protected Friend, or Private.

3、Shadows:这使常量隐藏基类中相同名称的编程元素。 可选的。

4、Constantlist：给出声明的常量的名称列表。 必填。

其中，每个常量名都有以下语法和部分：

constantname [ As datatype ] = initializer

1、constantname 常量名：指定常量的名称

2、data type 数据类型：指定常量的数据类型

3、initializer 初始值设定：指定分配给常量的值

例如，

'The following statements declare constants.'Const maxval As Long = 4999Public Const message As String = "HELLO" Private Const piValue As Double = 3.1415

示例

以下示例演示了常量值的声明和使用：

Module constantsNenum   Sub Main()      Const PI = 3.14159      Dim radius, area As Single      radius = 7      area = PI * radius * radius      Console.WriteLine("Area = " & Str(area))      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Area = 153.938

在VB.Net中输出和显示常量

VB.Net提供以下打印和显示常量：

声明枚举

[ < attributelist > ] [ accessmodifier ]  [ Shadows ] Enum enumerationname [ As datatype ]    memberlistEnd Enum

1、attributelist:指应用于变量的属性列表。 可选的。

2、asscessmodifier：指定哪些代码可以访问这些枚举。 可选的。 值可以是：公共，受保护，朋友或私人。

3、Shadows：这使枚举隐藏基类中相同名称的编程元素。 可选的。

4、enumerationname：枚举的名称。 必填

5、datatype：指定枚举的数据类型及其所有成员。

6、memberlist：指定在此语句中声明的成员常数的列表。 必填。

成员列表中的每个成员具有以下语法和部分：

[< attribute list>] member name [ = initializer ]

• name 名称 ：指定成员的名称。必填。

• initializer 初始化 ：分配给枚举成员的值。可选的。

例如，

Enum Colors   red = 1   orange = 2   yellow = 3   green = 4   azure = 5   blue = 6   violet = 7End Enum

示例

以下示例演示了Enum变量颜色的声明和使用：

Module constantsNenum   Enum Colors      red = 1      orange = 2      yellow = 3      green = 4      azure = 5      blue = 6      violet = 7   End Enum   Sub Main()      Console.WriteLine("The Color Red is : " & Colors.red)      Console.WriteLine("The Color Yellow is : " & Colors.yellow)      Console.WriteLine("The Color Blue is : " & Colors.blue)      Console.WriteLine("The Color Green is : " & Colors.green)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

The Color Red is: 1The Color Yellow is: 3The Color Blue is: 6The Color Green is: 4

VB.Net中可用的修饰符列表

下表提供了VB.Net修饰符的完整列表：

2、Executable statements 可执行语句 - 这些是启动动作的语句。 这些语句可以调用方法或函数，通过代码块循环或分支，或者将值或表达式赋值给变量或常量。 在最后一种情况下，它被称为Assignment语句。

声明语句

Dim number As IntegerDim quantity As Integer = 100Dim message As String = "Hello!"

Const maximum As Long = 1000Const naturalLogBase As Object = CDec(2.7182818284)

Enum CoffeeMugSize    Jumbo    ExtraLarge    Large    Medium    SmallEnd Enum 

Class BoxPublic length As DoublePublic breadth As Double   Public height As DoubleEnd Class

Structure BoxPublic length As Double           Public breadth As Double   Public height As DoubleEnd Structure

Public Module myModuleSub Main()Dim user As String = InputBox("What is your name?") MsgBox("User name is" & user)End Sub End Module

Public Interface MyInterface    Sub doSomething()End Interface 

Function myFunction(ByVal n As Integer) As Double     Return 5.87 * nEnd Function

Sub mySub(ByVal s As String)    ReturnEnd Sub 

Declare Function getUserNameLib "advapi32.dll" Alias "GetUserNameA" (  ByVal lpBuffer As String,   ByRef nSize As Integer) As Integer 

Public Shared Operator +(ByVal x As obj, ByVal y As obj) As obj        Dim r As New obj' implemention code for r = x + y        Return r    End Operator 

ReadOnly Property quote() As String     Get         Return quoteString    End Get End Property

Public Event Finished()

Delegate Function MathOperator(     ByVal x As Double,     ByVal y As Double ) As Double 

可执行语句

可执行语句执行操作。 调用过程，分支到代码中的另一个地方，循环使用几个语句或评估表达式的语句是可执行语句。 赋值语句是可执行语句的一种特殊情况。

以下示例演示了一个决策语句：

Module decisions   Sub Main()      'local variable definition '      Dim a As Integer = 10      ' check the boolean condition using if statement '      If (a < 20) Then         ' if condition is true then print the following '         Console.WriteLine("a is less than 20")      End If      Console.WriteLine("value of a is : {0}", a)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

a is less than 20;value of a is : 10

VB.Net编译器没有单独的预处理器; 然而，指令被处理，就像有一个。 在VB.Net中，编译器指令用于帮助条件编译。 与C和C ++指令不同，它们不用于创建宏。

在 VB.Net 中的编译器指令

VB.Net提供了以下一组编译器指令：

• The #Const 指令

• The #ExternalSource 指令

• The #If...Then...#Else 指令

• The #Region 指令

The#Const指令

该指令定义条件编译常量。语法这个指令是：

#Const constname = expression

• constname：指定常量的名称。必要。

• expression ：它是文字或其他条件编译器常量，或包含任何或所有算术或逻辑运算符（除了Is）的组合。

例如，

#Const state = "WEST BENGAL"

示例

以下代码演示了伪指令的使用：

Module mydirectives#Const age = TrueSub Main()   #If age Then      Console.WriteLine("You are welcome to the Robotics Club")   #End If   Console.ReadKey()End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

You are welcome to the Robotics Club

The#ExternalSource指令

#ExternalSource( StringLiteral , IntLiteral )    [ LogicalLine ]#End ExternalSource

#ExternalSource伪指令的参数是外部文件的路径，第一行的行号和发生错误的行。

示例

以下代码演示了伪指令的使用：

Module mydirectives    Public Class ExternalSourceTester        Sub TestExternalSource()        #ExternalSource("c:vbprogsdirectives.vb", 5)            Console.WriteLine("This is External Code. ")        #End ExternalSource        End Sub    End Class    Sub Main()        Dim t As New ExternalSourceTester()        t.TestExternalSource()        Console.WriteLine("In Main.")        Console.ReadKey()    End Sub

当上述代码被编译和执行时，它产生了以下结果：

This is External Code.In Main.

The #If...Then...#Else 指令

#If expression Then   statements[ #ElseIf expression Then   [ statements ]...#ElseIf expression Then   [ statements ] ][ #Else   [ statements ] ]#End If

例如，

#Const TargetOS = "Linux"#If TargetOS = "Windows 7" Then   ' Windows 7 specific code#ElseIf TargetOS = "WinXP" Then   ' Windows XP specific code#Else   ' Code for other OS#End if

示例

下面的代码演示一个假设使用的指令：

Module mydirectives#Const classCode = 8   Sub Main()   #If classCode = 7 Then        Console.WriteLine("Exam Questions for Class VII")   #ElseIf classCode = 8 Then        Console.WriteLine("Exam Questions for Class VIII")   #Else        Console.WriteLine("Exam Questions for Higher Classes")   #End If        Console.ReadKey()    End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Exam Questions for Class VIII

The #Region指令

#Region "identifier_string" #End Region

例如，

#Region "StatsFunctions"     ' Insert code for the Statistical functions here.#End Region

运算符是一个符号，通知编译器执行特定的数学或逻辑操作。 VB.Net丰富的内置运算符，并提供以下类型的常用运算符：

• 算术运算符

• 比较运算符

• 逻辑/位运算符

• 位移位运算符

• 赋值运算符

• 其他运算符

本教程将介绍最常用的运算符。

算术运算符

下表显示了VB.Net支持的所有算术运算符。 假设变量A保持2，变量B保持7，则：

显示示例

比较运算符

下表显示了VB.Net支持的所有比较运算符。 假设变量A保持10，变量B保持20，则：

显示示例

逻辑/位运算符

下表显示了VB.Net支持的所有逻辑运算符。 假设变量A保持布尔值True，变量B保持布尔值False，则：

显示示例

位移运算符

假设A = 60; 和B = 13; 现在的二进制格式，他们将如下：

A = 0011 1100

B = 0000 1101

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

A＆B = 0000 1100

A | B = 0011 1101

A ^ B = 0011 0001

〜A = 1100 0011

显示示例

赋值运算符

VB.Net支持以下赋值运算符：

显示示例

其他运算符

有很少其他重要的操作系统支持VB.Net。

显示示例

AddHandler Button1.Click,AddressOf Button1_Click

Dim result As res= Await AsyncMethodThatReturnsResult()Await AsyncMethod()

MsgBox(GetType(Integer).ToString())

Dim add5 = Function(num As Integer) num + 5'prints 10Console.WriteLine(add5(5))

Dim num = 5Console.WriteLine(If(num >= 0,"Positive", "Negative"))

VB.Net中的运算符优先级

运算符优先级确定表达式中的术语分组。 这会影响表达式的计算方式。 某些运算符比其他运算符具有更高的优先级; 例如，乘法运算符的优先级高于加法运算符：

例如，x = 7 + 3 * 2; 这里，x被分配13，而不是20，因为operator *具有比+高的优先级，所以它首先乘以3 * 2，然后加到7。

这里，具有最高优先级的运算符出现在表的顶部，具有最低优先级的运算符出现在底部。 在表达式中，将首先计算较高优先级运算符。

显示示例

决策结构需要 程序员指定一个或多个条件进行评估或测试程序和语句或语句的执行， 如果确定的条件为真，并选择，如果确定的条件为假，则执行其它语句。

以下是决策的典型结构发现在大多数编程语言的一般形式︰

VB.Net 提供以下类型的决策语句。 

单击以下链接以检查其详细信息。

可能有一种情况，当你需要执行一段代码几次。

 一般来说，语句是按顺序执行的：函数中的第一个语句首先执行，然后是第二个语句，依此类推。

编程语言提供允许更复杂的执行路径的各种控制结构。

循环语句允许我们多次执行一个语句或一组语句，以下是大多数编程语言中循环语句的一般形式：

VB.Net 提供以下类型的循环来处理循环需求。 单击以下链接以检查其详细信息。

循环控制语句：

循环控制语句从其正常序列改变执行。 当执行离开作用域时，在该作用域中创建的所有自动对象都将被销毁。

VB.Net 提供以下控制语句。 单击以下链接以检查其详细信息。

在VB.Net中，可以使用字符串作为字符数组，但是更常见的做法是使用String关键字声明一个字符串变量。 string关键字是System.String类的别名。

创建一个字符串对象

您可以使用以下方法之一创建字符串对象：

• By assigning a string literal to a String variable 通过指定一个字符串给一个字符串变量 
  

• By using a String class constructor 通过使用String类构造函数
  

• By using the string concatenation operator (+) 通过使用字符串连接运算符（+） 
  

• By retrieving a property or calling a method that returns a string 通过检索属性或调用返回字符串的方法

• By calling a formatting method to convert a value or object to its string representation
  通过调用格式化方法将值或对象转换为其字符串表示形式

下面的例子说明了这一点：

Module strings   Sub Main()      Dim fname, lname, fullname, greetings As String      fname = "Rowan"      lname = "Atkinson"      fullname = fname + " " + lname      Console.WriteLine("Full Name: {0}", fullname)     'by using string constructor      Dim letters As Char() = {"H", "e", "l", "l", "o"}      greetings = New String(letters)      Console.WriteLine("Greetings: {0}", greetings)      'methods returning String      Dim sarray() As String = {"Hello", "From", "Tutorials", "Point"}      Dim message As String = String.Join(" ", sarray)      Console.WriteLine("Message: {0}", message)      'formatting method to convert a value       Dim waiting As DateTime = New DateTime(2012, 12, 12, 17, 58, 1)      Dim chat As String = String.Format("Message sent at {0:t} on {0:D}", waiting)      Console.WriteLine("Message: {0}", chat)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Full Name: Rowan AtkinsonGreetings: HelloMessage: Hello From Tutorials PointMessage: Message sent at 5:58 PM on Wednesday, December 12, 2012

String类的属性

String类有以下两个属性：

String类的方法

String类有许多方法可以帮助你处理字符串对象。 下表提供了一些最常用的方法：

上面列出的方法并不详尽，请访问MSDN库获取完整的方法列表和String类构造函数。

例子：

下面的例子说明了上述一些方法：

比较字符串：

Module strings   Sub Main()      Dim str1, str2 As String      str1 = "This is test"      str2 = "This is text"      If (String.Compare(str1, str2) = 0) Then          Console.WriteLine(str1 + " and " + str2 +                            " are equal.")      Else          Console.WriteLine(str1 + " and " + str2 +                            " are not equal.")      End If      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

This is test and This is text are not equal.

字符串包含字符串：

Module strings   Sub Main()      Dim str1 As String      str1 = "This is test"      If (str1.Contains("test")) Then          Console.WriteLine("The sequence 'test' was found.")      End If      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

The sequence 'test' was found.

获取的子字符串：

Module strings   Sub Main()      Dim str As String      str = "Last night I dreamt of San Pedro"      Console.WriteLine(str)      Dim substr As String = str.Substring(23)      Console.WriteLine(substr)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Last night I dreamt of San PedroSan Pedro.

加入字符串：

Module strings   Sub Main()      Dim strarray As String() = {"Down the way where the nights are gay",                          "And the sun shines daily on the mountain top",                           "I took a trip on a sailing ship",                          "And when I reached Jamaica",                          "I made a stop"}      Dim str As String = String.Join(vbCrLf, strarray)      Console.WriteLine(str)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Down the way where the nights are gayAnd the sun shines daily on the mountain topI took a trip on a sailing shipAnd when I reached JamaicaI made a stop

你写的大部分软件都需要实现某种形式的日期功能，返回当前日期和时间。日期是日常生活的一部分，使用它能让工作变得轻松，不需要太多思考。 VB.Net还提供了强大的日期算术工具，使操作日期变得容易。

日期数据类型包含日期值，时间值或日期和时间值。 Date的默认值为0001年1月1日的0:00:00（午夜）。等效的.NET数据类型为System.DateTime。

DateTime 结构表示即时时间，通常表示为日期和时间的一天

'Declaration<SerializableAttribute> _Public Structure DateTime _	Implements IComparable, IFormattable, IConvertible, ISerializable,  	IComparable(Of DateTime), IEquatable(Of DateTime)

您还可以从DateAndTime类获取当前日期和时间。

DateAndTime模块包含日期和时间操作中使用的过程和属性。

'Declaration<StandardModuleAttribute> _Public NotInheritable Class DateAndTime

DateTime结构的属性和方法

下表列出了一些DateTime结构的常用属性 ：

下表列出了DateTime结构的一些常用方法：

以上列出的方法并不详尽，请访问微软的文档以获取DateTime结构的方法和属性的完整列表。

创建DateTime对象

您可以通过以下方式之一创建DateTime对象：

• By calling a DateTime constructor from any of the overloaded DateTime constructors.通过从任何重载的DateTime构造函数调用DateTime构造函数。
  

• By assigning the DateTime object a date and time value returned by a property or method.
  通过为DateTime对象分配属性或方法返回的日期和时间值。

• By parsing the string representation of a date and time value.
  通过解析日期和时间值的字符串表示。

• By calling the DateTime structure's implicit default constructor.
  通过调用DateTime结构的隐式默认构造函数。

下面的例子说明了这一点：

Module Module1   Sub Main()      'DateTime constructor: parameters year, month, day, hour, min, sec      Dim date1 As New Date(2012, 12, 16, 12, 0, 0)      'initializes a new DateTime value      Dim date2 As Date = #12/16/2012 12:00:52 AM#      'using properties      Dim date3 As Date = Date.Now      Dim date4 As Date = Date.UtcNow      Dim date5 As Date = Date.Today      Console.WriteLine(date1)      Console.WriteLine(date2)      Console.WriteLine(date3)      Console.WriteLine(date4)      Console.WriteLine(date5)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

12/16/2012 12:00:00 PM12/16/2012 12:00:52 PM12/12/2012 10:22:50 PM12/12/2012 12:00:00 PM

获取当前日期和时间：

以下程序演示如何获取VB.Net中的当前日期和时间：

当前时间：

Module dateNtime   Sub Main()      Console.Write("Current Time: ")      Console.WriteLine(Now.ToLongTimeString)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Current Time: 11 :05 :32 AM

当前日期：

Module dateNtime   Sub Main()      Console.WriteLine("Current Date: ")      Dim dt As Date = Today      Console.WriteLine("Today is: {0}", dt)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Today is: 12/11/2012 12:00:00 AM

格式化日期

Module dateNtime   Sub Main()      Console.WriteLine("India Wins Freedom: ")      Dim independenceDay As New Date(1947, 8, 15, 0, 0, 0)      ' Use format specifiers to control the date display.      Console.WriteLine(" Format 'd:' " & independenceDay.ToString("d"))      Console.WriteLine(" Format 'D:' " & independenceDay.ToString("D"))      Console.WriteLine(" Format 't:' " & independenceDay.ToString("t"))      Console.WriteLine(" Format 'T:' " & independenceDay.ToString("T"))      Console.WriteLine(" Format 'f:' " & independenceDay.ToString("f"))      Console.WriteLine(" Format 'F:' " & independenceDay.ToString("F"))      Console.WriteLine(" Format 'g:' " & independenceDay.ToString("g"))      Console.WriteLine(" Format 'G:' " & independenceDay.ToString("G"))      Console.WriteLine(" Format 'M:' " & independenceDay.ToString("M"))      Console.WriteLine(" Format 'R:' " & independenceDay.ToString("R"))      Console.WriteLine(" Format 'y:' " & independenceDay.ToString("y"))      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

India Wins Freedom:Format 'd:' 8/15/1947Format 'D:' Friday, August 15, 1947Format 't:' 12:00 AMFormat 'T:' 12:00:00 AMFormat 'f:' Friday, August 15, 1947 12:00 AMFormat 'F:' Friday, August 15, 1947 12:00:00 AMFormat 'g:' 8/15/1947 12:00 AMFormat 'G:' 8/15/1947 12:00:00 AMFormat 'M:' 8/15/1947 August 15Format 'R:' Fri, 15 August 1947 00:00:00 GMTFormat 'y:' August, 1947

预定义的日期/时间格式

下表列出了预定义的日期和时间格式名称。 可以通过这些名称用作Format函数的样式参数：

对于其他格式，如用户定义的格式，请参阅Microsoft文档 。

属性和DateAndTime类的方法

下表列出了一些DateAndTime类的常用属性 ：

下表列出了一些DateAndTime类的常用方法 ：

上述名单并不详尽。有关属性和DateAndTime类的方法的完整列表，请参阅Microsoft文档 。

下面的程序演示其中的一些方法：

Module Module1   Sub Main()      Dim birthday As Date      Dim bday As Integer      Dim month As Integer      Dim monthname As String      ' Assign a date using standard short format.      birthday = #7/27/1998#      bday = Microsoft.VisualBasic.DateAndTime.Day(birthday)      month = Microsoft.VisualBasic.DateAndTime.Month(birthday)      monthname = Microsoft.VisualBasic.DateAndTime.MonthName(month)      Console.WriteLine(birthday)      Console.WriteLine(bday)      Console.WriteLine(month)      Console.WriteLine(monthname)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

7/27/1998 12:00:00 AM277July

所有数组由连续的内存位置组成。 最低地址对应于第一个元素，最高地址对应于最后一个元素。

在VB.Net中创建数组

要在VB.Net中声明数组，可以使用Dim语句。 例如，

Dim intData(30)	  ' an array of 31 elementsDim strData(20) As String	' an array of 21 stringsDim twoDarray(10, 20) As Integer	'a two dimensional array of integersDim ranges(10, 100)	 'a two dimensional array

您还可以在声明数组时初始化数组元素。 例如，

Dim intData() As Integer = {12, 16, 20, 24, 28, 32}Dim names() As String = {"Karthik", "Sandhya", _"Shivangi", "Ashwitha", "Somnath"}Dim miscData() As Object = {"Hello World", 12d, 16ui, "A"c}

可以通过使用数组的索引来存储和访问数组中的元素。 以下程序演示了这一点：

Module arrayApl   Sub Main()      Dim n(10) As Integer  ' n is an array of 11 integers '      Dim i, j As Integer      ' initialize elements of array n '               For i = 0 To 10          n(i) = i + 100 ' set element at location i to i + 100       Next i      ' output each array element's value '      For j = 0 To 10          Console.WriteLine("Element({0}) = {1}", j, n(j))      Next j      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Element(0) = 100Element(1) = 101Element(2) = 102Element(3) = 103Element(4) = 104Element(5) = 105Element(6) = 106Element(7) = 107Element(8) = 108Element(9) = 109Element(10) = 110

动态数组

ReDim [Preserve] arrayname(subscripts)

• Preserve关键字有助于在调整现有数组大小时保留现有数组中的数据。

• arrayname是要重新维度的数组的名称。

• subscripts指定新维度。

Module arrayApl   Sub Main()      Dim marks() As Integer      ReDim marks(2)      marks(0) = 85      marks(1) = 75      marks(2) = 90      ReDim Preserve marks(10)      marks(3) = 80      marks(4) = 76      marks(5) = 92      marks(6) = 99      marks(7) = 79      marks(8) = 75      For i = 0 To 10          Console.WriteLine(i & vbTab & marks(i))      Next i      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

0	851	752	903	804	765	926	997	798	759	010	0

多维数组

VB.Net允许多维数组。多维数组也被称为矩形数组。

你可以声明一个二维的字符串数组：

Dim twoDStringArray(10, 20) As String

或者，整数变量的3维数组：

Dim threeDIntArray(10, 10, 10) As Integer

下面的程序演示创建和使用二维数组：

Module arrayApl   Sub Main()      ' an array with 5 rows and 2 columns      Dim a(,) As Integer = {{0, 0}, {1, 2}, {2, 4}, {3, 6}, {4, 8}}      Dim i, j As Integer      ' output each array element's value '      For i = 0 To 4          For j = 0 To 1              Console.WriteLine("a[{0},{1}] = {2}", i, j, a(i, j))          Next j      Next i      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

a[0,0]: 0a[0,1]: 0a[1,0]: 1a[1,1]: 2a[2,0]: 2a[2,1]: 4a[3,0]: 3a[3,1]: 6a[4,0]: 4a[4,1]: 8

不规则数组

Jagged数组是一个数组的数组。 以下代码显示了声明一个名为score of Integers的不规则数组：

Dim scores As Integer()() = New Integer(5)(){}

下面的例子说明使用不规则数组：

Module arrayApl   Sub Main()      'a jagged array of 5 array of integers      Dim a As Integer()() = New Integer(4)() {}      a(0) = New Integer() {0, 0}      a(1) = New Integer() {1, 2}      a(2) = New Integer() {2, 4}      a(3) = New Integer() {3, 6}      a(4) = New Integer() {4, 8}      Dim i, j As Integer      ' output each array element's value       For i = 0 To 4          For j = 0 To 1              Console.WriteLine("a[{0},{1}] = {2}", i, j, a(i)(j))          Next j      Next i      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

a[0][0]: 0a[0][1]: 0a[1][0]: 1a[1][1]: 2a[2][0]: 2a[2][1]: 4a[3][0]: 3a[3][1]: 6a[4][0]: 4a[4][1]: 8

Array类

Array类是VB.Net中所有数组的基类。 它在系统命名空间中定义。 Array类提供了处理数组的各种属性和方法。

Array类的属性

下表提供了一些Array类中最常用的属性 ：

Array类的方法

下表提供了一些最常用的Array类方法：

有关Array类属性和方法的完整列表，请参阅Microsoft文档。

示例

下面的程序演示使用的一些Array类的方法：

Module arrayApl   Sub Main()      Dim list As Integer() = {34, 72, 13, 44, 25, 30, 10}      Dim temp As Integer() = list      Dim i As Integer      Console.Write("Original Array: ")      For Each i In list          Console.Write("{0} ", i)      Next i      Console.WriteLine()      ' reverse the array      Array.Reverse(temp)      Console.Write("Reversed Array: ")      For Each i In temp          Console.Write("{0} ", i)      Next i      Console.WriteLine()      'sort the array      Array.Sort(list)      Console.Write("Sorted Array: ")      For Each i In list          Console.Write("{0} ", i)      Next i      Console.WriteLine()      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Original Array: 34 72 13 44 25 30 10Reversed Array: 10 30 25 44 13 72 34Sorted Array: 10 13 25 30 34 44 72

集合类是用于数据存储和检索的专用类。 这些类提供对堆栈，队列，列表和哈希表的支持。 大多数集合类实现相同的接口。

集合类用于各种目的，例如动态地为元素分配内存以及基于索引访问项目列表等。这些类创建Object类的对象集合，Object类是VB中所有数据类型的基类 。

各种集合类和它们的用法

以下是System.Collection命名空间的各种常用类。 单击以下链接以检查其详细信息。

过程是一组调用时一起执行任务的语句。执行该过程之后，控制返回到调用过程的语句。 VB.Net有两种类型的程序：

• Functions
  

• Sub procedures or Subs
  

函数返回一个值，而Subs不返回值。

定义函数

函数语句用于声明函数的名称，参数和主体。 函数语句的语法是：

[Modifiers] Function FunctionName [(ParameterList)] As ReturnType    [Statements]End Function

• Modifiers 修饰符 ：指定函数的访问级别;可能的值有：公共，私有，保护，朋友，关于保护超载，重载，共享和阴影朋友和信息。

• FunctionName：表示该函数的名称

• ParameterList 参数列表 ：指定参数的列表

• ReturnType 返回类型 ：指定变量的函数返回的数据类型

示例

以下代码片段显示了一个函数FindMax，它接受两个整数值，并返回两个较大者。

Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer   ' local variable declaration */   Dim result As Integer   If (num1 > num2) Then       result = num1   Else       result = num2   End If   FindMax = resultEnd Function

函数返回值

在VB.Net中，函数可以通过两种方式向调用代码返回一个值：

• 通过使用return语句

• 通过将值分配给函数名

下面的例子演示了如何使用FindMax函数：

Module myfunctions   Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer      ' local variable declaration */      Dim result As Integer      If (num1 > num2) Then          result = num1      Else          result = num2      End If      FindMax = result   End Function   Sub Main()      Dim a As Integer = 100      Dim b As Integer = 200      Dim res As Integer      res = FindMax(a, b)      Console.WriteLine("Max value is : {0}", res)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Max value is : 200

递归函数

一个函数可以调用自身。 这被称为递归。 以下是使用递归函数计算给定数字的阶乘的示例：

Module myfunctions   Function factorial(ByVal num As Integer) As Integer      ' local variable declaration */      Dim result As Integer      If (num = 1) Then          Return 1      Else          result = factorial(num - 1) * num          Return result      End If   End Function   Sub Main()      'calling the factorial method      Console.WriteLine("Factorial of 6 is : {0}", factorial(6))      Console.WriteLine("Factorial of 7 is : {0}", factorial(7))      Console.WriteLine("Factorial of 8 is : {0}", factorial(8))      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Factorial of 6 is: 720Factorial of 7 is: 5040Factorial of 8 is: 40320

参数数组

Module myparamfunc   Function AddElements(ParamArray arr As Integer()) As Integer      Dim sum As Integer = 0      Dim i As Integer = 0      For Each i In arr          sum += i      Next i      Return sum   End Function   Sub Main()      Dim sum As Integer      sum = AddElements(512, 720, 250, 567, 889)      Console.WriteLine("The sum is: {0}", sum)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

The sum is: 2938

传递数组作为函数参数

您可以在VB.Net中将数组作为函数参数传递。 以下示例演示了这一点：

Module arrayParameter   Function getAverage(ByVal arr As Integer(), ByVal size As Integer) As Double      'local variables       Dim i As Integer       Dim avg As Double       Dim sum As Integer = 0       For i = 0 To size - 1           sum += arr(i)       Next i       avg = sum / size       Return avg    End Function    Sub Main()        ' an int array with 5 elements '        Dim balance As Integer() = {1000, 2, 3, 17, 50}        Dim avg As Double        'pass pointer to the array as an argument         avg = getAverage(balance, 5)        ' output the returned value '        Console.WriteLine("Average value is: {0} ", avg)        Console.ReadLine()    End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Average value is: 214.4

正如我们在上一章中提到的，Sub过程是不返回任何值的过程。 我们在所有的例子中一直使用Sub过程Main。 到目前为止，我们已经在这些教程中编写控制台应用程序。 当这些应用程序开始时，控制转到主子程序，它反过来运行构成程序主体的任何其他语句。

定义子过程

Sub语句用于声明子过程的名称，参数和主体。 Sub语句的语法是：

[Modifiers] Sub SubName [(ParameterList)]     [Statements]End Sub

• Modifiers 修饰符 ：指定过程的访问级别;可能的值有：Public, Private, Protected, Friend, Protected Friend and information regarding overloading, overriding, sharing, and shadowing.
  

• SubName 子名 ：表示该子的名字

• ParameterList 参数列表 ：指定参数的列表

示例

   Sub CalculatePay(ByRef hours As Double, ByRef wage As Decimal)      'local variable declaration      Dim pay As Double      pay = hours * wage      Console.WriteLine("Total Pay: {0:C}", pay)   End Sub   Sub Main()      'calling the CalculatePay Sub Procedure      CalculatePay(25, 10)      CalculatePay(40, 20)      CalculatePay(30, 27.5)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Total Pay: $250.00Total Pay: $800.00Total Pay: $825.00

按值传递参数

这是将参数传递给方法的默认机制。 在这种机制中，当调用方法时，为每个值参数创建一个新的存储位置。 实际参数的值被复制到它们中。 因此，对方法中的参数所做的更改对参数没有影响。

在VB.Net中，可以使用ByVal关键字声明引用参数。 下面的例子演示了这个概念：

Module paramByval   Sub swap(ByVal x As Integer, ByVal y As Integer)      Dim temp As Integer      temp = x ' save the value of x       x = y    ' put y into x       y = temp 'put temp into y    End Sub   Sub Main()      ' local variable definition       Dim a As Integer = 100      Dim b As Integer = 200      Console.WriteLine("Before swap, value of a : {0}", a)      Console.WriteLine("Before swap, value of b : {0}", b)      ' calling a function to swap the values '      swap(a, b)      Console.WriteLine("After swap, value of a : {0}", a)      Console.WriteLine("After swap, value of b : {0}", b)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Before swap, value of a :100Before swap, value of b :200After swap, value of a :100After swap, value of b :200

它表明，虽然它们在函数内部已更改，但值中没有变化。

通过引用传递参数

引用参数是对变量的存储器位置的引用。 当您通过引用传递参数时，与值参数不同，不会为这些参数创建新的存储位置。 参考参数表示与提供给该方法的实际参数相同的存储器位置。

在VB.Net中，可以使用ByRef关键字声明引用参数。 以下示例演示了这一点：

Module paramByref   Sub swap(ByRef x As Integer, ByRef y As Integer)      Dim temp As Integer      temp = x ' save the value of x       x = y    ' put y into x       y = temp 'put temp into y    End Sub   Sub Main()      ' local variable definition       Dim a As Integer = 100      Dim b As Integer = 200      Console.WriteLine("Before swap, value of a : {0}", a)      Console.WriteLine("Before swap, value of b : {0}", b)      ' calling a function to swap the values '      swap(a, b)      Console.WriteLine("After swap, value of a : {0}", a)      Console.WriteLine("After swap, value of b : {0}", b)      Console.ReadLine()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Before swap, value of a : 100Before swap, value of b : 200After swap, value of a : 200After swap, value of b : 100

类的定义

类的定义以关键字Class开头，后跟类名称; 和类体，由End Class语句结束。 以下是类定义的一般形式：

[ <attributelist> ] [ accessmodifier ] [ Shadows ] [ MustInherit | NotInheritable ] [ Partial ] _Class name [ ( Of typelist ) ]    [ Inherits classname ]    [ Implements interfacenames ]    [ statements ]End Class

• attributelist 属性列表：is a list of attributes that apply to the class. Optional.  attributelist是一个适用于类的属性列表。 可选的。

• accessmodifier 访问修改器：defines the access levels of the class, it has values as - Public, Protected, Friend, Protected Friend and Private. Optional.  accessmodifier定义类的访问级别，它的值为 - Public，Protected，Friend，Protected Friend和Private。 可选的。

• Shadows 阴影：indicate that the variable re-declares and hides an identically named element, or set of overloaded elements, in a base class. Optional.  阴影表示变量在基类中重新声明和隐藏一个同名的元素或一组重载的元素。 可选的。

• MustInherit：specifies that the class can be used only as a base class and that you cannot create an object directly from it, i.e., an abstract class. Optional.  MustInherit指定该类只能用作基类，并且不能直接从它创建对象，即抽象类。 可选的。

• NotInheritable 不可继承：specifies that the class cannot be used as a base class.  NotInheritable指定该类不能用作基类。

• Partial 部分：indicates a partial definition of the class.   Partial表示类的部分定义。

• Inherits 继承：specifies the base class it is inheriting from.  Inherits指定它继承的基类。

• Implements 实现：specifies the interfaces the class is inheriting from.  Implements指定类继承的接口。

下面的示例演示了一个Box类，它有三个数据成员，长度，宽度和高度：

Module mybox   Class Box      Public length As Double   ' Length of a box      Public breadth As Double   ' Breadth of a box      Public height As Double    ' Height of a box   End Class   Sub Main()      Dim Box1 As Box = New Box()        ' Declare Box1 of type Box      Dim Box2 As Box = New Box()        ' Declare Box2 of type Box      Dim volume As Double = 0.0     ' Store the volume of a box here      ' box 1 specification      Box1.height = 5.0      Box1.length = 6.0      Box1.breadth = 7.0       ' box 2 specification      Box2.height = 10.0      Box2.length = 12.0	      Box2.breadth = 13.0      'volume of box 1      volume = Box1.height * Box1.length * Box1.breadth      Console.WriteLine("Volume of Box1 : {0}", volume)      'volume of box 2      volume = Box2.height * Box2.length * Box2.breadth      Console.WriteLine("Volume of Box2 : {0}", volume)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Volume of Box1 : 210Volume of Box2 : 1560

成员函数和封装

Module mybox   Class Box      Public length As Double   ' Length of a box      Public breadth As Double   ' Breadth of a box      Public height As Double    ' Height of a box      Public Sub setLength(ByVal len As Double)          length = len      End Sub      Public Sub setBreadth(ByVal bre As Double)          breadth = bre      End Sub      Public Sub setHeight(ByVal hei As Double)          height = hei      End Sub      Public Function getVolume() As Double          Return length * breadth * height      End Function   End Class   Sub Main()      Dim Box1 As Box = New Box()        ' Declare Box1 of type Box      Dim Box2 As Box = New Box()        ' Declare Box2 of type Box      Dim volume As Double = 0.0     ' Store the volume of a box here     ' box 1 specification      Box1.setLength(6.0)      Box1.setBreadth(7.0)      Box1.setHeight(5.0)            'box 2 specification      Box2.setLength(12.0)      Box2.setBreadth(13.0)      Box2.setHeight(10.0)            ' volume of box 1      volume = Box1.getVolume()      Console.WriteLine("Volume of Box1 : {0}", volume)      'volume of box 2      volume = Box2.getVolume()      Console.WriteLine("Volume of Box2 : {0}", volume)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Volume of Box1 : 210Volume of Box2 : 1560

构造函数和析构函数

Class Line   Private length As Double    ' Length of a line   Public Sub New()   'constructor      Console.WriteLine("Object is being created")   End Sub   Public Sub setLength(ByVal len As Double)      length = len   End Sub        Public Function getLength() As Double      Return length   End Function   Shared Sub Main()      Dim line As Line = New Line()      'set line length      line.setLength(6.0)      Console.WriteLine("Length of line : {0}", line.getLength())      Console.ReadKey()   End SubEnd Class

当上述代码被编译和执行时，它产生了以下结果：

Object is being createdLength of line : 6

默认构造函数没有任何参数，但如果需要，构造函数可以有参数。 这样的构造函数称为参数化构造函数。 此技术可帮助您在创建对象时为其分配初始值，如以下示例所示：

Class Line   Private length As Double    ' Length of a line   Public Sub New(ByVal len As Double)   'parameterised constructor      Console.WriteLine("Object is being created, length = {0}", len)      length = len   End Sub   Public Sub setLength(ByVal len As Double)      length = len   End Sub          Public Function getLength() As Double      Return length   End Function   Shared Sub Main()      Dim line As Line = New Line(10.0)      Console.WriteLine("Length of line set by constructor : {0}", line.getLength())      'set line length      line.setLength(6.0)      Console.WriteLine("Length of line set by setLength : {0}", line.getLength())      Console.ReadKey()   End SubEnd Class

当上述代码被编译和执行时，它产生了以下结果：

Object is being created, length = 10Length of line set by constructor : 10Length of line set by setLength : 6

析构函数是一个类的特殊成员Sub，只要它的类的对象超出范围，它就被执行。

Class Line   Private length As Double    ' Length of a line   Public Sub New()   'parameterised constructor      Console.WriteLine("Object is being created")   End Sub   Protected Overrides Sub Finalize()  ' destructor      Console.WriteLine("Object is being deleted")   End Sub   Public Sub setLength(ByVal len As Double)      length = len   End Sub   Public Function getLength() As Double      Return length   End Function   Shared Sub Main()      Dim line As Line = New Line()      'set line length      line.setLength(6.0)      Console.WriteLine("Length of line : {0}", line.getLength())      Console.ReadKey()   End SubEnd Class

当上述代码被编译和执行时，它产生了以下结果：

Object is being createdLength of line : 6Object is being deleted

VB.Net类的共享成员

Class StaticVar   Public Shared num As Integer   Public Sub count()      num = num + 1   End Sub   Public Shared Function getNum() As Integer      Return num   End Function   Shared Sub Main()      Dim s As StaticVar = New StaticVar()      s.count()      s.count()      s.count()      Console.WriteLine("Value of variable num: {0}", StaticVar.getNum())      Console.ReadKey()   End SubEnd Class

当上述代码被编译和执行时，它产生了以下结果：

Value of variable num: 3

继承

基类和派生类：

<access-specifier> Class <base_class>...End ClassClass <derived_class>: Inherits <base_class>...End Class

考虑一个基类Shape和它的派生类Rectangle：

' Base classClass Shape   Protected width As Integer   Protected height As Integer   Public Sub setWidth(ByVal w As Integer)      width = w   End Sub   Public Sub setHeight(ByVal h As Integer)      height = h   End SubEnd Class' Derived classClass Rectangle : Inherits Shape   Public Function getArea() As Integer      Return (width * height)   End FunctionEnd ClassClass RectangleTester   Shared Sub Main()      Dim rect As Rectangle = New Rectangle()      rect.setWidth(5)      rect.setHeight(7)      ' Print the area of the object.      Console.WriteLine("Total area: {0}", rect.getArea())      Console.ReadKey()   End Sub	End Class

当上述代码被编译和执行时，它产生了以下结果：

Total area: 35

基类初始化

' Base classClass Rectangle   Protected width As Double   Protected length As Double   Public Sub New(ByVal l As Double, ByVal w As Double)      length = l      width = w   End Sub   Public Function GetArea() As Double      Return (width * length)   End Function   Public Overridable Sub Display()      Console.WriteLine("Length: {0}", length)      Console.WriteLine("Width: {0}", width)      Console.WriteLine("Area: {0}", GetArea())   End Sub   'end class Rectangle  End Class'Derived classClass Tabletop : Inherits Rectangle   Private cost As Double   Public Sub New(ByVal l As Double, ByVal w As Double)      MyBase.New(l, w)   End Sub   Public Function GetCost() As Double      Dim cost As Double      cost = GetArea() * 70      Return cost   End Function   Public Overrides Sub Display()      MyBase.Display()      Console.WriteLine("Cost: {0}", GetCost())   End Sub    'end class TabletopEnd ClassClass RectangleTester   Shared Sub Main()      Dim t As Tabletop = New Tabletop(4.5, 7.5)      t.Display()      Console.ReadKey()   End SubEnd Class

当上述代码被编译和执行时，它产生了以下结果：

Length: 4.5Width: 7.5Area: 33.75Cost: 2362.5

VB.Net支持多重继承。

异常提供了一种将控制从程序的一个部分转移到另一个部分的方法。 VB.Net异常处理建立在四个关键字：Try，Catch，Finally和Throw。

• Try: A Try block identifies a block of code for which particular exceptions will be activated. It's followed by one or more Catch blocks.  Try块标识将激活特定异常的代码块。 它后面是一个或多个Catch块。

• Catch: A program catches an exception with an exception handler at the place in a program where you want to handle the problem. The Catch keyword indicates the catching of an exception.  程序捕获异常，并在程序中要处理问题的位置使用异常处理程序。 Catch关键字表示捕获异常。

• Finally: The Finally block is used to execute a given set of statements, whether an exception is thrown or not thrown. For example, if you open a file, it must be closed whether an exception is raised or not.  最后：Finally块用于执行给定的一组语句，无论是抛出还是不抛出异常。 例如，如果打开一个文件，那么无论是否引发异常，都必须关闭该文件。

• Throw: A program throws an exception when a problem shows up. This is done using a Throw keyword.  当出现问题时，程序抛出异常。 这是使用Throw关键字完成的。

语法

假设块将引发异常，则方法使用Try和Catch关键字的组合捕获异常。 Try / Catch块放置在可能生成异常的代码周围。 Try / Catch块中的代码称为受保护代码，使用Try / Catch的语法如下所示：

Try    [ tryStatements ]    [ Exit Try ][ Catch [ exception [ As type ] ] [ When expression ]    [ catchStatements ]    [ Exit Try ] ][ Catch ... ][ Finally    [ finallyStatements ] ]End Try

您可以列出多个catch语句以捕获不同类型的异常，以防您的try块在不同情况下引发多个异常。

.Net框架中的异常类

在.Net框架中，异常由类表示。 .Net Framework中的异常类主要直接或间接从System.Exception类派生。 从System.Exception类派生的一些异常类是System.ApplicationException和System.SystemException类。

System.ApplicationException类支持由应用程序生成的异常。 所以程序员定义的异常应该从这个类派生。

System.SystemException类是所有预定义系统异常的基类。

下表提供了从Sytem.SystemException类派生的一些预定义异常类：

处理异常

Module exceptionProg   Sub division(ByVal num1 As Integer, ByVal num2 As Integer)      Dim result As Integer      Try          result = num1  num2      Catch e As DivideByZeroException          Console.WriteLine("Exception caught: {0}", e)      Finally          Console.WriteLine("Result: {0}", result)      End Try   End Sub   Sub Main()      division(25, 0)      Console.ReadKey()  End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Exception caught: System.DivideByZeroException: Attempted to divide by zero. at ...Result: 0

创建用户定义的异常

您还可以定义自己的异常。 用户定义的异常类派生自ApplicationException类。 以下示例演示了这一点：

Module exceptionProg   Public Class TempIsZeroException : Inherits ApplicationException      Public Sub New(ByVal message As String)          MyBase.New(message)      End Sub   End Class   Public Class Temperature      Dim temperature As Integer = 0      Sub showTemp()          If (temperature = 0) Then              Throw (New TempIsZeroException("Zero Temperature found"))          Else              Console.WriteLine("Temperature: {0}", temperature)          End If      End Sub   End Class   Sub Main()      Dim temp As Temperature = New Temperature()      Try          temp.showTemp()      Catch e As TempIsZeroException          Console.WriteLine("TempIsZeroException: {0}", e.Message)      End Try      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

TempIsZeroException: Zero Temperature found

掷物投掷对象

Throw [ expression ]

下面的程序说明了这一点：

Module exceptionProg   Sub Main()      Try          Throw New ApplicationException("A custom exception _		  is being thrown here...")      Catch e As Exception          Console.WriteLine(e.Message)      Finally          Console.WriteLine("Now inside the Finally Block")      End Try      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

A custom exception is being thrown here...Now inside the Finally Block

VB.Net I / O类

FileStream类

Dim <object_name> As FileStream = New FileStream(<file_name>, <FileMode Enumerator>, <FileAccess Enumerator>, <FileShare Enumerator>)

例如，为创建FileStream对象读取文件namedsample.txt：

Dim f1 As FileStream = New FileStream("sample.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)

示例：

下面的程序演示使用FileStream类：

Imports System.IOModule fileProg   Sub Main()      Dim f1 As FileStream = New FileStream("sample.txt", _              FileMode.OpenOrCreate, FileAccess.ReadWrite)      Dim i As Integer      For i = 0 To 20          f1.WriteByte(CByte(i))      Next i      f1.Position = 0      For i = 0 To 20          Console.Write("{0} ", f1.ReadByte())      Next i      f1.Close()      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -1

VB.Net中的高级文件操作

我们将讨论这些类以及它们在以下部分中执行的操作。 请点击提供的链接以获取各个部分：

对象是通过使用工具箱控件在Visual Basic窗体上创建的一种用户界面元素。 事实上，在Visual Basic中，表单本身是一个对象。 每个Visual Basic控件由三个重要元素组成：

• Properties：描述对象的属性，

• Methods：方法导致对象做某事，

• Events：事件是当对象做某事时发生的事情。

控制属性

Object. Property = Value

• Object is the name of the object you're customizing.  Object是您要定制的对象的名称。

• Property is the characteristic you want to change.  属性是您要更改的特性。

• Value is the new property setting.  Value是新的属性设置。

例如，

Form1.Caption = "Hello"

您可以使用属性窗口设置任何窗体属性。 大多数属性可以在应用程序执行期间设置或读取。 您可以参考Microsoft文档中与应用于它们的不同控件和限制相关的属性的完整列表。

控制方法

方法是作为类的成员创建的过程，它们使对象做某事。 方法用于访问或操纵对象或变量的特性。 您将在类中使用的主要有两类方法：

1、如果您使用的工具箱提供的控件之一，您可以调用其任何公共方法。 这种方法的要求取决于所使用的类。

2、如果没有现有方法可以执行所需的任务，则可以向类添加一个方法。

例如，MessageBox控件有一个名为Show的方法，它在下面的代码片段中调用：

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 	Handles Button1.Click        MessageBox.Show("Hello, World")    End SubEnd Class

控制事件

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'event handler code goes hereEnd Sub

这里，Handles MyBase.Load表示Form1_Load（）子例程处理Load事件。 类似的方式，你可以检查存根代码点击，双击。 如果你想初始化一些变量，如属性等，那么你将这样的代码保存在Form1_Load（）子程序中。 这里，重要的一点是事件处理程序的名称，默认情况下是Form1_Load，但您可以根据您在应用程序编程中使用的命名约定更改此名称。

基本控制

• Abort 中止 - returns DialogResult.Abort value, when user clicks an Abort button.  当用户单击“中止”按钮时，返回DialogResult.Abort值。

• Cancel 取消 -returns DialogResult.Cancel, when user clicks a Cancel button.  当用户单击Ignore按钮时，返回DialogResult.Ignore。

• Ignore 忽略 -returns DialogResult.Ignore, when user clicks an Ignore button.  返回DialogResult.No，当用户单击否按钮。

• No  -returns DialogResult.No, when user clicks a No button.  不返回任何内容，对话框继续运行。

• None 无 -returns nothing and the dialog box continues running.  返回DialogResult.OK，当用户单击确定按钮

• OK -returns DialogResult.OK, when user clicks an OK button.  返回DialogResult.  OK，当用户点击OK键

• Retry 重试 -returns DialogResult.Retry , when user clicks an Retry button.  当用户单击重试按钮时，返回DialogResult.Retry

• Yes  -returns DialogResult.Yes, when user clicks an Yes button.  返回DialogResult.Yes，当用户单击是按钮

下图显示了通用对话框类继承：

在本章中，我们将研究以下概念：

• 在应用程序中添加菜单和子菜单

• 在表单中添加剪切，复制和粘贴功能

• 锚定和对接控制在一种形式

• 模态形式

在应用程序中添加菜单和子菜单

Public Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      'defining the main menu bar      Dim mnuBar As New MainMenu()      'defining the menu items for the main menu bar      Dim myMenuItemFile As New MenuItem("&File")      Dim myMenuItemEdit As New MenuItem("&Edit")      Dim myMenuItemView As New MenuItem("&View")      Dim myMenuItemProject As New MenuItem("&Project")      'adding the menu items to the main menu bar      mnuBar.MenuItems.Add(myMenuItemFile)      mnuBar.MenuItems.Add(myMenuItemEdit)      mnuBar.MenuItems.Add(myMenuItemView)      mnuBar.MenuItems.Add(myMenuItemProject)     ' defining some sub menus      Dim myMenuItemNew As New MenuItem("&New")      Dim myMenuItemOpen As New MenuItem("&Open")      Dim myMenuItemSave As New MenuItem("&Save")      'add sub menus to the File menu      myMenuItemFile.MenuItems.Add(myMenuItemNew)      myMenuItemFile.MenuItems.Add(myMenuItemOpen)      myMenuItemFile.MenuItems.Add(myMenuItemSave)      'add the main menu to the form      Me.Menu = mnuBar           ' Set the caption bar text of the form.        Me.Text = "tutorialspoint.com"   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

点击以下链接查看他们的详细信息：

在表单中添加剪切，复制和粘贴功能

以下是一个示例，其中显示了如何使用Clipboard类的方法剪切，复制和粘贴数据。 执行以下步骤：

• 在表单上添加丰富的文本框控件和三个按钮控件。

• 将按钮的文本属性分别更改为“剪切”，“复制”和“粘贴”。

• 双击按钮，在代码编辑器中添加以下代码：

Public Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) _     Handles MyBase.Load      ' Set the caption bar text of the form.        Me.Text = "tutorialspoint.com"   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) _       Handles Button1.Click      Clipboard.SetDataObject(RichTextBox1.SelectedText)      RichTextBox1.SelectedText = ""   End Sub   Private Sub Button2_Click(sender As Object, e As EventArgs) _       Handles Button2.Click      Clipboard.SetDataObject(RichTextBox1.SelectedText)   End Sub   Private Sub Button3_Click(sender As Object, e As EventArgs) _    Handles Button3.Click      Dim iData As IDataObject      iData = Clipboard.GetDataObject()      If (iData.GetDataPresent(DataFormats.Text)) Then          RichTextBox1.SelectedText = iData.GetData(DataFormats.Text)      Else          RichTextBox1.SelectedText = " "      End If   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

输入一些文本并检查按钮的工作方式。

锚定和停靠在窗体中的控件

输入一些文本并检查按钮的工作方式。

现在，当拉伸窗体时，Button和窗体右下角之间的距离保持不变。

例如，让我们在表单上添加一个Button控件，并将其Dock属性设置为Bottom。 运行此窗体以查看Button控件相对于窗体的原始位置。

现在，当你拉伸窗体时，Button会调整窗体的大小。

模式窗体

模式窗体是需要关闭或隐藏的窗体，然后才能继续使用其余应用程序。 所有对话框都是模态窗体。 MessageBox也是一种模态形式。

您可以通过两种方式调用模式窗体：

• 调用ShowDialog方法

• 调用Show方法

让我们举一个例子，我们将创建一个模态形式，一个对话框。 执行以下步骤：

• 将表单Form1添加到您的应用程序，并向Form1添加两个标签和一个按钮控件

• 将第一个标签和按钮的文本属性分别更改为“欢迎使用教程点”和“输入您的名称”。 将第二个标签的文本属性保留为空。

  

• 添加一个新的Windows窗体，Form2，并向Form2添加两个按钮，一个标签和一个文本框。

• 将按钮的文本属性分别更改为“确定”和“取消”。 将标签的文本属性更改为“输入您的姓名：”。

• 将Form2的FormBorderStyle属性设置为FixedDialog，为其提供对话框边框。

• 将Form2的ControlBox属性设置为False。

• 将Form2的ShowInTaskbar属性设置为False。

• 将OK按钮的DialogResult属性设置为OK，将Cancel按钮设置为Cancel。

在Form2的Form2_Load方法中添加以下代码片段：

Private Sub Form2_Load(sender As Object, e As EventArgs) _   Handles MyBase.Load   AcceptButton = Button1   CancelButton = Button2End Sub

在Form1的Button1_Click方法中添加以下代码片段：

Private Sub Button1_Click(sender As Object, e As EventArgs) _   Handles Button1.Click   Dim frmSecond As Form2 = New Form2()   If frmSecond.ShowDialog() = DialogResult.OK Then      Label2.Text = frmSecond.TextBox1.Text   End IfEnd Sub

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

点击“输入您的姓名”按钮显示第二个表单：

单击确定按钮将控制和信息从模态形式返回到先前的形式：

单击按钮，或在文本框中输入某些文本，或单击菜单项，都是事件的示例。 事件是调用函数或可能导致另一个事件的操作。

• 鼠标事件 Mouse events
  

• 键盘事件 Keyboard events
  

处理鼠标事件

鼠标事件发生与鼠标移动形式和控件。以下是与Control类相关的各种鼠标事件：

• MouseDown -当按下鼠标按钮时发生

• MouseEnter -当鼠标指针进入控件时发生

• MouseHover -当鼠标指针悬停在控件上时发生

• MouseLeave -鼠标指针离开控件时发生

• MouseMove -当鼠标指针移动到控件上时

• MouseUp -当鼠标指针在控件上方并且鼠标按钮被释放时发生

• MouseWheel -它发生在鼠标滚轮移动和控件有焦点时

鼠标事件的事件处理程序获得一个类型为MouseEventArgs的参数。 MouseEventArgs对象用于处理鼠标事件。它具有以下属性：

• Buttons-表示按下鼠标按钮

• Clicks-显示点击次数

• Delta-表示鼠标轮旋转的定位槽的数量

• X -指示鼠标点击的x坐标

• Y -表示鼠标点击的y坐标

示例

下面是一个例子，它展示了如何处理鼠标事件。执行以下步骤：

• 在表单中添加三个标签，三个文本框和一个按钮控件。

• 将标签的文本属性分别更改为 - 客户ID，名称和地址。

• 将文本框的名称属性分别更改为txtID，txtName和txtAddress。

• 将按钮的文本属性更改为“提交”。

• 在代码编辑器窗口中添加以下代码：

Public Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      ' Set the caption bar text of the form.         Me.Text = "tutorialspont.com"   End Sub   Private Sub txtID_MouseEnter(sender As Object, e As EventArgs)_        Handles txtID.MouseEnter      'code for handling mouse enter on ID textbox      txtID.BackColor = Color.CornflowerBlue      txtID.ForeColor = Color.White   End Sub   Private Sub txtID_MouseLeave(sender As Object, e As EventArgs) _        Handles txtID.MouseLeave      'code for handling mouse leave on ID textbox      txtID.BackColor = Color.White      txtID.ForeColor = Color.Blue   End Sub   Private Sub txtName_MouseEnter(sender As Object, e As EventArgs) _       Handles txtName.MouseEnter      'code for handling mouse enter on Name textbox      txtName.BackColor = Color.CornflowerBlue      txtName.ForeColor = Color.White   End Sub   Private Sub txtName_MouseLeave(sender As Object, e As EventArgs) _      Handles txtName.MouseLeave      'code for handling mouse leave on Name textbox      txtName.BackColor = Color.White      txtName.ForeColor = Color.Blue   End Sub   Private Sub txtAddress_MouseEnter(sender As Object, e As EventArgs) _      Handles txtAddress.MouseEnter      'code for handling mouse enter on Address textbox      txtAddress.BackColor = Color.CornflowerBlue      txtAddress.ForeColor = Color.White   End Sub   Private Sub txtAddress_MouseLeave(sender As Object, e As EventArgs) _        Handles txtAddress.MouseLeave      'code for handling mouse leave on Address textbox      txtAddress.BackColor = Color.White      txtAddress.ForeColor = Color.Blue   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) _       Handles Button1.Click      MsgBox("Thank you " & txtName.Text & ", for your kind cooperation")   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

尝试在文本框中输入文字，并检查鼠标事件：

处理键盘事件

以下是与Control类相关的各种键盘事件：

• KeyDown -当按下一个键并且控件具有焦点时发生

• KeyPress -当按下一个键并且控件具有焦点时发生

• KeyUp -当控件具有焦点时释放键时发生

KeyDown和KeyUp事件的事件处理程序获得一个类型为KeyEventArgs的参数。此对象具有以下属性：

• Alt -它指示是否按下ALT键/ p>

• Control-它指示是否按下CTRL键

• Handled-它指示事件是否被处理

• KeyCode- 存储事件的键盘代码

• KeyData-存储事件的键盘数据

• KeyValue -存储事件的键盘值

• Modifiers-指示按下哪个修饰键（Ctrl，Shift和/或Alt）

• Shift-表示是否按下Shift键

KeyDown和KeyUp事件的事件处理程序获得一个类型为KeyEventArgs的参数。此对象具有以下属性：

• Handled-指示KeyPress事件处理

• KeyChar -存储对应于按下的键的字符

示例

让我们继续前面的例子来说明如何处理键盘事件。 代码将验证用户为其客户ID和年龄输入一些数字。

• 添加一个带有文本属性为“Age”的标签，并添加一个名为txtAge的相应文本框。

• 添加以下代码以处理文本框txtID的KeyUP事件。

  Private Sub txtID_KeyUP(sender As Object, e As KeyEventArgs) _   Handles txtID.KeyUp   If (Not Char.IsNumber(ChrW(e.KeyCode))) Then      MessageBox.Show("Enter numbers for your Customer ID")      txtID.Text = " "   End IfEnd Sub

• 添加以下代码以处理文本框txtID的KeyUP事件。

  Private Sub txtAge_KeyUP(sender As Object, e As KeyEventArgs) _   Handles txtAge.KeyUp   If (Not Char.IsNumber(ChrW(e.keyCode))) Then      MessageBox.Show("Enter numbers for age")      txtAge.Text = " "   End IfEnd Sub

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

如果将age或ID的文本留空，或输入一些非数字数据，则会出现一个警告消息框，并清除相应的文本：

正则表达式是可以与输入文本匹配的模式。 .Net框架提供了允许这种匹配的正则表达式引擎。 模式由一个或多个字符文字，运算符或构造组成。

定义正则表达式的构造

有各种类别的字符，运算符和构造，允许您定义正则表达式。 单击以下链接以查找这些结构。

• 字符转义

• 字符类

• 锚

• 分组构造

• 量词

• 反向引用结构

• 替换

• 杂项结构

正则表达式类

正则表达式类用于表示一个正则表达式。

正则表达式类有以下常用方法：

有关方法和属性的完整列表，请参阅Microsoft文档。

示例1

以下示例匹配以“S”开头的单词：

Imports System.Text.RegularExpressionsModule regexProg   Sub showMatch(ByVal text As String, ByVal expr As String)      Console.WriteLine("The Expression: " + expr)      Dim mc As MatchCollection = Regex.Matches(text, expr)      Dim m As Match      For Each m In mc          Console.WriteLine(m)      Next m   End Sub   Sub Main()      Dim str As String = "A Thousand Splendid Suns"      Console.WriteLine("Matching words that start with 'S': ")      showMatch(str, "SS*")      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Matching words that start with 'S':The Expression: SS*SplendidSuns

例2

以下示例匹配以“m”开头并以“e”结尾的单词：

Imports System.Text.RegularExpressionsModule regexProg   Sub showMatch(ByVal text As String, ByVal expr As String)      Console.WriteLine("The Expression: " + expr)      Dim mc As MatchCollection = Regex.Matches(text, expr)      Dim m As Match      For Each m In mc          Console.WriteLine(m)      Next m   End Sub   Sub Main()      Dim str As String = "make a maze and manage to measure it"      Console.WriteLine("Matching words that start with 'm' and ends with 'e': ")      showMatch(str, "mS*e")      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Matching words start with 'm' and ends with 'e':The Expression: mS*emakemazemanagemeasure

例3

此示例替换了额外的空白空间：

Imports System.Text.RegularExpressionsModule regexProg   Sub Main()      Dim input As String = "Hello    World   "      Dim pattern As String = "s+"      Dim replacement As String = " "      Dim rgx As Regex = New Regex(pattern)      Dim result As String = rgx.Replace(input, replacement)      Console.WriteLine("Original String: {0}", input)      Console.WriteLine("Replacement String: {0}", result)      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Original String: Hello   World   Replacement String: Hello World   

ADO.Net对象模型

ADO.Net对象模型只不过是通过各种组件的结构化流程。 对象模型可以被图形描述为：

通过数据提供者检索驻留在数据存储或数据库中的数据。 数据提供者的各种组件检索应用程序的数据并更新数据。

应用程序通过数据集或数据读取器访问数据。

• Datasets 数据集：数据集将数据存储在断开连接的缓存中，应用程序从中检索数据。

• Data readers 数据读取：数据读取器以只读和仅转发模式向应用程序提供数据。

数据提供程序

ADO.Net中包含以下不同类型的数据提供程序

• SQL Server的.Net Framework数据提供者 - 提供对Microsoft SQL Server的访问。

• OLE DB的.Net Framework数据提供者 - 提供对使用OLE DB公开的数据源的访问。

• ODBC的.Net Framework数据提供程序 - 提供对ODBC公开的数据源的访问。

• Oracle的.Net Framework数据提供程序 - 提供对Oracle数据源的访问。

• EntityClient提供程序 - 允许通过实体数据模型（EDM）应用程序访问数据。

数据集

下图显示了数据集对象模型：

DataSet类存在于System.Data命名空间中。 下表描述了DataSet的所有组件：

连接到数据库

.Net框架提供两种类型的Connection类：

• SqlConnection -设计用于连接到Microsoft SQL Server。

• OleDbConnection -设计用于连接到各种数据库，如Microsoft Access和Oracle。

示例1

让我们连接到此数据库。 执行以下步骤：

• 选择工具 - >连接到数据库

  

• 在“添加连接”对话框中选择服务器名称和数据库名称。

  

• 单击测试连接按钮以检查连接是否成功。

  

• 在表单上添加一个DataGridView。

  

• 单击选择数据源组合框。

• 单击添加项目数据源链接。

  

• 这将打开“数据源配置向导”。
  

• 选择“数据库”作为数据源类型

  

• 选择的DataSet作为数据库模型。

  

• 选择已设置的连接。

  

• 保存连接字符串。

  

• 在我们的示例中选择数据库对象Customers表，然后单击完成按钮。

  

• 选择“预览数据”链接以查看“结果”网格中的数据：

  

当使用Microsoft Visual Studio工具栏上的“开始”按钮运行应用程序时，将显示以下窗口：

示例2

在这个例子中，让我们使用代码访问DataGridView控件中的数据。 执行以下步骤：

• 在窗体中添加一个DataGridView控件和一个按钮。

• 将按钮控件的文本更改为“填充”。

• 双击按钮控件，为按钮的Click事件添加所需的代码，如下所示：

Imports System.Data.SqlClientPublic Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) _   Handles MyBase.Load        'TODO: This line of code loads data into the 'TestDBDataSet.CUSTOMERS' table.   You can move, or remove it, as needed.      Me.CUSTOMERSTableAdapter.Fill(Me.TestDBDataSet.CUSTOMERS)      ' Set the caption bar text of the form.         Me.Text = "tutorialspoint.com"   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      Dim connection As SqlConnection = New sqlconnection()      connection.ConnectionString = "Data Source=KABIR-DESKTOP; _          Initial Catalog=testDB;Integrated Security=True"      connection.Open()      Dim adp As SqlDataAdapter = New SqlDataAdapter _      ("select * from Customers", connection)      Dim ds As DataSet = New DataSet()      adp.Fill(ds)      DataGridView1.DataSource = ds.Tables(0)   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

单击“填充”按钮可显示数据网格视图控件上的表：

创建表，列和行

示例3

到目前为止，我们已经使用我们的计算机中已经存在的表和数据库。 在本示例中，我们将创建一个表，向其中添加列，行和数据，并使用DataGridView对象显示表。

执行以下步骤：

• 在窗体中添加一个DataGridView控件和一个按钮。

• 将按钮控件的文本更改为“填充”。

• 在代码编辑器中添加以下代码。

Public Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      ' Set the caption bar text of the form.         Me.Text = "tutorialspont.com"   End Sub   Private Function CreateDataSet() As DataSet      'creating a DataSet object for tables      Dim dataset As DataSet = New DataSet()      ' creating the student table      Dim Students As DataTable = CreateStudentTable()      dataset.Tables.Add(Students)      Return dataset   End Function   Private Function CreateStudentTable() As DataTable      Dim Students As DataTable      Students = New DataTable("Student")      ' adding columns      AddNewColumn(Students, "System.Int32", "StudentID")      AddNewColumn(Students, "System.String", "StudentName")      AddNewColumn(Students, "System.String", "StudentCity")      ' adding rows      AddNewRow(Students, 1, "Zara Ali", "Kolkata")      AddNewRow(Students, 2, "Shreya Sharma", "Delhi")      AddNewRow(Students, 3, "Rini Mukherjee", "Hyderabad")      AddNewRow(Students, 4, "Sunil Dubey", "Bikaner")      AddNewRow(Students, 5, "Rajat Mishra", "Patna")      Return Students   End Function   Private Sub AddNewColumn(ByRef table As DataTable, _    ByVal columnType As String, ByVal columnName As String)      Dim column As DataColumn = _        table.Columns.Add(columnName, Type.GetType(columnType))   End Sub   'adding data into the table   Private Sub AddNewRow(ByRef table As DataTable, ByRef id As Integer,_   ByRef name As String, ByRef city As String)      Dim newrow As DataRow = table.NewRow()      newrow("StudentID") = id      newrow("StudentName") = name      newrow("StudentCity") = city      table.Rows.Add(newrow)   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      Dim ds As New DataSet      ds = CreateDataSet()      DataGridView1.DataSource = ds.Tables("Student")   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

单击“填充”按钮可显示数据网格视图控件上的表：

VB.Net提供对Microsoft Excel 2010的COM对象模型和应用程序之间的互操作性的支持。

要在应用程序中使用此互操作性，您需要在Windows窗体应用程序中导入命名空间Microsoft.Office.Interop.Excel。

从VB.Net创建一个Excel应用程序

让我们从Microsoft Visual Studio中的以下步骤开始创建窗体表单应用程序：文件 - >新建项目 - > Windows窗体应用程序

最后，选择确定，Microsoft Visual Studio创建您的项目并显示以下Form1。

在窗体中插入Button控件Button1。

向项目中添加对Microsoft Excel对象库的引用。 进行以下操作：

• 从项目菜单中选择添加引用。

  

• 在COM选项卡上，找到Microsoft Excel对象库，然后单击选择。

  

• 点击OK。

双击代码窗口并填充Button1的Click事件，如下所示。

'  Add the following code snippet on top of Form1.vbImports Excel = Microsoft.Office.Interop.ExcelPublic Class Form1   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      Dim appXL As Excel.Application      Dim wbXl As Excel.Workbook      Dim shXL As Excel.Worksheet      Dim raXL As Excel.Range      ' Start Excel and get Application object.      appXL = CreateObject("Excel.Application")      appXL.Visible = True      ' Add a new workbook.      wbXl = appXL.Workbooks.Add      shXL = wbXl.ActiveSheet      ' Add table headers going cell by cell.      shXL.Cells(1, 1).Value = "First Name"      shXL.Cells(1, 2).Value = "Last Name"      shXL.Cells(1, 3).Value = "Full Name"      shXL.Cells(1, 4).Value = "Specialization"      ' Format A1:D1 as bold, vertical alignment = center.      With shXL.Range("A1", "D1")          .Font.Bold = True          .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter      End With      ' Create an array to set multiple values at once.      Dim students(5, 2) As String      students(0, 0) = "Zara"      students(0, 1) = "Ali"      students(1, 0) = "Nuha"      students(1, 1) = "Ali"      students(2, 0) = "Arilia"      students(2, 1) = "RamKumar"      students(3, 0) = "Rita"      students(3, 1) = "Jones"      students(4, 0) = "Umme"      students(4, 1) = "Ayman"      ' Fill A2:B6 with an array of values (First and Last Names).      shXL.Range("A2", "B6").Value = students       ' Fill C2:C6 with a relative formula (=A2 & " " & B2).      raXL = shXL.Range("C2", "C6")      raXL.Formula = "=A2 & "" "" & B2"       ' Fill D2:D6 values.      With shXL          .Cells(2, 4).Value = "Biology"          .Cells(3, 4).Value = "Mathmematics"          .Cells(4, 4).Value = "Physics"          .Cells(5, 4).Value = "Mathmematics"          .Cells(6, 4).Value = "Arabic"      End With      ' AutoFit columns A:D.      raXL = shXL.Range("A1", "D1")      raXL.EntireColumn.AutoFit()       ' Make sure Excel is visible and give the user control      ' of Excel's lifetime.      appXL.Visible = True      appXL.UserControl = True       ' Release object references.      raXL = Nothing      shXL = Nothing      wbXl = Nothing      appXL.Quit()      appXL = Nothing      Exit SubErr_Handler:      MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口：

单击按钮将显示以下excel表。 将要求您保存工作簿。

VB.Net允许从您的应用程序发送电子邮件。 System.Net.Mail命名空间包含用于向简单邮件传输协议（SMTP）服务器发送电子邮件以进行传递的类。

下表列出了一些常用的类：

SmtpClient类

以下是SmtpClient类的一些常用属性：

以下是SmtpClient类的一些常用方法：

以下示例演示如何使用SmtpClient类发送邮件。 在这方面应注意以下几点：

• 您必须指定用于发送电子邮件的SMTP主机服务器。 不同主机服务器的主机和端口属性将不同。 我们将使用gmail服务器。

• 如果SMTP服务器需要，您需要授予认证凭据。

• 您还应该分别使用MailMessage.From和MailMessage.To属性提供发件人的电子邮件地址和收件人的电子邮件地址。

• 您还应该使用MailMessage.Body属性指定消息内容。

示例

在这个例子中，让我们创建一个发送电子邮件的简单应用程序。 执行以下步骤：

• 在表单中添加三个标签，三个文本框和一个按钮控件。

• 将标签的文本属性分别更改为 - “From”，“To：”和“Message：”。

• 将文本的名称属性分别更改为txtFrom，txtTo和txtMessage。

• 将按钮控件的文本属性更改为“发送”

• 在代码编辑器中添加以下代码。

Imports System.Net.MailPublic Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      ' Set the caption bar text of the form.         Me.Text = "tutorialspoint.com"   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      Try          Dim Smtp_Server As New SmtpClient          Dim e_mail As New MailMessage()          Smtp_Server.UseDefaultCredentials = False          Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")          Smtp_Server.Port = 587          Smtp_Server.EnableSsl = True          Smtp_Server.Host = "smtp.gmail.com"          e_mail = New MailMessage()          e_mail.From = New MailAddress(txtFrom.Text)          e_mail.To.Add(txtTo.Text)          e_mail.Subject = "Email Sending"          e_mail.IsBodyHtml = False          e_mail.Body = txtMessage.Text          Smtp_Server.Send(e_mail)          MsgBox("Mail Sent")      Catch error_t As Exception          MsgBox(error_t.ToString)      End Try   End Sub

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口，您将使用该窗口发送电子邮件，自行尝试。

XML解析器的API

<?xml version="1.0"?><collection shelf="New Arrivals"><movie title="Enemy Behind">   <type>War, Thriller</type>   <format>DVD</format>   <year>2003</year>   <rating>PG</rating>   <stars>10</stars>   <description>Talk about a US-Japan war</description></movie><movie title="Transformers">   <type>Anime, Science Fiction</type>   <format>DVD</format>   <year>1989</year>   <rating>R</rating>   <stars>8</stars>   <description>A schientific fiction</description></movie>   <movie title="Trigun">   <type>Anime, Action</type>   <format>DVD</format>   <episodes>4</episodes>   <rating>PG</rating>   <stars>10</stars>   <description>Vash the Stampede!</description></movie><movie title="Ishtar">   <type>Comedy</type>   <format>VHS</format>   <rating>PG</rating>   <stars>2</stars>   <description>Viewable boredom</description></movie></collection>

解析XML使用SAX API

示例1

此示例演示从文件movies.xml中读取XML数据。

执行以下步骤：

• 将movies.xml文件添加到应用程序的bin Debug文件夹中。

• 在Form1.vb文件中导入System.Xml命名空间。
  

• 在表单中添加标签，并将其文字更改为“Movies Galore”。

• 添加三个列表框和三个按钮，以显示来自xml文件的电影的标题，类型和描述。

• 使用代码编辑器窗口添加以下代码。

Imports System.XmlPublic Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      ' Set the caption bar text of the form.         Me.Text = "tutorialspoint.com"   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      ListBox1().Items.Clear()      Dim xr As XmlReader = XmlReader.Create("movies.xml")      Do While xr.Read()          If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "movie" Then              ListBox1.Items.Add(xr.GetAttribute(0))          End If      Loop   End Sub   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click      ListBox2().Items.Clear()      Dim xr As XmlReader = XmlReader.Create("movies.xml")      Do While xr.Read()          If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "type" Then              ListBox2.Items.Add(xr.ReadElementString)          Else              xr.Read()          End If      Loop   End Sub   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click      ListBox3().Items.Clear()      Dim xr As XmlReader = XmlReader.Create("movies.xml")      Do While xr.Read()          If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "description" Then              ListBox3.Items.Add(xr.ReadElementString)          Else              xr.Read()          End If      Loop   End SubEnd Class

使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码。 单击按钮将显示文件中电影的标题，类型和描述。

XmlWriter类用于将XML数据写入流，文件或TextWriter对象。 它也以只向前，非缓存的方式工作。

示例2

让我们通过在运行时添加一些数据来创建一个XML文件。 执行以下步骤：

• 在窗体中添加WebBrowser控件和按钮控件。

• 将按钮的Text属性更改为显示作者文件。

• 在代码编辑器中添加以下代码。

Imports System.XmlPublic Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      ' Set the caption bar text of the form.         Me.Text = "tutorialspoint.com"   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      Dim xws As XmlWriterSettings = New XmlWriterSettings()      xws.Indent = True      xws.NewLineOnAttributes = True      Dim xw As XmlWriter = XmlWriter.Create("authors.xml", xws)      xw.WriteStartDocument()      xw.WriteStartElement("Authors")      xw.WriteStartElement("author")      xw.WriteAttributeString("code", "1")      xw.WriteElementString("fname", "Zara")      xw.WriteElementString("lname", "Ali")      xw.WriteEndElement()      xw.WriteStartElement("author")      xw.WriteAttributeString("code", "2")      xw.WriteElementString("fname", "Priya")      xw.WriteElementString("lname", "Sharma")      xw.WriteEndElement()      xw.WriteStartElement("author")      xw.WriteAttributeString("code", "3")      xw.WriteElementString("fname", "Anshuman")      xw.WriteElementString("lname", "Mohan")      xw.WriteEndElement()      xw.WriteStartElement("author")      xw.WriteAttributeString("code", "4")      xw.WriteElementString("fname", "Bibhuti")      xw.WriteElementString("lname", "Banerjee")      xw.WriteEndElement()      xw.WriteStartElement("author")      xw.WriteAttributeString("code", "5")      xw.WriteElementString("fname", "Riyan")      xw.WriteElementString("lname", "Sengupta")      xw.WriteEndElement()      xw.WriteEndElement()      xw.WriteEndDocument()      xw.Flush()      xw.Close()      WebBrowser1.Url = New Uri(AppDomain.CurrentDomain.BaseDirectory + "authors.xml")   End SubEnd Class

使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码。 单击显示作者文件将在Web浏览器上显示新创建的authors.xml文件。

使用DOM API解析XML

根据文档对象模型（DOM），XML文档由节点和节点的属性组成。 XmlDocument类用于实现.Net框架的XML DOM解析器。 它还允许您通过插入，删除或更新文档中的数据来修改现有的XML文档。

以下是XmlDocument类的一些常用方法：

示例3

在本示例中，让我们在xml文档authors.xml中插入一些新节点，然后在列表框中显示所有作者的名字。

执行以下步骤：

• 将authors.xml文件添加到应用程序的bin / Debug文件夹中（如果您已经尝试了最后一个示例，应该在那里）

• 导入System.Xml命名空间

• 在表单中添加列表框和按钮控件，并将按钮控件的text属性设置为“显示作者”。

• 使用代码编辑器添加以下代码。

Imports System.XmlPublic Class Form1   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load      ' Set the caption bar text of the form.         Me.Text = "tutorialspoint.com"   End Sub   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click      ListBox1.Items.Clear()      Dim xd As XmlDocument = New XmlDocument()      xd.Load("authors.xml")      Dim newAuthor As XmlElement = xd.CreateElement("author")      newAuthor.SetAttribute("code", "6")      Dim fn As XmlElement = xd.CreateElement("fname")      fn.InnerText = "Bikram"      newAuthor.AppendChild(fn)      Dim ln As XmlElement = xd.CreateElement("lname")      ln.InnerText = "Seth"      newAuthor.AppendChild(ln)      xd.DocumentElement.AppendChild(newAuthor)      Dim tr As XmlTextWriter = New XmlTextWriter("movies.xml", Nothing)      tr.Formatting = Formatting.Indented      xd.WriteContentTo(tr)      tr.Close()      Dim nl As XmlNodeList = xd.GetElementsByTagName("fname")      For Each node As XmlNode In nl          ListBox1.Items.Add(node.InnerText)      Next node   End SubEnd Class

使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码。 单击“显示作者”按钮将显示所有作者的名字，包括我们在运行时添加的作者。

动态Web应用程序包括以下两种类型的程序之一或两者：

• 服务器端脚本 -这些是在Web服务器上执行的程序，使用服务器端脚本语言（如ASP（Active Server Pages）或JSP（Java Server Pages））编写。

• 客户端脚本 -这些是在浏览器上执行的程序，使用脚本语言（如JavaScript，VBScript等）编写。

ASP.Net是由Microsoft引入的ASP的.Net版本，用于通过使用服务器端脚本创建动态网页。 ASP.Net应用程序是使用.Net框架中存在的可扩展和可重用组件或对象编写的编译代码。这些代码可以使用.Net框架中的类的整个层次结构。

ASP.Net应用程序代码可以用以下任何一种语言编写：

• Visual Basic .NET

• C＃

• Jscript脚本

• J＃

在本章中，我们将简要介绍使用VB.Net编写ASP.Net应用程序。有关详细讨论，请参阅ASP.Net教程。

ASP.Net内置对象

ASP.Net有一些在Web服务器上运行的内置对象。 这些对象具有在应用程序开发中使用的方法，属性和集合。

下表列出了具有简要说明的ASP.Net内置对象：

ASP.Net编程模型

ASP.Net提供两种类型的编程模型：

• Web Forms-这使您能够创建将应用于用户界面的各种组件的用户界面和应用程序逻辑。

• WCF Services-这使您可以远程访问一些服务器端功能。

对于本章，您需要使用免费的Visual Studio Web Developer。 IDE与您已经用于创建Windows应用程序的IDE几乎相同。

Web表单

Web表单包括：

• 用户界面

• 应用程序逻辑

用户界面包括静态HTML或XML元素和ASP.Net服务器控件。 创建Web应用程序时，HTML或XML元素和服务器控件存储在具有.aspx扩展名的文件中。 此文件也称为页面文件。

应用程序逻辑包括应用于页面中用户界面元素的代码。 你可以用任何.Net语言，如VB.Net或C＃编写代码。

下图显示了“设计”视图中的Web窗体：

示例

让我们创建一个带有Web表单的新网站，该表单将显示用户点击按钮时的当前日期和时间。 执行以下步骤：

• 选择文件 - >新建 - > Web站点。将出现“新建网站”对话框。

  

• 选择ASP.Net空网站模板。 键入网站的名称，然后选择保存文件的位置。

• 您需要向站点添加默认页面。 右键单击解决方案资源管理器中的网站名称，然后从上下文菜单中选择添加新项目选项。 将显示“添加新项”对话框：

  

• 选择Web窗体选项并提供默认页面的名称。 我们把它保存为Default.aspx。 单击添加按钮。

• 默认页面显示在源视图中

  

• 通过向“值”添加值来设置“默认”网页的标题

• 要在网页上添加控件，请转到设计视图。 在表单上添加三个标签，一个文本框和一个按钮。

  

• 双击该按钮，并将以下代码添加到该按钮的Click事件：

Protected Sub Button1_Click(sender As Object, e As EventArgs) _Handles Button1.Click   Label2.Visible = True   Label2.Text = "Welcome to Tutorials Point: " + TextBox1.Text   Label3.Text = "You visited us at: " + DateTime.Now.ToString()End Sub

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，浏览器中将打开以下页面：

输入您的姓名，然后点击提交按钮：

网页服务

Web服务是一个Web应用程序，基本上是一个由其他应用程序可以使用的方法组成的类。它也遵循代码隐藏架构，如ASP.Net网页，虽然它没有用户界面。

.Net Framework的早期版本使用了ASP.Net Web Service的这个概念，它具有.asmx文件扩展名。然而，从.Net Framework 4.0开始，Windows通信基础（WCF）技术已经发展成为Web Services，.Net Remoting和一些其他相关技术的新继任者。它把所有这些技术结合在一起。在下一节中，我们将简要介绍Windows Communication Foundation（WCF）。

如果您使用先前版本的.Net Framework，您仍然可以创建传统的Web服务。有关详细说明，请参阅ASP.Net - Web服务详细说明。

Windows通信基础

Windows Communication Foundation或WCF提供了一个用于创建分布式面向服务的应用程序的API，称为WCF服务。

像Web服务一样，WCF服务也支持应用程序之间的通信。但是，与Web服务不同，此处的通信不仅限于HTTP。 WCF可以配置为通过HTTP，TCP，IPC和消息队列使用。支持WCF的另一个强点是，它提供对双工通信的支持，而对于Web服务，我们只能实现单工通信。

从初学者的角度来看，编写WCF服务与编写Web服务并不完全不同。为了保持简单，我们将看到如何：

• 创建一个WCF服务

• 创建一个服务合同并定义操作

• 执行合同

• 测试服务

• 使用该服务

示例

要理解这个概念，让我们创建一个简单的服务，提供股价信息。客户可以根据股票代号查询股票的名称和价格。为了保持这个例子简单，这些值被硬编码在二维数组中。此服务将有两种方法：

• GetPrice方法 - 它将返回股票的价格，基于提供的符号。

• GetName方法 - 它将返回股票的名称，基于提供的符号。

创建WCF服务

执行以下步骤：

• 打开VS Express for Web 2012

• 选择新的网站，打开新建网站对话框。

• 选择模板列表中的WCF服务模板：

  

• 从Web位置下拉列表中选择文件系统。

• 提供WCF服务的名称和位置，然后单击“确定”。

创建一个新的WCF服务。

创建服务合同并定义操作

服务契约定义服务执行的操作。 在WCF服务应用程序中，您会发现在解决方案资源管理器中的App_Code文件夹中自动创建两个文件

• IService.vb - 这将有服务合同; 在简单的话，它将有服务的接口，与服务将提供的方法的定义，您将在您的服务中实现。

• Service.vb - 这将实现服务合同。

  

用给定的代码替换IService.vb文件的代码：

Public Interface IService    <OperationContract()>    Function GetPrice(ByVal symbol As String) As Double    <OperationContract()>    Function GetName(ByVal symbol As String) As StringEnd Interface

实施合同

在Service.vb文件中，您将找到一个名为Service的类，它将实现在IService接口中定义的服务契约。

使用以下代码替换IService.vb的代码：

' NOTE: You can use the "Rename" command on the context menu to change the class name "Service" in code, svc and config file together.Public Class Service   Implements IService   Public Sub New()   End Sub   Dim stocks As String(,) =   {   {"RELIND", "Reliance Industries", "1060.15"},   {"ICICI", "ICICI Bank", "911.55"},   {"JSW", "JSW Steel", "1201.25"},   {"WIPRO", "Wipro Limited", "1194.65"},   {"SATYAM", "Satyam Computers", "91.10"}   }   Public Function GetPrice(ByVal symbol As String) As Double _   Implements IService.GetPrice      Dim i As Integer      'it takes the symbol as parameter and returns price      For i = 0 To i = stocks.GetLength(0) - 1          If (String.Compare(symbol, stocks(i, 0)) = 0) Then              Return Convert.ToDouble(stocks(i, 2))          End If      Next i      Return 0   End Function   Public Function GetName(ByVal symbol As String) As String _   Implements IService.GetName      ' It takes the symbol as parameter and       ' returns name of the stock      Dim i As Integer      For i = 0 To i = stocks.GetLength(0) - 1          If (String.Compare(symbol, stocks(i, 0)) = 0) Then              Return stocks(i, 1)          End If      Next i      Return "Stock Not Found"   End FunctionEnd Class

测试服务

要运行如此创建的WCF服务，请从菜单栏中选择Debug-> Start Debugging选项。 输出将是：

要测试服务操作，请从左窗格的树中双击操作的名称。 新的选项卡将显示在右窗格中。

在右窗格的“请求”区域中输入参数值，然后单击“调用”按钮。

下图显示了测试GetPrice操作的结果：

下图显示了测试GetName操作的结果：

使用服务

让我们在同一个解决方案中添加一个默认页面，一个ASP.NET Web窗体，我们将使用我们刚刚创建的WCF服务。

执行以下步骤：

• 右键单击解决方案资源管理器中的解决方案名称，并向解决方案添加新的Web表单。 它将被命名为Default.aspx。

• 在表单上添加两个标签，一个文本框和一个按钮。

  

• 我们需要添加一个服务引用到我们刚刚创建的WCF服务。 右键单击解决方案资源管理器中的网站，然后选择添加服务引用选项。 这将打开“添加服务引用”对话框。

• 在地址文本框中输入服务的URL（位置），然后单击执行按钮。 它使用默认名称ServiceReference1创建服务引用。 单击确定按钮。

  

  添加引用为您的项目做了两个作业：

• 在web.config文件中为服务创建地址和绑定。
• 创建代理类以访问服务。

Partial Class _Default   Inherits System.Web.UI.Page   Protected Sub Button1_Click(sender As Object, e As EventArgs) _   Handles Button1.Click      Dim ser As ServiceReference1.ServiceClient = _       New ServiceReference1.ServiceClient      Label2.Text = ser.GetPrice(TextBox1.Text).ToString()   End SubEnd Class

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，浏览器中将打开以下页面：

输入符号并单击获取价格按钮以获得硬编码的价格：

以下资源包含有关VB.Net的其他信息。 请使用它们获得有关此主题的更深入的知识。

VB.Net的相关链接

VB.Net有用的书籍

在本章中，我们将讨论可用于创建VB.Net应用程序的工具。

我们已经提到VB.Net是.Net框架的一部分，用于编写.Net应用程序。 因此，在讨论用于运行VB.Net程序的可用工具之前，让我们先了解VB.Net如何与.Net框架相关。

.NET框架 

.NET Framework是一个革命性的平台，可以帮助你编写以下类型的应用：

• Windows应用程序

• Web应用程序

• 网页服务

.Net框架应用程序是多平台应用程序。 该框架的设计方式使其可以从以下任何语言使用：Visual Basic，C＃，C ++，Jscript和COBOL等。

.Net框架包含一个巨大的代码库，用于客户端语言（如VB.Net）。 这些语言使用面向对象的方法。

所有这些语言可以访问框架以及彼此通信。

以下是.Net框架的一些组件：

• 公共语言运行时（CLR）  Common Language Runtime (CLR)
  

• .NET框架类库  The .Net Framework Class Library
  

• 公共语言规范  Common Language Specification
  

• 通用类型系统  Common Type System
  

• 元数据和组件  Metadata and Assemblies
  

• Windows窗体  Windows Forms
  

• ASP.Net和ASP.Net AJAX  

• ADO.Net

• Windows工作流基础（WF）  Windows Workflow Foundation (WF)
  

• Windows演示基础  Windows Presentation Foundation
  

• Windows通讯基础（WCF）  Windows Communication Foundation (WCF)
  

• LINQ

对于每个组件执行的工作，请参阅ASP.Net -介绍 ，有关每个组件的详细信息，请参阅微软的文档。

VB.Net的集成开发环境（IDE） 

Microsoft为VB.Net编程提供以下开发工具：

1、Visual Studio 2010（VS）

2、Visual Basic 2010 Express（VBE）

3、可视化Web开发

最后两个是免费的。 使用这些工具，您可以将各种VB.Net程序从简单的命令行应用程序写入到更复杂的应用程序。 Visual Basic Express和Visual Web Developer Express版是Visual Studio的精简版本，具有相同的外观和感觉。 它们保留了Visual Studio的大多数功能。 在本教程中，我们使用了Visual Basic 2010 Express和Visual Web Developer（针对Web编程章节）。

你可以从这里下载 。它会自动安装在您的计算机上。 请注意，您需要一个有效的互联网连接安装快速版本。

在Linux或Mac OS上编写VB.Net程序

虽然.NET Framework在Windows操作系统上运行，但有一些替代版本可在其他操作系统上运行。 Mono是.NET Framework的开源版本，包括Visual Basic编译器，可在多种操作系统上运行，包括各种Linux和Mac OS。 最新版本是VB 2012。

Mono的既定目的不仅是能够跨平台运行Microsoft .NET应用程序，而且为Linux开发人员提供更好的开发工具。 Mono可以在许多操作系统上运行，包括Android，BSD，iOS，Linux，OS X，Windows，Solaris和UNIX。

在我们学习VB.Net编程语言的基本构建块之前，让我们看看一个最小的VB.Net程序结构，以便我们可以将它作为未来的章节的参考。

VB.Net Hello World示例

一个VB.Net程序主要由以下几部分组成：

• 命名空间声明  Namespace declaration
  

• 一个类或模块  A class or module
  

• 一个或多个程序  One or more procedures
  

• 变量  Variables
  

• 主过程  The Main procedure
  

• 语句和表达式  Statements & Expressions
  

• 注释  Comments

让我们看一个简单的代码，打印单词“Hello World”：

Imports SystemModule Module1   'This program will display Hello World    Sub Main()      Console.WriteLine("Hello World")      Console.ReadKey()   End SubEnd Module

当上述代码被编译和执行时，它产生了以下结果：

Hello, World!

让我们来看看上面的程序中的各个部分：

• 程序Imports System的第一行用于在程序中包括系统命名空间。The first line of the program Imports System is used to include the System namespace in the program.

• 下一行有一个Module声明，模块Module1。 VB.Net是完全面向对象的，所以每个程序必须包含一个类的模块，该类包含您的程序使用的数据和过程。The next line has a Module declaration, the module Module1. VB.Net is completely object oriented, so every program must contain a module of a class that contains the data and procedures that your program uses.
  

• 类或模块通常将包含多个过程。 过程包含可执行代码，或者换句话说，它们定义了类的行为。 过程可以是以下任何一种：

  • 功能 Function
    

  • 子 Sub
    

  • 运算符 Operator
    

  • 获取 Get
    

  • 组 Set
    

  • AddHandler

  • RemoveHandler

  • 的RaiseEvent

• 下一行（'这个程序）将被编译器忽略，并且已经在程序中添加了额外的注释。

• 下一行定义了Main过程，它是所有VB.Net程序的入口点。 Main过程说明了模块或类在执行时将做什么。

• Main过程使用语句指定其行为

  Console.WriteLine（“Hello World”的）

  WriteLine是在System命名空间中定义的Console类的一个方法。 此语句会导致消息"Hello，World ！"在屏幕上显示。
  

• 最后一行Console.ReadKey（）是用于VS.NET用户的。 这将阻止屏幕从Visual Studio .NET启动时快速运行和关闭。

编译和执行VB.Net程序：

如果您使用Visual Studio.Net IDE，请执行以下步骤：

• 启动Visual Studio。 Start Visual Studio.

• 在菜单栏，选择文件，新建，项目。 On the menu bar, choose File, New, Project.

• 从模板中选择Visual Basic。Choose Visual Basic from templates

• 选择控制台应用程序。Choose Console Application.

• 使用浏览按钮指定项目的名称和位置，然后选择确定按钮。 Specify a name and location for your project using the Browse button, and then choose the OK button.

• 新项目显示在解决方案资源管理器中。 The new project appears in Solution Explorer.

• 在代码编辑器中编写代码。 Write code in the Code Editor.

• 单击运行按钮或F5键运行项目。 将出现一个包含行Hello World的命令提示符窗口。 Click the Run button or the F5 key to run the project. A Command Prompt window appears that contains the line Hello World.

您可以使用命令行而不是Visual Studio IDE编译VB.Net程序：

• 打开文本编辑器，并添加上述代码。 Open a text editor and add the above mentioned code.

• 将文件另存为helloworld.vb。 Save the file as helloworld.vb

• 打开命令提示符工具并转到保存文件的目录。 Open the command prompt tool and go to the directory where you saved the file.

• 类型VBC helloworld.vb，然后按回车编译代码。 Type vbc helloworld.vb and press enter to compile your code.

• 如果在你的代码中没有错误命令提示符下会带你到下一行，并会产生HelloWorld.exe的可执行文件。 If there are no errors in your code the command prompt will take you to the next line and would generate helloworld.exe executable file.

• 接下来，输入的HelloWorld来执行你的程序。 Next, type helloworld to execute your program.

• 您将可以看到“Hello World”字样在屏幕上。 You will be able to see "Hello World" printed on the screen.

VB.Net是一种面向对象的编程语言。 在面向对象编程方法中，程序由通过动作相互交互的各种对象组成。 对象可能采取的动作称为方法。 相同类型的对象被认为具有相同的类型，或者更经常地被称为在同一类中。

当我们考虑VB.Net程序时，它可以定义为通过调用对方的方法进行通信的对象的集合。 现在让我们简单地看看类，对象，方法和实例变量是什么意思。

• Object 对象-对象具有状态和行为。 示例：狗有状态 - 颜色，名称，品种以及行为 - 摇摆，吠叫，吃饭等。对象是类的实例。
  

• Class 类-类可以被定义为描述其类型的对象支持的行为/状态的模板/蓝图。
  

• Methods 方法-方法基本上是一种行为。一个类可以包含许多方法。一般的程序逻辑在方法中体现，数据的操作和动作的执行也在方法中实现。

• 实例变量 -每个对象都有其唯一的实例变量集。 对象的状态由分配给这些实例变量的值创建。

VB.Net中的Rectangle类

例如，让我们考虑一个Rectangle对象。 它具有长度和宽度等属性。 根据设计，它可能需要接受这些属性的值，计算面积和显示细节的方式。

让我们看一个Rectangle类的实现，并在我们的观察的基础上讨论VB.Net基本语法：

Imports SystemPublic Class Rectangle    Private length As Double    Private width As Double    'Public methods    Public Sub AcceptDetails()        length = 4.5        width = 3.5    End Sub    Public Function GetArea() As Double        GetArea = length * width    End Function    Public Sub Display()        Console.WriteLine("Length: {0}", length)        Console.WriteLine("Width: {0}", width)        Console.WriteLine("Area: {0}", GetArea())    End Sub    Shared Sub Main()        Dim r As New Rectangle()        r.Acceptdetails()        r.Display()        Console.ReadLine()    End SubEnd Class

当上述代码被编译和执行时，它产生以下结果：

Length: 4.5Width: 3.5Area: 15.75

在上一章中，我们创建了一个包含代码的Visual Basic模块。 Sub Main表示VB.Net程序的入口点。 这里，我们使用包含代码和数据的类。 您使用类来创建对象。 例如，在代码中，r是一个Rectangle对象。

对象是类的一个实例：

Dim r As New Rectangle()

类可以具有可以从外部类访问的成员，如果指定的话。 数据成员称为字段，过程成员称为方法。

可以在不创建类的对象的情况下调用共享方法或静态方法。 通过类的一个对象调用实例方法：

Shared Sub Main()   Dim r As New Rectangle()   r.Acceptdetails()   r.Display()   Console.ReadLine()End Sub

标识符

标识符是用于标识类，变量，函数或任何其他用户定义项的名称。 在VB.Net中命名类的基本规则如下：

• 名称必须以字母开头，后跟一个字母，数字（0 - 9）或下划线。 标识符中的第一个字符不能是数字。
  

• 不能包含任何空格或特殊符号（例如：？  - +！ @＃％^＆*（）[] {}。 ; ：“'/和）。但是，可以使用下划线（_）。
  

• 不可以使用保留关键字。