1、VB 的资源编辑器可以放入 5 种资源：文本、光标、图标、图片、自定义资源，以自定义资源为例，点一下问号旁边最近的一个按钮，把一个 EXE 文件添加进去，资源编辑器就会出现一个“CUSTOM”目录树，添加进去的文件序号从 101 开始VB 的资源编辑器可以用资源给自己的程序添加图标、光标等，可以文件捆绑(原理是把两个 EXE 通过适当的代码连接在一起，最终产生的集合体为两个 EXE 之和) ，可以 ActiveX in Execute实例：用 VB 资源编辑器打包一个 StringClelaner.exe，并生成另一个可执行文件 Resource Editor.exe当点击其中的按钮 Call
2、 StringCleaner 的时候，就运行这个 StringCleaner.exe ,而不管 StringClelaner.exe是否存在 Step 1 用 vb6.0 编写一个字苻清除器，并生成可执行文件 StringClelaner.exe,源码如下Private Sub Command1_Click()Text3 = StringCleaner(Text1, Text2)End SubFunction StringCleaner(ByVal s As String, ByVal Search As String) As StringDim i As Integer, j As Inte
3、ger, strNew As String, strTemp As Stringj = Len(Search)strTemp = sstrNew = “Do While InStr(strTemp, Search)i = InStr(strTemp, Search)strNew = strNew & Left(strTemp, i - 1)strTemp = Mid(strTemp, i + j)LoopstrNew = strNew & strTempStringCleaner = strNewEnd FunctionStep 2 在窗体 Form1 中放置一个按钮，编写如下代码Privat
4、e Sub Command1_Click()Dim FileName As StringDim FileNum As IntegerDim ArrBin() As ByteRandomize (Second(Now)FileNum = FreeFileFileName = “E:VB PracticeStringCleanerStringCleaner.exe“ArrBin = LoadResData(101, “CUSTOM“)101 资源号“CUSTOM“ 类型Open FileName For Binary As #FileNumPut #FileNum, , ArrBinClose #
5、FileNumShell FileName, vbNormalFocusEnd Sub在资源编辑器中添加 StringClelaner.exe,假设我们将其生成路径为“E:VB PracticeStringCleanerStringCleaner.exe“点击该图标选择要添加的文件Step 3 在 VB6.0 中将本工程生成 Resource Editor.exe 文件Step 4 运行 Resource Editor.exe,点击按钮，将跳出 StringCleaner.exe 运行界面Step 5 将 E:VB PracticeStringCleanerStringCleaner.exe 删除后，发现 Resource Editor.exe 依然能正常如上图运行，并自动在E:VB PracticeStringCleaner 中生成 StringCleaner.exe，由此可知并不是简单的调用，文件捆绑成功 添加进去的文件序号从 101 开始
