Question

做了个VB程序 里边要调用一个文件(.text) 怎么把那个文件镶嵌到程序里

做了个VB程序
里边要调用一个文件(.text)
怎么把那个文件镶嵌到程序里
就是如果想在别人电脑运行程序，只要拷个主程序就行了，现在每次都要把整个文件拷去，好麻烦
具体代码：Open App.Path & "\煤矿安全规程.txt" For Input As #1
这个就是引用的语句……

Answer 1

通过资源文件
方法：
1.点“外接程序->外接程序管理器 ->VB 6 资源编辑器”，在“加载行为”中勾选“在启动中加载”和“加载/卸载”
2.回到VB编程界面。点击“外接程序”这个菜单项正下方的一个像魔方一样的绿色图标
3.点击“添加自定义资源”的那个按钮，然后添加你的文件
4.在程序中，用LoadResData函数获取二进制数据，而后写入文件。
参考代码：【sId为你的资源的Id号，sFile为输出到磁盘的路径】
Function OutputFileS(ByVal sId As Long, ByVal sFile As String)
Dim sTemp() As Byte
sTemp = LoadResData(sId, "CUSTOM")
Open sFile For Binary As #1
Put #1, , sTemp
Close #1
End Function

Answer 2

把这个程序封装起来，生成exe文件就可以了，这样哪里都不怕了

追问

怎么封装啊？

追答

直接点右键，弹出的第一个就是生成exe文件，试试吧

Answer 3

实在不行的话就写代码生成此文件