vb和vb.net的区别

VB.NET和VB6.0有什么区别

网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信平台小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了西盟免费建站欢迎大家使用！

Visual Basic .NET是Microsoft Visual Studio .NET套件中主要组成部分之一。.NET版本的Visual Basic增加了更多特性，而且演化为完全面向对象（就像C++）的编程语言。本文将介绍VB.NET的新特性，并比较VB6.0/VB.NET之间的区别，阐述如何利用VB.NET编写简单的应用程序。

1.1 什么是 VB.NET? Microsoft推出全新的编程和操作系统Framework——.NET，支持多种语言利用公共.NET库开发应用程序，这些应用程序在.NET Framework上运行。使用Visual Basic在.NET Framework上编程，这就是VB.NET。

首先，让我演示在VB.NET中写最简单的控制台程序：Hello World。

1.2 Hello, World!“Hello World!”是初学者学习Windows编程的代表性程序。我们的第一个程序就叫做“Hello VB.NET World!”。该程序在控制台输出一句话：“Hello VB.NET World!”，代码如下所示：

代码 1.1: Hello VB.NET World例子Imports System

Module Module1

Sub Main()

System.Console.WriteLine("Hello VB.NET World!")

End Sub

End Module

1.3 VB.NET 编辑器和编译器你可以在记事本或VS.NET IDE等任意文本编辑器中撰写上述代码，然后保存为HelloWorld.vb。 代码编写完成之后，要么在命令行、要么在VS.NET IDE中编译它。在Microsoft .NET Framework SDK中已经包括VB.NET编译器vbc.exe[][1]，从IDE或是命令行都可以调用。要从命令行编译HelloWorld.vb，请在命令行窗口输入

vbc HelloWorld.vb /out:HelloWorld.exe /t:exe

编译结束后，HelloWorld.exe被创建到当前目录下。在资源管理其中双击图标或在命令行执行，程序正确地运行了。祝贺你进入VB.NET开发者的行列。

Imports 语句

如你所知，大部分的.NET类型都在名字空间（namespace）中定义。Namespace是定义和管理类别的范畴。察看.NET Framework Class Library，可以看到数以百计的namespace。例如，System namespace就包括了Console、Object等类型定义。如果想使用Console类，需要用Imports指令导入System namespace。如下所示：

Imports System甚至可以明确地调用namespace而无需用Import导入。下面的例子展示了不用Import的“Hello World！”程序：

代码1.2: Hello VB.NET World例子Module Module1

Sub Main()

System.Console.WriteLine("Hello VB.NET World!")

End SubEnd Module1.4 解析 "Hello VB.NET World!"程序第一行是：

Imports System; System namespace定义了Console类，该类用于读写控制台（命令行窗口）。然后你定义了一个module：Module Module1

…End Module所有的VB程序都包括一个Main()方法，即应用程序入口点。在例子程序中，我们调用Console.WriteLine()向控制台写入“Hello VB.NET World!”：

Sub Main()

Console.WriteLine(“Hello VB.NET World!”) End SubWriteLine()方法归属于Console类，它负责向控制台写一个带有行结束符的字符串。如前所述，Console类定义于System namespace，你通过直接引用来控制类成员。

Console类负责读写系统控制台。读控制台输入用Read和ReadLine方法，向控制台输出用WriteLine方法。

表1.1 Console类定义的方法

方法 用途 例子

Read 读入单个字符 int i = Console.Read();

ReadLine 读入一行 string str = Console.ReadLine();

Write 写一行 Console.Write("Write: 1");

WriteLine 写一行，并带上行结束符

Console.WriteLine("Test Output Data with Line");

1.5 VB.NET有什么新特点？ VB.NET比 VB6.0更加稳定，而且完全面向对象。也许你还记得，VB6.0不支持继承、重载和接口，所以不是真正面向对象的。而VB.NET则支持这些面向对象特性。VB6.0有两个薄弱环节——多线程和异常处理。在VB.NET中，开发多线程应用和使用C++/C#别无二致，结构化异常处理也得到支持。稍后我们会详细解释这些特性。

下面是VB.NET的特性列表——

·面向对象的编程语言。支持继承、重载、接口、共享成员和构造器。·支持所有的CLS特性，如存取控制.NET类、与其它.NET语言交互、元数据、公共数据类型、委托等等。·多线程支持。·结构化异常处理。 1.6 名字空间与集合 前面讨论了我们的第一个VB.NET程序。该程序中首先引人注意的是名字空间（namespace）。在.NET参考文档中，你会发现每个类都归属于某个namespace。那么，namespace到底是什么？

一个namespace是类和组件的逻辑组合，其目的在于将.NET class按类别定义。微软借用了C++ class packaging概念：namespace来描述这种组合。.NET Framework中的组件被称为集合（assembly）。全部.NET代码在数百个库文件（DLL）中定义。Namespace把assembly中定义的类组织起来。一个namespace可以包括多个assembly，一个assembly也可以在多个namespace中定义。 namespace树的根节点是System namespace。在.NET Library中，每个class都在一组相似的类别中定义。例如，System.Data namespace只包括数据相关类。同样，System.Multithreading只包括多线程类。

在使用.NET支持的语言（如C#、VB.NET、C++.NET等）创建新应用程序时，你会注意到每个应用程序都被定义为一个namespace，而所有的class都归属于这个namespace。通过引用这个namespace，其它应用程序就能存取这些class。 在.NET中，代码被编译为中间语言（Intermediate Language，IL），assembly中存储了IL代码、元数据和其它资源文件。同一个assembly可以附属于一个或多个Exe/DLL。所有的.NET库都存储在assembly中。

1.7 VB.NET: 完全面向对象的编程语言抽象、封装、多态、继承是面向对象语言的四个基本属性。VB6.0不支持继承，而VB.NET则不然。所以，和C++一样，VB.NET也是完全面向对象的编程语言。

Class 和 ModuleVB.NET用Class...End Class语句对创建class。每个VB.NET至少包括一个Module（模块）。Module在Module…End Module语句对中实现。应用程序的主要模块是Main方法，亦即应用程序入口点。

