VB资源编辑器用法实例.docVIP

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