请问如何给vb程序打包？

除了使用安装工具包工程来创建您的自定义安装工程外，还可以将安装工具包工程与打包和展开向导一起使用。在这种情况下，您可以使用安装工具包工程来自定义安装过程的屏幕或其它部分，然后使用向导来创建和部署应用程序的软件包。

例如，您可以将安装工具包与打包和展开向导一起使用，以便为安装工程添加对话框，提示用户指定是否安装应用程序的可选功能。例如，您可以提供一个联机帮助，而用户也可以不安装。可以按照您的需要添加任意的安装选项。

要为安装程序添加一个安装选项，请按照以下步骤执行：

在

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]

部分所列的文件。

详细信息

请参阅本章前面的“打包和展开向导”，了解有关该向导特性的详细信息。

你说的是生成安装类型的EXE文件吧。并侍

打开VB－行穗－外接程序－－打包和展开向导－－打包

根据步骤做就行了。

生成VB的安装包，但档蔽卜是或许安装包里面还有其他文件。

---