和VB6.0相似的地方是，都可以使用Function/Sub关键字定义方法。下面的例子显示了如何创建class、添加方法，并从主程序调用方法： Imports System

Module Module1

Sub Main()

Dim cls As TestClass = New TestClass

Console.WriteLine(cls.MyMethod)

End Sub

Class TestClass

Function MyMethod() As String

Return "Test Method"

End Function

End Class

End ModuleProperty属性（Property）是类变量的公共描述。Property…End Property语句用以创建property。属性的Get/Set方法分别用于取得和设置属性值。下面的例子中，Data是TestClass的属性。

Imports System

Imports System.Console

Module Module1

Sub Main()

Dim cls As TestClass = New TestClass

WriteLine(cls.MyMethod)

WriteLine(cls.Data)

cls.Data = "New Data"

WriteLine(cls.Data)

End Sub

End Module

Class TestClass

Private strData As String = "Some Data"

Function MyMethod() As String

Return "Test Method!"

End Function

' Adding Data property to the class

Public Property Data() As String

Get

Return strData

End Get

Set(ByVal Value As String)

strData = Value

End Set

End Property

重载VB.NET通过overload关键字支持方法重载。使用这个关键字，你可以定义同名但不同参数的方法。

类成员访问域

除了原有的Private和Public，VB.NET引入了几个新关键字。全部访问域关键字列表如下：

关键字 作用域

Private 限于class内部

Public 可以从class外访问

Friend 限于class所属的应用程序内

Protected 只能被class和其派生类访问

Protected Friend 能被class、应用程序和派生类访问

继承继承是面向对象编程语言中最常用的技术。继承让你能够重用类代码和功能。

VB.NET支持继承，而VB6.0则不支持。继承的好处在于你能使用任何人编写的类，从这些类派生自己的类，然后在自己的类中调用父类功能。在下面的例子中，Class B派生自Class A，我们将从Class B中调用Class A的方法MethodA。

Imports System

Imports System.Console

Module Module1

Sub Main()

Dim bObj As B = New B

WriteLine(bObj.MethodA())

End Sub

End Module

' Class A defined

Public Class A

Function MethodA() As String

Return "Method A is called."

End Function

End Class

'Class B, inherited from Class A. All members (Public and Protected)

' can be access via B now.

Public Class B

Inherits A

Function MethodB() As String

Return "Method B is called."

End Function

End Class

可以从一个class中派生多个自定义class，也可以从多个class派生一个自定义class。

共享的成员类的共享成员被类的所有实体共享。共享成员可能是属性、方法或字段/值域。在你不想让用户全面控制自己的类时，共享成员相当有用。例如，你可以开发一个类库，让用户通过共享成员使用其中的部分功能。

可以通过class本身引用共享成员，而无需通过类的实体。例如：Module Module1

Sub Main()

WriteLine(A.MethodA())

End Sub

End Module

' Class A defined

Public Class A

Shared Function MethodA() As String

Return "Method A is called."

End Function

End Class

多线程VB语言的一大弱点就是缺乏编写自由线程（free-threaded）程序的能力。在.NET Framework中，所有语言共享CRL（Common Runtime Library，公共运行库），也就是说，你可以用VB.NET、C#或其它.NET语言编写同样的程序。

System.Threading namespace定义了线程类。我们只需要引入System.Threading namespace，即可使用线程类。

System.Threading.Thread类提供线程对象，可以使用Thread类创建或破坏线程。

创建线程使用Thread类的实体创建一个新线程，然后用Thread.Start方法开始执行线程。线程构造器接受一个参数，该参数指明你要在线程中执行的procedure。在下例中，我想在oThread1（Thread类的一个实体）的第二线程中执行SecondThread过程：

oThread1 = New Thread(AddressOf SecondThread)

SecondThread procedure looks like below:

Public Sub SecondThread()

Dim i As Integer

For i = 1 To 10

Console.WriteLine(i.ToString())

Next

End Sub

然后，调用Thread.Start()开始线程：

oThread1.Start()

下面的代码创建两个第二线程：

Imports System

Imports System.Threading

Module Module1

Public oThread1 As Thread

Public oThread2 As Thread

Sub Main()

oThread1 = New Thread(AddressOf SecondThread)

oThread2 = New Thread(AddressOf ThirdThread)

oThread1.Start()

oThread2.Start()

End Sub

Public Sub SecondThread()

Dim i As Integer

For i = 1 To 10

Console.WriteLine(i.ToString())

Next

End Sub

Public Sub ThirdThread()

Dim i As Integer

For i = 1 To 10

Console.WriteLine("A" + i.ToString())

Next

End Sub

End Module

破坏线程 调用Abort方法来破坏（中止）一个线程。在调用Abort之前，确保用IsAlive判断线程处于活动状态。

If oThread1.IsAlive Then

oThread1.Abort()

End If

暂停线程可以使用Sleep方法来暂停线程执行。Sleep方法接受一个以毫秒为单位的参数，指明线程应当暂停多长时间。

下面的例子让线程暂停1秒钟：

oThread2.Sleep(1000)你也可以使用Suspend和Resume方法来挂起和继续线程执行。

设定线程优先级Thread类的Priority属性用于设定线程优先级。该属性可以设置为Normal，AboveNormal，BelowNormal，Highest和Lowest。如：

oThread2.Priority = ThreadPriority.Highest线程与Apartment使用ApartmentState属性设置线程的apartment类型，该属性值可以为STA，MTA或是Unknown[][2]：

oThread.ApartmentState = ApartmentState.MTAMTS意味着可以使用多线程模式，而STA则只能是单线程执行。

Public Enum ApartmentState

{

STA = 0,

MTA = 1,

Unknown = 2,

}

1.8 结构化异常处理异常处理也被称之为错误处理。作为VB程序员，你一定对On Error Goto和On Error Resume Next这些VB6.0错误处理语句耳熟能详。这种类型的错误处理被称为非结构化异常处理（Unstructured Exception Handling）。而在VB.NET中，Microsoft推出了结构化异常处理机制。VB.NET支持类似C++的TryCatch..Finally控制。Try..Catch..Finally结构如下： Try

