如何把VB编的程序制成一个安装文件

把你的程序EXE后缀改成DLL，自己用VB再编写一个程序，将你的程序放在刚才制作的程序之下，要将程序的后缀（原来是EXE)更改成为DLL就可以了，安装的时候使用一行语句

filecopy apppath & "/XXXdll" ,安装的路径 & "/XXXexe"

这样，你刚才编写的VB程序就是你的安装程序了

不需要制作Dll

只需要将程序的后缀（原来是EXE)更改成为DLL就可以了

还有一种方法，你可以用Winrar的自动解压缩功能制作安装程序（具体 *** 作方法可以看Winrar的说明书，十分详细）。（金山毒霸2007的安装程序就是这样做的，你可以参考一下，你把金山毒霸安装程序的后缀EXE更改为rar,解压一下，里面有很多原文件）

一般的内部控件是不需要随exe程序打包的,这些控件都是在vb控件工具箱中能直接找到的,如nbsp;CommandButton,ListBox,TextBox,FileListBox,DirList,PictureBox,Image,Shape,OLE,Scroll,Labelnbsp;如果程序调用了外部控件(在工具箱中右键单击,在d出菜单中选择“部件”，即可调用外部控件，例如RichTextBox,CommonDialog都是外部控件），则需要打包为安装程序，vb中有自带的打包程序，如果觉得太差，可以使用“安装工厂（Setupnbsp;Factory）”，它可以自动对vb工程打包。

根本不用3个类型，只需简体中文的字符串和英文的字符串即可。繁体中文可以直接用代码转换的。（搜索“VB 简体转繁体”）

思路：

程序中的每个屏幕的Label/Text/按钮 等等 全部做成控件数组

例如 屏幕1（欢迎），里面的Label做成Label(0),Label(1)

然后 屏幕2（假设是 版权信息），里面Text做成Text(0)，Label做成Label(0),Label(1)

程序中储存字符串

例如

Dim Screen1_Label_CHS() As String,Screen1_Label_ENG() As string

Screen1_Label_CHS =split("欢迎使用 AAAA 软件" & vbcrlf & "本软件受版权保护|作者信息:|制作: BBB" & vbcrlf & "EMail: XXX","|")

'用|分割每一个Label的中文（第一个屏幕）

Screen1_Label_ENG =split("Welcome to install AAAA" & vbcrlf & "Copyright BBB|Programmer Info:|Program: BBB" & vbcrlf & "EMail: XXX","|")

'用|分割每一个Label对应的英文（第二个屏幕）

等等

然后一开始显示一个Choose Language,一个是English一个是简体，一个是繁体。

将记录保存到Lang变量，简体=0，繁体=1，英文=2

而每个屏幕的初始化中写：

（假设是屏幕1）

Dim i as integer

For i = 0 to LabelUbound

If Lang=0 Then

Label(i)Caption = Screen1_Label_CHS(i)

Elseif Lang=1 then

Label(i)Caption = 简体To繁体函数(Screen1_Label_Chs(i))

Else

Label(i)Caption = Screen1_Label_ENG(i)

End If

Next

这样写已经很省力了，不用一个一个都写过去!

以上就是关于如何把VB编的程序制成一个安装文件全部的内容，包括:如何把VB编的程序制成一个安装文件、如何制作VB安装软件、vb制作多语言安装程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！