13518219792
VB.NET安装部署一).创建部署项目
10年积累的做网站、成都网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站策划后付款的网站建设流程，更有马山免费网站建设让你可以放心的选择与我们合作。
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
（点虐 一定是必须的）
... （如果有引用其他的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点虐 建立一个新的控制台程序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安装部署八).打包时加入点虐 环境和MDAC功能：
把MS的PluginInstaller.msi插件装上后,用vb点虐 的自带的打包工具打包,就会自动把点虐 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窗体中建立通用对话框的方法和操作步骤如下：
1、第一步，在“工程”菜单中选择“部件”选项，见下图，然后进入下一步。
2、第二步，完成上述步骤后，单击“控件”按钮，勾选“控件”列表中的“microsoft common dialog control6.0”这一项，然后单击“确定”，以使通用对话框控件添加到工具栏中，如下图所示，然后进入下一步。
3、第三步，完成上述步骤后，将工具栏中的通用对话框拖放到编程界面，以完成通用对话框的添加，见下图，然后进入下一步。
4、第四步，完成上述步骤后，根据程序需要，添加相应的操作按钮并为其编写可执行代码，见下图。这样，问题就解决了。
VB 得到模式窗体的返回值
我们肯定经常有用到从一个模式对话框得到一个返回值的时候，比如说，我在一个程序里面弹出一个选择客户的对话框，在这个对话框关 闭的时候我希望知道用户是选择了哪一个客户。(当然可以直接把值贱给调用窗体中的某个控件,但如果不是窗体中的事件在调用呢?)经测试,VBA宏调用窗体在unload 时,会清除相应的变量及属性值,因此VBA不支持这些方法.
'最简单的方法也是最不值得提倡的方法就是声明一个全局变量。把客户的id放到这个全局变量里。
'假设我的选择客户的窗体名叫frmQuery，在frmQuery上有一个列表,我希望在这个列表里面显示所有北京的客户供用户 选择，在用户选择之后我得到客户的id。
'第一种方法，就是给窗体添加属性(address)和事件(selected)。
'操作方法：在frmQuery的代码窗口点击菜单的“工具”--“添加过程”，点选“属性”，在上面的文本框里输入addres s,确定。vb环境会自动添加两个过程，get Address 和let Address。这样frmQuery这个窗体就多出来一个属性Address.当执行frmQuery.address="北 京"这句话的时候。就会执行let address这个过程。
定义一个变量在let Address过程里面记录下vNewValue，这样就可以在显示列表的时候只显示北京的客户。
'然后点击菜单“工具”--“添加过程”，点选“事件”，在上面的文本框里输入Selected。vb会自动给窗体添加一个事件。 我们给这个事件添加几个参数，改成Public Event selected(id as string)
在用户选择之后。使用raiseevent selected(m_id)触发这个事件。然后unload me退出模式窗体。
'在form1里面调用这个窗体。
'在开始用Private WithEvents frmQ as frmQuery声明这个窗体。
'在希望显示窗体的时候使用set frmQ=new frmQuery实例化这个窗体。然后
frmQ.address="北京"
frmQ.show 1'运行到这里会暂停而不执行后面的语句。直到对话框被卸载。
set frmQ=nothing'释放
'在form1代码窗口的上面，平常用来选择控件和事件的两个下拉框左面会多出来一个frmQ.选择他之后会在'右面的下拉框看到它 的事件selected.
'在这个事件里进行其他的操作。
'第二种方法(推荐)。
'在frmQuery里面添加一个函数SelectID
dim sel as string'定义一个变量保存用户选中的客户
public Function SelectID(address as string) as string
sel = "上海" '处理用户选择,需完善此句代码.
'在这些东西都处理完之后就显示窗体
me.show 1'因为是模式窗体，所以窗体显示以后不会接着往下执行。只用在窗体被卸载的时候才能继续执行后面的语句。
SelectID=sel '这句话将在窗体被卸载的时候执行。
end function
'在用户点选列表的时候设置m_id的值为客户的id
'当用户退出时候
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
t = sel
End Sub
'在form1里面调用。只需要
customerID=frmQuery.SelectID("北京;上海;天津;成都")
set frmQuery=nothing
'就可以得到用户的选择。
'以下为 property 用法
Public Property Get 选择() As String
选择 = a
End Property
Public Property Let 选择(ByVal vNewValue As String)
a = vNewValue
End Property
只要在模块中定义两个变量就可以了。
一个是记录自定义MsgBox的状态，另一个记录反回值。
要想让主窗体有MsgBox那样让启动它的窗体变成Enabled
可以修改启动代码
Form2.Show 1, Me，这样的话，如果不关闭Form2,启动它的窗体，是无法被操作的。
关于反回值，完全可以在Form2_UnLoad中给模块中的两个变量赋值。
因为程式都是顺序执行，所以可以在后面的代码做判断
如下代码
Private Sub Command1_Click()
'如果怕，程式太快可以试先把
'Form2State=True
Form2.Show 1,Me
Do'这里用一个循环卡住不让程式向下执行。
Doevents'让程式响应其它事件。不会出现假死现象。
IF Form2State=False Then Exit Do '只要在Form2_UnLoad中设Form2State=False就可以了
Loop
IF Form2CallBlackValue=0 Then
……
……
End IF
End Sub
以上代码中的
Public Form2State As Boolean
Public Form2CallBlackValue As Long
是放在模块中，也就是(*.Bas)
关于Form2CallBlackValue的值设置你可以写在Form2中的Command_Click中