' 可能导致异常的代码

Catch

' 当异常发生时处理异常的代码

Finally

' 清理现场

End Try

Try语句块用以抛出异常。如果异常发生，在Catch语句块中处理。Finally语句块是可选的，在需要释放资源时特别有用。

1.9 VB6.0与VB.NET的不同之处除了上面谈到的语言进化，还有一些语法上的变化。所有这些语言和语法的变化在MSDN中均可查到，本文只作简单介绍。

数据类型（Data Type）的改变VB.NET中有些数据类型得到改进。下面是变化对照表。

数据类型 VB6.0 VB.NET

Integer 16 bit size 32 bit size

Long 32 bit size 64 bit size

Currency 用于存储大浮点数 被decimal替代，支持更高精度

Variant 可以存储任意类型数据 被Object类型替代，也可以存储任意类型数据，但结果更好

Date Date类型被存储为double 引入DateTime类型，用于存储不同格式的日期

在VB.NET中，Short数据类型是16 bit的。Short，Integer和Long都等同于CLR的System.Int16、System.Int32和System.Int64类型。 变量声明的变化在VB6.0中，变量声明有许多限制。其中之一就是不能同行声明多个变量。如果一定要在一行中声明多个变量，就一定得指明每个变量的类型，否则将被默认为Variant类型。

Dim a1, a2 As Integer Dim a3 As Integer, a4 As Integer 第一行中的a1是Variant类型，a2是Integer类型。第二行中两个变量都是Integer类型。VB.NET支持同行声明多个变量，举例如下：

Dim a1, a2, a3 As Integer 变量初始化是另一个问题。在VB6.0中不能同时声明和初始化变量，而VB.NET则支持这个特性。

Dim name As String = "Mahesh"System.Console.Write(name) 声明常量也可以照此办理：Const DT_COUNT As Integer = 23 New关键字。在VB.NET中，New关键字用于创建对象。由于数据类型是对象，所以New关键字用以创建一个数据类型对象。

Dim i As Integer = New Integer()i = 10System.Console.WriteLine(i.ToString()) 代码块级别支持。像C++一样，VB.NET支持代码块级别的作用域检查。在语句块中声明的变量只在块内有效。

For i = 1 To 10Dim p As LongSystem.Console.WriteLine(i.ToString())NextSystem.Console.WriteLine(p.ToString()) 这段代码在VB.NET中会得到一个编译错误，因为p在For..Next语句块之外不可访问。在VB6.0中这段代码可以通过。

改进了的类型安全

在VB6.0中，当你声明一个对外部过程的引用时，可以指定任意类型的参数为As Any。Any关键字禁止了类型检查，允许任意数据类型传入和返回。

VB.NET不支持Any关键字。你必须指定每个参数和返回值的数据类型。数组VB.NET对数组作了明显的改动。

数组范围。在VB.NET中，你需要格外留意数组范围问题。VB6.0默认数组下界为0，故数组中的元素数量等与数组上界值加一。下面的数组界限从A(0)到A(10)，共有11个元素：

Dim A(10) As Single可以使用Option Base改变下界值为1。在VB.NET中，数组和C++一样，下界值为0，不支持Option Base。注意：MSDN文档指出数组只能包括与其尺寸相等的元素数量，例如：Dim A(10) As Integer 只能包括10个元素（从A(0)到A(9)），但在编译下面这段代码时我发现它运行良好，看起来数组中容纳了11个元素。

Dim A(10) As Integer A(0) = 12 A(2) = 24 A(10) = 23 System.Console.WriteLine(A(0).ToString()) System.Console.WriteLine(A(10).ToString())System.Console.WriteLine(UBound(A).ToString()) System.Console.WriteLine(LBound(A).ToString()) Lbound和Ubound分别返回 0与10。ReDim和Fixed Array。你可以在VB6.0中指定固定长度的数组。

Dim ArrWeekDays(0 To 6) As Integer

这里的ArrWeekDays数组是固定长度的，不能用ReDim语句改变长度。VB.NET不支持固定长度数组，所以ReDim总是有效。

可以用下面两种方式声明数组： Dim ArrWeekDays(6) As IntegerDim ArrWeekDays() As Integer = {1, 2, 3, 4, 5, 6} ReDim语句。在VB6.0中，ReDim用于初始化动态数组。在VB.NET中你不能把它当作声明用。ReDim只能用于改变数组长度，不过不能改变数组维度。

Variant对阵ObjectVB6.0中的Variant数据类型能存储任意类型变量，VB.NET中Object具备相同能力。

算术操作符VB.NET支持类似C++的快捷方式。下面的表格显示了常规操作与快捷操作的不同之处。快捷方式也可用于*、/、|、等操作符。

操作符 常规语法 快捷方式加法 A = A+5 A +=5 减法 A = A – 5 A -+ 5固定长度字符串

在VB6.0中，可以在声明字符串时指定其长度。VB.NET不支持固定长度字符串。

布尔操作符VB6.0中的And、Or或是Xor语句是按位操作符。而在VB.NET中，它们是布尔操作符。执行这些操作将返回true或false。VB.NET引入新操作符来完成按位操作。

操作符 描述 BitAnd 按位AndBitOr 按位OrBitXor 按位XorBitNot 按位Not结构与自定义类型在VB6.0中，你使用Type…End Type语句块创建结构或自定义类型。例如：

Type StdRec

StdId As Integer

StdName As String End Type

VB.NET引入新的语法：Structure。Type…End Type不再被支持。Structure…End Structure与C++用法相同。可以指定结构中每个元素的可访问域，如Public、Protected、Friend、Protected Friend、Private等。例如：

Structure StdRec

Public StdId As Integer Public StdName As String

