189 8069 5689
VB.NET可选参数的默认值必须是一个常数表达式。
创新互联建站为客户提供专业的成都网站设计、网站制作、程序、域名、空间一条龙服务，提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、成都做手机网站等网站方面业务。
过程定义中跟在可选参数后的每个参数也都必须是可选的。
下面的语法显示带VB.NET可选参数的过程声明：
Sub sub name（ByVal parameter 1 As data type 1,
Optional ByVal parameter 2 As data type 2 = default value）
调用带VB.NET可选参数的过程
过程在运行时无法检测到给定的参数是否已被省略，或者调用代码是否已显式提供默认值。如果需要弄清楚这一点，可以设置一个不可能的值作为默认值。下面的过程定义了可选参数 office,并测试其默认值 QJZ 以查看它在调用中是否已被省略：
Visual Basic
Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）
If office = "QJZ" Then
Debug.WriteLine（"office not supplied -- using Headquarters"）
office = "Headquarters" End If
' Insert code to notify headquarters or specified office.
End Sub
如果可选参数是像 String 这样的引用类型，只要它不是该变量所预期的值，就可以使用 Nothing 作为默认值。
VB.NET可选参数和重载
定义带可选参数的过程的另一种方法是使用重载。如果有一个可选参数，可以定义过程的两个重载版本，一个接受此参数，另一个则不带参数。此方法随可选参数数目的增加而变得更复杂。然而，这样做的优点是可以完全确定调用程序是否提供了每个VB.NET可选参数。
VB.NET安装部署一).创建部署项目
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 { Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。 } ' VB.net与VB6.0的主要区别 { VB.Net需要在.Net Framework平台上才能执行，因此，大多的VB.Net程序员使用Visual Studio.Net作为IDE(integrated development environment-集成性的开发环境)开发.net应用程序。 VB6生成的应用程序不需要.Net Framework框架的支持。 因此，使用VB.net开发的应用程序只能在装有.Net Framework框架的系统中运行。 } ' VB.net与VB6.0的编程思想 { 网上流传的VB与VB.net差别被过分夸大。其实VB.net改善的只是完整的面向对象思想，90%语法与VB6.0保持一致。 抽象、封装、多态、继承是面向对象语言的四个基本属性。VB6.0不支持继承，而VB.NET则不然。所以，和C++一样，VB.NET也是完全面向对象的编程语言。 } ' VB.net与VB6.0的应用前景(个人观点 By 刺猬) ( 介于现在应用最为广泛WindowsXP操作系统没有预装.net framework的原因，许多VB程序员采用VB6.0开发应用程序；但现在不一样了，在未来，WindowsXP系统必将面临淘汰。继Vista以后，系统都预装了.net framework框架，由此看来，微软正在极力推崇使用.net技术。或许，.net应用程序的开发在未来会有很大的发展前景。 }
求采纳
Visual Basic .NET Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。 大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment). SharpDevelop是另一种可用的开源的IDE。VB.Net需要在.Net Framework平台上才能执行。 VB.NET的主页 1 目前版本 2005年9月以来，存在三种不同版本的Visual Basic .NET. 1 Visual Basic .NET:是随vc#和ASP.NET一起在2002年发布的最初始的VB.net版本。C#被大力宣传为微软对付JAVA的王牌，受到媒体极力关注。然而VB.NET(有时被称为VB7)影响面不广，这导致VB社区之外很少人关注它。那些试用过此版VB.NET的人在层层幕布下发现一个强大却艰深的语言，而且还有不少弱点，比如它比VB6来有一个大了十倍的进行时(RunTime)，内存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起发布的。新功能包括对.NET Compact Framework的支持和更好的VB升迁向导。并改进了运行状况，IDE稳定性(尤其是后台编译器)，以及运行时RunTime稳定性。另外，VB.NET 2003还有一个学院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分发给各国某些学者免费使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大转变，微软决意在其软件名称中去掉了.NET部份。在VB2005中，微软增加了许多新功能，以引用VB对于初学者来说的一些优点： A, Edit and Continue - 也许是从VB那里丢掉的最大的功能，允许代码的编辑和执行立即的执行恢复。 B, Design-time expression evaluation C, My伪命名空间，提供了访问.NET Framework特定域的不需大量编码的简单方式；还能动态产生类(显然的是My.Forms)；提供了改进的VB到VB.NET转换向导；Using 语法，简化了需要部署pattern to free resources的对象的使用；My编码，可隐藏由VB.NET IDE写的模板代码；数据源绑定，简化了数据库C/S开发 上述功能(尤其是My)增强了VB.Net成为快速开发应用平台的可能，并与C#进一步区别开来。参见： 使用My开发 通过My命名空间访问.NET Framework 和项目 Visual Basic 2005 通过增加新功能而填补了和其它所谓更强大的.NET语言的差距。 A, 增加了.NET 2.0语言功能包括：generics和Partial类(在一个文件里定义一个类的某部份然后再添加更多的定义，这个方法在整合用户编码和系统自动生成编码时尤其有用)。 B, XML注释，可以被NDoc等工具处理而自动生成文档 C, operator overloading D, 支持在其它语言中已经广泛使用的unsigned integer数据类型。 E, 支持在许多C衍生编程语言已提供的复合操作符如："+=", "-=" 4, IsNot专利：If Not X Is Y表达式被转换成If X IsNot Y。当微软为IsNot申请专利时招致了恶名(尤其来自Real公司)。 5, Visual Basic 2005 Express：作为VS产品线上的一部份,VB2005 Express是专为业余爱好者和新手定制的免费的VS Express系列的一员。Express版本目的定位在帮助人们学习一种语言，所以他们有和标准版一致的用户界面，只是少了一些高级功能。另外，VS 查看更多答案
记得采纳啊