编写好的一个VB程序没有错误了我想生成一个可执行的文件（.exe）的形式如何打包呢
第1个回答 2020-07-01
除了使用安装工具包工程来创建您的自定义安装工程外，还可以将安装工具包工程与打包和展开向导一起使用。在这种情况下，您可以使用安装工具包工程来自定义安装过程的屏幕或其它部分，然后使用向导来创建和部署应用程序的软件包。
例如，您可以将安装工具包与打包和展开向导一起使用，以便为安装工程添加对话框，提示用户指定是否安装应用程序的可选功能。例如，您可以提供一个联机帮助，而用户也可以不安装。可以按照您的需要添加任意的安装选项。
要为安装程序添加一个安装选项，请按照以下步骤执行：
在
Setup1.vbp
工程中，编辑
setup1.frm
窗体中的
Form_Load
事件的代码。要添加功能，可以在调用
ShowBeginForm
函数
(Sub
ShowBeginForm)
的代码块之后添加代码。
下面的示例显示了如何添加一个对话框，来询问用户是否要安装可选文件：
Dim
LoadHelp
As
Integer
LoadHelp
=
MsgBox
("Do
you
want
to
install
Help?
",
vbYesNo)
If
LoadHelp
=
vbYes
Then
CalcDiskSpace
"Help"
EndIf
'
包含
cIcons
=
CountIcons(strINI
FILES)
的代码块
If
LoadHelp
=
vbYes
Then
cIcons
=
CountIcons("Help")
EndIf
'
包含
CopySection
strINI_FILES
的代码块。
If
LoadHelp
=
vbYes
Then
CopySection
"Help"
EndIf
'
包含
CreateIcons,
strINI
FILES,
strGroupName
的代码块
关闭
Setup1.frm，保存该窗体以及安装工具包工程，并编译创建
Setup1.exe
文件。
运行打包和展开向导，并从主屏幕中选择“打包”。
根据向导的各个屏幕进行适当的选择。对上面的示例，您可以在“添加和删除”屏幕中列出的“自定义”对话框中确认用户可以选择安装的所有可选文件。
在完成打包和展开向导的所有操作后，将生成发布媒体。
对
Setup.lst
文件进行任何必要的更改。在上面的示例中，您可以在代码的
CopySection
部分所使用的部分中添加一个新的部分。在这种情况下，这个部分可能会象下面这样：
[Help]
File1=MyApp.HL1,MyApp.HLP,$(AppPath),,,10/12/96,2946967,0.0.0
部署并测试您的软件包。
当用户运行本过程所示示例的安装程序时，安装程序将所有的
BootStrap
文件复制到用户机器，然后提示用户指明是否安装帮助文件。如果用户选择“是”，则
CalcDiskSpace
语句将确定在是否用户机器上是否有足够的磁盘空间来存放帮助文件。然后该程序安装
Setup.lst
中的
Setup1
Files
部分列出的所有文件。.
接下来，程序将再测试一次
LoadHelp
标记。如果用户选择安装帮助文件，Setup1.exe
就开始为帮助文件执行
CopySection
语句，然后安装
Setup.lst
的
[Help]
部分所列的文件。
详细信息
请参阅本章前面的“打包和展开向导”，了解有关该向导特性的详细信息。
例如，您可以将安装工具包与打包和展开向导一起使用，以便为安装工程添加对话框，提示用户指定是否安装应用程序的可选功能。例如，您可以提供一个联机帮助，而用户也可以不安装。可以按照您的需要添加任意的安装选项。
要为安装程序添加一个安装选项，请按照以下步骤执行：
在
Setup1.vbp
工程中，编辑
setup1.frm
窗体中的
Form_Load
事件的代码。要添加功能，可以在调用
ShowBeginForm
函数
(Sub
ShowBeginForm)
的代码块之后添加代码。
下面的示例显示了如何添加一个对话框，来询问用户是否要安装可选文件：
Dim
LoadHelp
As
Integer
LoadHelp
=
MsgBox
("Do
you
want
to
install
Help?
",
vbYesNo)
If
LoadHelp
=
vbYes
Then
CalcDiskSpace
"Help"
EndIf
'
包含
cIcons
=
CountIcons(strINI
FILES)
的代码块
If
LoadHelp
=
vbYes
Then
cIcons
=
CountIcons("Help")
EndIf
'
包含
CopySection
strINI_FILES
的代码块。
If
LoadHelp
=
vbYes
Then
CopySection
"Help"
EndIf
'
包含
CreateIcons,
strINI
FILES,
strGroupName
的代码块
关闭
Setup1.frm，保存该窗体以及安装工具包工程，并编译创建
Setup1.exe
文件。
运行打包和展开向导，并从主屏幕中选择“打包”。
根据向导的各个屏幕进行适当的选择。对上面的示例，您可以在“添加和删除”屏幕中列出的“自定义”对话框中确认用户可以选择安装的所有可选文件。
在完成打包和展开向导的所有操作后，将生成发布媒体。
对
Setup.lst
文件进行任何必要的更改。在上面的示例中，您可以在代码的
CopySection
部分所使用的部分中添加一个新的部分。在这种情况下，这个部分可能会象下面这样：
[Help]
File1=MyApp.HL1,MyApp.HLP,$(AppPath),,,10/12/96,2946967,0.0.0
部署并测试您的软件包。
当用户运行本过程所示示例的安装程序时，安装程序将所有的
BootStrap
文件复制到用户机器，然后提示用户指明是否安装帮助文件。如果用户选择“是”，则
CalcDiskSpace
语句将确定在是否用户机器上是否有足够的磁盘空间来存放帮助文件。然后该程序安装
Setup.lst
中的
Setup1
Files
部分列出的所有文件。.
接下来，程序将再测试一次
LoadHelp
标记。如果用户选择安装帮助文件，Setup1.exe
就开始为帮助文件执行
CopySection
语句，然后安装
Setup.lst
的
[Help]
部分所列的文件。
详细信息
请参阅本章前面的“打包和展开向导”，了解有关该向导特性的详细信息。