Private StdInternal As String End StructureVB.NET中的Structures就像类一样，也可以拥有方法和属性。New和Nothing关键字VB6.0中，AS New和Nothing关键字用于声明一个对象并初始化它。 VB.NET不支持隐式创建对象。如前所言，甚至连数据类型都是对象。你可以采用以下两种方法创建数据类型或对象： Dim i As Integer Dim i As Integer = New Integer() // Do something if i = Nothing Then End If 不支持Set语句VB6.0使用Set语句指派对象。例如：Set myObj = new MyObjectSet a = b在VB.NET中，不需要使用Set指派对象。例如：myObj = new MyObj()a = b过程（procedure）语法的变化在VB.NET中过程语法有了很多变化。例如类似C++的过程调用方式、ByVal（传值）为默认类型、Optional关键字、return语句等等。类似C++的过程调用方式 VB6.0允许不用加圆括号调用过程（sub）。不过，用Call语句调用函数或sub时，一定要使用圆括号。例如：Dim I as IntegerCall EvaluateData(2, i) EvaluateData 2, i 在VB.NET中，所有的方法调用都需要圆括号，而Call语句则是可选的。 ByVal是默认参数类型在VB6.0中，在调用函数或sub时ByRef（传址）是默认类型。那意味着所有改变将反映到传入的变量。VB.NET改变了这种方式。现在，默认的参数类型是ByVal（传值）。 Optional关键字VB6.0使用Optional关键字可用来让用户决定传入一个默认值，之后在调用IsMissing函数判断参数是否有效。 而在VB.NET中，每个可选参数必须声明其默认值，无需调用IsMissing函数。例如：Sub MyMethod(Optional ByVal i As Integer = 3)

Return语句VB.NET的Return语句与C++相似。使用Return语句把控制权从过程返还给调用者。在VB6.0中，Return语句与GoSub语句一起使用。VB.NET不再支持GoSub语句。流程控制的改变下面是VB.NET对流程控制语句的修改：1. GoSub不再受到支持。2. Call、Function和Sub语句均可用于调用过程。3. On ... GoSub和On ... GoTo语句不再受支持。可以使用Select Case语句来替代。4. While ... Wend语句现在改为While…End While语句。不再支持Wend关键字。小结 Visual Basic .NET是.NET版本的Visual Basic，已经从根本发生了变化！通过本文你了解到VB6.0和VB.NET的区别是很大的，可以说根本就是两种不同的语言，因为它们的内核发生了变化，VB6.0是基于COM而vb.net是基于.net框架的，因为这个变化，所以在构造类时也发生了根本性的变化。

VB.NET怎么安装

VB.NET安装部署一).创建部署项目

1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。

2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。

3. 单击“确定”关闭对话框。

4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。

5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。

VB.NET安装部署二).将 主程序 项目的输出添加到部署项目中

1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。

2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。

3. 单击“确定”关闭对话框。

4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。

VB.NET安装部署三).创建安装程序类

1. 在“文件”菜单上指向“新建”，然后选择“项目”。

2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。

3. 单击“打开”关闭对话框。

4. 从“项目”菜单中选择“添加新项”。

5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。

6. 单击“确定”关闭对话框。

7. 详细代码附后。

VB.NET安装部署四).创建自定义安装对话框

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。

2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。

3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。

4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。

5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。

6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.

7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库

8. 选择 Edit1Label 属性并键入：数据库名称:

9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1

10. 选择 Edit1Value 属性并键入：dbservers

11. 选择 Edit2Label 属性并键入：服务器名:

12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2

13. 选择 Edit2Value 属性并键入：(local)

14. 选择 Edit3Label 属性并键入：用户名:

15. 选择 Edit3Value 属性并键入：sa

16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3

17. 选择 Edit4Label 属性并键入：密码:

18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4

19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true

VB.NET安装部署五).创建自定义操作

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。

2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。

3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。

4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。

5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。

附:/targetdir="[TARGETDIR]/"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。

VB.NET安装部署六).添加文件

1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件，取名为DB.dat)

2. 将安装文件LisenceFile.rtf添加到“setup1”项目

3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件

4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）

Crystal_Managed2003.msm

（如果有水晶报表）

dotnetfxredist_x86.msm

（.net一定是必须的）

... （如果有引用其他的dll）

5.如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，*为必要的

具体功能如下：

（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）

* Crystal_Managed2003.msm

Crystal_Managed2003_chs.msm

（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）

* Crystal_Database_access2003.msm

Crystal_Database_access2003_chs.msm

（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）

* Crystal_regwiz2003.msm

（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）

VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm

(很多人经常出现查询错误，不妨加上这个)

6.打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）

VB.NET安装部署七).打包时加入卸载功能：

方法一:

1.在打包项目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)

2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".

3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.

方法二:(推荐)

1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到

2.用VS.net建立一个新的控制台程序uninst.exe文件

'power by: landlordh

'for 2000,xp,2003

Module uninstall

Sub Main()

Dim myProcess As Process =

New Process

If System.Environment.OSVersion.

ToString.IndexOf("NT 5") Then

myProcess.Start("msiexec", "/X

{2B65D4A9-C146-4808-AB4B-321F

B0779559}") '改为自己的ProductCode

End If

myProcess.Close()

End Sub

End Module

3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

VB.NET安装部署八).打包时加入.net环境和MDAC功能：

把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.使用 Setup 项目安装 MDAC

1.确保 Visual Studio .NET 框架引导程序插件已安装。

2.在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。

3.选择 Requirements on Target Machine（搜索目标计算机） 节点。从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。

4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，选择 RegKey 属性，并键入 Software/Microsoft/DataAccess。

5.选择 Root 属性，并选择 vsdrrHKLM。

6.选择 Value 属性，并键入 FullInstallVer。

7.选择 Property 属性，并键入 MDACSEARCH。

8.在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6"。

9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。

10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。

VB.NET 中的Of是什么意思

泛型参数，表示一种特定类型，通常用于集合List, Dictionary之类的。

原型：Dictionary(Of TKey, TValue)

原型不能直接使用，必须给TKey, TValue指定一个类型(Type)

强类型字典：Dictionary(Of String, String)

表示键和值都为String类型的字典。

程序最小化问题！

用VB开发托盘程序

[ 文章来源：不详 | 转载注明： | 更新时间：2006-1-25 ]

很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标，它作为程序运行的一个标志，我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序，我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标；而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。

程序(附后)用到了Shell_NotifyIcon、SendMessage、CallWindowProc、SetWindowLong等API函数，其中Shell_NotifyIcon是主要的函数，它用来添加、删除、更改系统托盘区(taskbar status area)的图标，所以我们先来看看这个函数的声明和参数：

使用API函数之前必须先在程序中声明如下：

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

其中各参数的意义如下表:

参数： 意义

dwMessage 为消息设置值，它可以是以下的几个常数值：0、1、2

NIM_ADD = 0 加入图标到系统状态栏中

NIM_MODIFY = 1 修改系统状态栏中的图标

NIM_DELETE = 2 删除系统状态栏中的图标

LpData 用以传入NOTIFYICONDATA数据结构变量，其结构如下所示：

Type NOTIFYICONDATA

cbSize As Long 需填入NOTIFYICONDATA数据结构的长度

HWnd As Long 设置成窗口的句柄

Uid As Long 为图标所设置的ID值

UFlags As Long 设置uCallbackMessage,hIcon,szTip是否有效

UCallbackMessage As Long 消息编号

HIcon As Long 显示在状态栏上的图标

SzTip As String * 64 提示信息

End Type

返回值 Long，非零表示成功，零表示失败

在使用这个API函数之前我们应该先定义结构类型NOTIFYICONDATA：

Public Type NOTIFYICONDATA

cbSize As Long HWnd As Long

Uid As Long UFlags As Long

UCallbackMessage As Long

HIcon As Long

SzTip As String * 64

End Type

然后定义一个NOTIFYICONDATA的变量TheData来记录设置托盘图标的数据

Private TheData As NOTIFYICONDATA

这时我们就可以使用这个函数来设置系统托盘图标了，具体方法如下：

1、添加图标

With TheData

.Uid = 0

.HWnd = frm.HWnd 'frm.HWnd是程序主窗体的句柄

.cbSize = Len(TheData)

.HIcon = frm.Icon.Handle 'frm.Icon.Handle指向主窗体的图标

.UFlags = NIF_ICON

.UCallbackMessage = TRAY_CALLBACK

'作用是允许返回消息，在下一节中会有详细解释。

.UFlags = .UFlags Or NIF_MESSAGE

.cbSize = Len(TheData)

End With

Shell_NotifyIcon NIM_ADD, TheData

'根据前面定义NIM_ADD，设置为“添加模式”，然后添加

2、删去图标

With TheData

.UFlags = 0

End With

Shell_NotifyIcon NIM_DELETE, TheData

'根据前面定义NIM_DELETE，设置为“删除模式”

3、更改图标

With TheData

.HIcon = pic.Handle

'pic是图片狂PictureBox，存放图标文件

.UFlags = NIF_ICON

End With

Shell_NotifyIcon NIM_MODIFY, TheData

'根据前面定义NIM_MODIFY，设置为“更改模式”

4、为图标添加浮动提示信息

With TheData

.SzTip = tip vbNullChar

'tip是字符串string，存储提示信息

.UFlags = NIF_TIP

'指明要对浮动提示进行设置

End With

Shell_NotifyIcon NIM_MODIFY, TheData

'根据前面定义NIM_MODIFY，设置为“修改模式”

通过以上几段代码我们就能根据自己需要添加、删除、更改系统托盘图标，并能添加系统图标上的浮动提示信息。但这时的托盘图标是孤立的，我们并不能利用它来控制应用程序的行为，怎么办呢？别急，请往下看……

如果你下载(源程序下载)并运行这个例程序，你会发现如果我们在托盘图标上点击鼠标右键，则会弹出一个右键菜单。如果点击相应的菜单项，程序主窗体会随之变化，这样就可以控制程序的行为。而如果当主窗体处于最小化状态时，我们在托盘图标上点击左键，窗体会恢复到原来的大小。其实实现上述的功能都要依赖于WINDOWS操作系统的消息机制，要完全弄懂这个机制挺不容易的，但是我们可以按下述文字来理解它。

把WINDOWS操作系统看作人的大脑，它接收、处理、并发送各种各样的信息给我们的各个器官(当然是比喻各个应用程序了)，也就是说它是消息的中枢。而每个应用程序(甚至每一个按钮、标签、窗体等等统称为窗口)在运行时都会被分配一个窗口过程WINDOWPROC，由这个窗口过程来接收和处理操作系统发来的消息(实际上存在一个消息队列)，通常情况下这个窗口过程是由操作系统指定的，它会自动的响应并处理一些WINDOWS消息(如窗体移动、最大化、最小化、错误信息等)。好，到这我们先停一下，提出一个疑问，这些消息能否由我们自己写程序来处理呢？答案是肯定的，不过还得借助API函数的威力了，怎么用？我们还是先看看这些API函数的定义和参数吧。

程序中用到了SendMessage、CallWindowProc、SetWindowLong等API函数，其中SendMessage函数的作用是将一条消息发给某个窗口；CallWindowProc函数用来发送消息到一个窗口过程；而使用SetWindowLong函数来为窗口结构中为指定的窗口设置属性。使用API函数之前必须先在程序中声明如下：

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

其中各参数的意义如下表:

CallWindowProc函数

参数 意义

lpPrevWndFunc Long，原来的窗口过程地址

HWnd Long，窗口句柄

Msg Long，发送的消息

wParam Long，消息类型，参考wParam参数表

lParam Long，依据wParam参数的不同而不同

返回值 Long，依据发送的消息不同而变化

SetWindowLong函数 ：

参数 TD意义

hwnd Long，欲为其取得信息的窗口的句柄

nIndex Long，请参考GetWindowLong函数的nIndex参数的说明

dwNewLong Long，由nIndex指定的窗口信息的新值

返回值 Long，指定数据的前一个值

SendMessage函数 ：

参数 意义

hwnd Long，要接收消息的那个窗口的句柄

wMsg Long，消息的标识符

wParam Long，具体取决于消息

lParam Any，具体取决于消息

返回值 Long，由具体的消息决定

我们要自己写程序来处理消息，必须先更改窗口的属性，从原来由默认的窗口过程来处理消息变成由我们自己写的消息处理过程来处理消息。方法是使用SetWindowLong函数来取得默认窗口过程的地址，然后转向为我们自己写的窗口过程的地址，具体的实现方法如下代码：

'GWL_WNDPROC获得该窗口的窗口过程的地址，AddressOf是取址函数，NewWindowProc是我们写的过程

OldWindowProc = SetWindowLong(frm.HWnd, GWL_WNDPROC, AddressOf

NewWindowProc)

然后在NewWindowProc函数中写入如下代码，需要注意的是下面代码中红色的TRAY_CALLBACK是由托盘区图标传来的消息，要让托盘图标传回消息，必须在添加托盘图标时指定：

Public Function NewWindowProc(ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'如果用户点击了托盘中的图标，则进行判断是点击了左键还是右键

If Msg = TRAY_CALLBACK Then

'如果点击了左键

If lParam = WM_LBUTTONUP Then

'而这时窗体的状态是最小化时

If TheForm.WindowState = vbMinimized Then _

'恢复到最小化前的窗体状态

TheForm.WindowState = TheForm.LastState

TheForm.SetFocus

Exit Function

End If

End If

'如果点击了右键

If lParam = WM_RBUTTONUP Then

'则弹出右键菜单

TheForm.PopupMenu TheMenu

Exit Function

End If

End If

'如果是其他类型的消息则传递给原有默认的窗口函数

NewWindowProc = CallWindowProc(OldWindowProc, HWnd, Msg, wParam, lParam)

End Function

这样我们就取得并处理了来自托盘图标的消息，现在的问题是在鼠标右键菜单弹出后，怎么控制程序主窗体的状态，这时我们需要用到SendMessage函数来向主窗体发送最大化、最小化、关闭、移动等消息，具体的代码实现如下，其中HWnd是主窗体的句柄，WM_SYSCOMMAND表示发送的是系统控制类的消息，SC_MOVE、SC_SIZE、SC_RESTORE便是要发送的消息了：

'托盘图标右键菜单上的“移动”项被点击时

Private Sub mnuTrayMove_Click()

SendMessage HWnd, WM_SYSCOMMAND, SC_MOVE, 0

End Sub

'托盘图标右键菜单上的“恢复”项被点击时

Private Sub mnuTrayRestore_Click()

SendMessage HWnd, WM_SYSCOMMAND, SC_RESTORE, 0

End Sub

'托盘图标右键菜单上的“退出”项被点击时

Private Sub mnuTraySize_Click()

SendMessage HWnd, WM_SYSCOMMAND, SC_SIZE, 0

End Sub

最后要提醒你，在程序退出时一定要把窗口过程的地址恢复为默认值，同时把托盘图标移去哦。

为了学习方便，以下提供了源代码：

'---------------------------------------------

' 使用系统托盘程序演示

'---------------------------------------------

'程序说明：

' 这是一个比较完整的使用系统托盘的程序实例，包括

'了：添加托盘图标，删除托盘图标，动态改变托盘图标，

'为托盘图标添加浮动提示信息，实现托盘图标的鼠标右键

'菜单等内容。

'-------名称-------------------作用------------

' Form1 主窗体

' mnuFile,mnuFileExit 文件菜单，菜单项

' mnuTray,mnuTrayClose... 托盘区右键菜单，菜单项

'---------------------------------------------

Option Explicit

'LastState变量的作用是标示主窗体原有状态

Public LastState As Integer

'【VB声明】

' Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'【说明】

' 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum，

' SendMessageByString是该函数的“类型安全”声明形式

'【返回值】

' Long，由具体的消息决定

'【参数表】

' hwnd ----------- Long，要接收消息的那个窗口的句柄

' wMsg ----------- Long，消息的标识符

' wParam --------- Long，具体取决于消息

' lParam --------- Any，具体取决于消息

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'表示发送的是系统命令

Private Const WM_SYSCOMMAND = H112

Private Const SC_MOVE = HF010

Private Const SC_RESTORE = HF120

Private Const SC_SIZE = HF000

'当主窗体加载时

Private Sub Form_Load()

'窗体的WindowState属性，返回或设置一个值，该值用来指定在运行时窗体窗口的可视状态

'vbNormal 0 （缺省值）正常 。

'VbMinimized 1 最小化（最小化为一个图标）

'VbMaximized 2 最大化（扩大到最大尺寸）

If WindowState = vbMinimized Then

LastState = vbNormal

Else

LastState = WindowState

End If

'将图标添加到托盘的函数，参见模块中的解释

'注意了这是从主程序到模块的入口，本例中并没有直接调用Shell_NotifyIcon函数

AddToTray Me, mnuTray

SetTrayTip "托盘图标演示，点击右键弹出菜单"

End Sub

'在主窗体Form1大小改变时，相应改变右键菜单mnuTray的菜单项的可用属性Enabled

Private Sub Form_Resize()

Select Case WindowState

'如果窗体最小化了，把菜单项“最大化”“恢复”设为可用，

'而把“最小化”“移动”“大小”三项设为不可用.

'如果这时在托盘图标上点击鼠标右键，会发现不可用项变为灰色

Case vbMinimized

mnuTrayMaximize.Enabled = True

mnuTrayMinimize.Enabled = False

mnuTrayMove.Enabled = False

mnuTrayRestore.Enabled = True

mnuTraySize.Enabled = False

'窗体最大化时

Case vbMaximized

mnuTrayMaximize.Enabled = False

mnuTrayMinimize.Enabled = True

mnuTrayMove.Enabled = False

mnuTrayRestore.Enabled = True

mnuTraySize.Enabled = False

'一般状态下

Case vbNormal

mnuTrayMaximize.Enabled = True

mnuTrayMinimize.Enabled = True

mnuTrayMove.Enabled = True

mnuTrayRestore.Enabled = False

mnuTraySize.Enabled = True

End Select

If WindowState vbMinimized Then LastState = WindowState

End Sub

'保证在程序退出时删除托盘图标

Private Sub Form_Unload(Cancel As Integer)

RemoveFromTray

End Sub

'“文件”菜单的“退出”项被点击时

Private Sub mnuFileExit_Click()

Unload Me

End Sub

'托盘图标右键菜单上的“退出”项被点击时

Private Sub mnuTrayClose_Click()

Unload Me

End Sub

'托盘图标右键菜单上的“最大化”项被点击时

Private Sub mnuTrayMaximize_Click()

WindowState = vbMaximized

End Sub

'托盘图标右键菜单上的“最小化”项被点击时

Private Sub mnuTrayMinimize_Click()

WindowState = vbMinimized

End Sub

'托盘图标右键菜单上的“移动”项被点击时

Private Sub mnuTrayMove_Click()

SendMessage HWnd, WM_SYSCOMMAND, _

SC_MOVE, 0

End Sub

'托盘图标右键菜单上的“恢复”项被点击时

Private Sub mnuTrayRestore_Click()

SendMessage HWnd, WM_SYSCOMMAND, _

SC_RESTORE, 0

End Sub

'托盘图标右键菜单上的“退出”项被点击时

Private Sub mnuTraySize_Click()

SendMessage HWnd, WM_SYSCOMMAND, _

SC_SIZE, 0

End Sub

'-----------------------------------------

'以下为模块中的代码：

'-----------------------------------------

Option Explicit

Public OldWindowProc As Long

Public TheForm As Form

Public TheMenu As Menu

'【VB声明】

'Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'【说明】

' 此函数发送消息到一个窗口过程

'【返回值】

' Long，依据发送的消息不同而变化

'【参数表】

' lpPrevWndFunc----- Long，原来的窗口过程地址

' HWnd-------------- Long，窗口句柄

' Msg -------------- Long，发送的消息

' wParam ----------- Long，消息类型，参考wParam参数表

' lParam ----------- Long，依据wParam参数的不同而不同

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'【VB声明】

' Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'【说明】

' 在窗口结构中为指定的窗口设置信息

'【返回值】

' Long，指定数据的前一个值

'【参数表】

' hwnd ----------- Long，欲为其取得信息的窗口的句柄

' nIndex --------- Long，请参考GetWindowLong函数的nIndex参数的说明

' dwNewLong ------ Long，由nIndex指定的窗口信息的新值

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'【VB声明】

'Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

'【说明】

'【参数表】

'参数dwMessage ---- 为消息设置值，它可以是以下的几个常数值：0、1、2

'NIM_ADD = 0 加入图标到系统状态栏中

'NIM_MODIFY = 1 修改系统状态栏中的图标

'NIM_DELETE = 2 删除系统状态栏中的图标

'参数LpData ---- 用以传入NOTIFYICONDATA数据结构变量，我们也需要在"模块"中定义其结构如下：

'Type NOTIFYICONDATA

' cbSize As Long 需填入NOTIFYICONDATA数据结构的长度

' HWnd As Long 设置成窗口的句柄

' Uid As Long 为图标所设置的ID值

' UFlags As Long 用来设置以下三个参数uCallbackMessage、hIcon、szTip是否有效

' UCallbackMessage As Long 消息编号

' HIcon As Long 显示在状态栏上的图标

' SzTip As String * 64 提示信息

'End Type

'---- 其中参数uCallbackMessage、hIcon、szTip也应在模块中声明为以下的常量：

'Public Const NIF_MESSAGE = 1

'Public Const NIF_ICON = 2

'Public Const NIF_TIP = 4

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Public Const WM_USER = H400

Public Const WM_LBUTTONUP = H202

Public Const WM_MBUTTONUP = H208

Public Const WM_RBUTTONUP = H205

Public Const TRAY_CALLBACK = (WM_USER + 1001)

Public Const GWL_WNDPROC = (-4)

Public Const GWL_USERDATA = (-21)

Public Const NIF_ICON = H2

Public Const NIF_TIP = H4

Public Const NIM_ADD = H0

Public Const NIF_MESSAGE = H1

Public Const NIM_MODIFY = H1

Public Const NIM_DELETE = H2

'记录 设置托盘图标的数据 的数据类型NOTIFYICONDATA

Public Type NOTIFYICONDATA

cbSize As Long

HWnd As Long

Uid As Long

UFlags As Long

UCallbackMessage As Long

HIcon As Long

SzTip As String * 64

End Type

'TheData变量记录设置托盘图标的数据

Private TheData As NOTIFYICONDATA

' *********************************************

' 新的窗口过程--主程序中采用SetWindowLong函数改变了窗口函数的地址，消息转向由NewWindowProc处理

' *********************************************

Public Function NewWindowProc(ByVal HWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'如果用户点击了托盘中的图标，则进行判断是点击了左键还是右键

If Msg = TRAY_CALLBACK Then

'如果点击了左键

If lParam = WM_LBUTTONUP Then

'而这时窗体的状态是最小化时

If TheForm.WindowState = vbMinimized Then _

'恢复到最小化前的窗体状态

TheForm.WindowState = TheForm.LastState

TheForm.SetFocus

Exit Function

End If

End If

'如果点击了右键

If lParam = WM_RBUTTONUP Then

'则弹出右键菜单

TheForm.PopupMenu TheMenu

Exit Function

End If

End If

'如果是其他类型的消息则传递给原有默认的窗口函数

NewWindowProc = CallWindowProc(OldWindowProc, HWnd, Msg, wParam, lParam)

End Function

' *********************************************

' 把主窗体的图标（Form1.icon属性可改变）添加到托盘中

' *********************************************

Public Sub AddToTray(frm As Form, mnu As Menu)

'保存当前窗体和菜单信息

Set TheForm = frm

Set TheMenu = mnu

'GWL_WNDPROC获得该窗口的窗口函数的地址

OldWindowProc = SetWindowLong(frm.HWnd, GWL_WNDPROC, AddressOf NewWindowProc)

'知识点滴：HWnd属性

'返回窗体或控件的句柄。语法: object.HWnd

'说明:Microsoft Windows 运行环境，通过给应用程序中的每个窗体和控件

'分配一个句柄（或 hWnd）来标识它们。hWnd 属性用于Windows API调用。

'将主窗体图标添加在托盘中

With TheData

.Uid = 0 '忘了吗？参考一下前面内容,Uid图标的序号，做动画图标有用

.HWnd = frm.HWnd

.cbSize = Len(TheData)

.HIcon = frm.Icon.Handle

.UFlags = NIF_ICON '指明要对图标进行设置

.UCallbackMessage = TRAY_CALLBACK

.UFlags = .UFlags Or NIF_MESSAGE '指明要设置图标或返回信息给主窗体，此句不能省去

.cbSize = Len(TheData) '为什么呢？我们需要在添加图标的同时，让其返回信息

End With '给主窗体，Or的意思是同时进行设置和返回消息

Shell_NotifyIcon NIM_ADD, TheData '根据前面定义NIM_ADD，设置为“添加模式”

End Sub

' *********************************************

' 删除系统托盘中的图标

' *********************************************

Public Sub RemoveFromTray()

'删除托盘中的图标

With TheData

.UFlags = 0

End With

Shell_NotifyIcon NIM_DELETE, TheData '根据前面定义NIM_DELETE，设置为“删除模式”

'恢复原有的设置

SetWindowLong TheForm.HWnd, GWL_WNDPROC, OldWindowProc

End Sub

' *********************************************

' 为托盘中的图标加上浮动提示（也就是鼠标移上去时出现的提示字条）

' *********************************************

Public Sub SetTrayTip(tip As String)

With TheData

.SzTip = tip vbNullChar

.UFlags = NIF_TIP '指明要对浮动提示进行设置

End With

Shell_NotifyIcon NIM_MODIFY, TheData '根据前面定义NIM_MODIFY，设置为“修改模式”

End Sub

' *********************************************

' 设置托盘的图标（在本例中没有用到，如果要动态改变托盘内显示的图标，它非常有用）

' 例如：1、显示动画图标（方法你一定猜到了，对！使用Timer控件，不断调用此过程，注意把动画放在pic数组中）

' 2、程序处于不同状态时，显示不同的图标，方法是类似的

' 有兴趣的话试一试吧。

' *********************************************

Public Sub SetTrayIcon(pic As Picture)

'判断一下pic中存放的是不是图标

If pic.Type vbPicTypeIcon Then Exit Sub

'更换图标为pic中存放的图标

With TheData

.HIcon = pic.Handle

.UFlags = NIF_ICON

End With

Shell_NotifyIcon NIM_MODIFY, TheData

End Sub

参考资料：

VB.net 和C#.net 各有什么优缺点

C#.net优点：

运算符重载。不安全代码（指针和固定内存区）、 无符号整数、移位运算。

VB的优点： 

即时编译、静态事件绑定、条件异常捕获、COM兼容类、宽松的类型检查和变量声明、Visual Basic Runtime库、可选参数、带参数属性、模块等语言特征、动态数组。

通过VB.NET开发好的程序绝对没有问题（包括Direct X游戏开发）。虽然VB.NET的资料少，但是只要C#支持的VB.NET都支持（大体上这样，因为都要经过MSIL中间环节。除了指针之类的VB.NET不支持C#支持，但是没有多大实际用处）。

vb.net的资料以英文资料居多（只有英文资料才有看头，中国的没有什么好资料），得看看英文水平过不过关。还有VB.NET的ide也比C#的IDE好得多，代码看得也舒服。（C#的大括号｛｝太烦人）。

至于VB6对C的帮助，只是理解上会容易一些，其它用处不大。有VB6的基础学VBNET会方便一些，但是并不是会VB6就会VB.NET，它们差别也不小。

扩展资料：

NET、C#和ASP.NET之间的区别 ：

1、NET是一个平台，一个抽象的平台的概念。

NET 平台其本身实现的方式其实还是库，抽象层面上来看是一个平台。

基本可以理解的NET核心就是NETFramwork。

NETFramework包括两个关键组成元素：

a. CommonLanguageRuntime，公共语言运行时（CLR0）-提供内在管理，代码安全性检测等功能。

b. NETFrameworkClassLibrary，.NET 框架类库（FLC）-提供大量应用类库，提高开发效率。

学习NET Framework 是所有.NET开发人员都必须的，否则开发NET程序永远都是停留在‘外功’的招式，NETramework 是NET开发高手的‘内功’修行之一。

2、C#是一个程序设计语言，仅仅是一个语言。

程序设计语言仅仅是为了方便开发人员和计算机沟通的工具，虽然 C#语法相对 C 和 C+要多一些，但是相对来看 C#语法都比较固定，这样使用起来却都很容易。我认可一位朋友说的，C#的语法更严谨！

这里回过来看看NET和C#的关系，不得不提的是NET程序的执行过程。

C#符合NETCLR 中的公共语言运行规范。CLS:commonlanguagespecification，当然所有的NET Language 都是符合这个规范的例如：VB.NET、XAML 和 C++/CL等等。

C#需要符合NETCLS，是因为NETCLR和JAVA虚拟机类似，有一个中间语言共机器来执行。所有不同语言的.NET代码在执行前会被编译成同样的中间语言(MSIL)，所以所有NET 支持语言都必须符合符合CLS 规范。

P.S：如果做.NET3.0XAML开发的朋友，可以尝试下ildasm.exe看看XAML的应用程序，会发现原来 XAML其实很简单。

3、ASP.NET是一个网站开发的技术，仅仅是.NET框架中的一个应用模型。

用微软公司ASP.NET快速入门中的一句话来解释，ASP.NET是用于生成基于Web的应用程序的内容丰富的编程框架。

ASP.net 和C#的区别：

编写asp.net通常包括两部分的代码:网页层和后台处理层，网页就是用标记语言来写的，而网页对应的后台处理程序则需要.net语言来完成，目前主要是采用c#和vb.net。

可以说整个的asp.net网站通过c#或者vb.net来实现。而c#则是ms .netframework的主要语言，可以用在网站，桌面应用等方面。可以算是一种比较流行的编程语言。

文章名称：关于ofvb.net的信息
URL地址：http://kswjz.com/article/hihdio.html