问题解决了吗， 如果没有的话我这里有稍微笨一点的办法。 就是你先写两个应用程序A,B。 程序A是编制贺卡的， 程序B是播放贺卡的， A 程序 A程序中贺卡完成时让用户给和卡取个名字NAME， 用这个名字生成一个资源文件，在把B程序复制，文件名改成NAME。 B程序 调用同一个目录下与他名字一样的资源文件。 资源文件就是和卡的内容。 。对不起我也没有编过，不知行不行的通 如果你真的有兴趣，一起研究。My Email is :[email protected]
piaoyang80： 谢谢你，不过，你的方法并不是我想的那样的！
假定資源文件為 101, "custom",加一個按鈕command1 Private Sub Command1_Click() SaveFileFromRes 101, "custom", "C:\aaaa.exe" End Sub Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean Dim bytImage() As Byte ' Always store binary data in byte arrays! Dim iFileNum As Integer 'Free File Handle On Error GoTo SaveFileFromRes_Err SaveFileFromRes = True 'Load Binary Data from Resource file bytImage = LoadResData(vntResourceID, sType) 'Get Free File Handle iFileNum = FreeFile 'Open the file and save the data Open sFileName For Binary As iFileNum Put #iFileNum, , bytImage Close iFileNum Exit Function SaveFileFromRes_Err: SaveFileFromRes = False: Exit Function End Function 已經調試通過 如果要不同exe使用不同圖片還要動動腦筋
to 飘洋 但是如果这样的话，就会有多个文件了，不是太方便了。 to darkcat: 平平 虽然没有给出代码，但是原理已经说的很露骨了，而且思路也不错（我也是这样想的:p）。你自己试试吧，主要就是资源文件的应用和ｂｉｎａｒｙ的应用
我很想你做一个例子给我！
1、按hnlzh老兄说的，放到资源里面
2、把文件加到你的EXE末尾（就是合并起来），记住新文件的偏移地址，
需要生成的时候打开自己，然后把数据读出来就可以。
直接写个你就是了。
1：你需要定义一个字节数组(dim bytedata() as byte)
2: 你需要有个含有exe文件的资源文件。（用资源文件编辑器做一个）
3：你需要用LoadResData函数把资源中的数据读出来（bytedata=LoadResData（"101",EXE))
4: 把读出的exe文件的数据写入文件(open filename for binary as #1 ,put #1,,bytedata ,close 1)
这样就完成了啊。
看来我有点懂了，你能不能E-mail个例子给我啊，我会很感激你的！！！！
我的E-mail是[email protected],谢谢！！
如果没有的话我这里有稍微笨一点的办法。
就是你先写两个应用程序A,B。
程序A是编制贺卡的，
程序B是播放贺卡的，
A 程序
A程序中贺卡完成时让用户给和卡取个名字NAME，
用这个名字生成一个资源文件，在把B程序复制，文件名改成NAME。
B程序
调用同一个目录下与他名字一样的资源文件。
资源文件就是和卡的内容。
。对不起我也没有编过，不知行不行的通
如果你真的有兴趣，一起研究。My Email is :[email protected]
谢谢你，不过，你的方法并不是我想的那样的！
Private Sub Command1_Click()
SaveFileFromRes 101, "custom", "C:\aaaa.exe"
End Sub
Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean
Dim bytImage() As Byte ' Always store binary data in byte arrays!
Dim iFileNum As Integer 'Free File Handle
On Error GoTo SaveFileFromRes_Err
SaveFileFromRes = True
'Load Binary Data from Resource file
bytImage = LoadResData(vntResourceID, sType)
'Get Free File Handle
iFileNum = FreeFile
'Open the file and save the data
Open sFileName For Binary As iFileNum
Put #iFileNum, , bytImage
Close iFileNum
Exit Function
SaveFileFromRes_Err:
SaveFileFromRes = False: Exit Function
End Function
已經調試通過
如果要不同exe使用不同圖片還要動動腦筋
但是如果这样的话，就会有多个文件了，不是太方便了。
to darkcat:
平平 虽然没有给出代码，但是原理已经说的很露骨了，而且思路也不错（我也是这样想的:p）。你自己试试吧，主要就是资源文件的应用和ｂｉｎａｒｙ的应用
太谢谢你啦！我会试试看！！！
这个函数写的好吖！
代码已经发到你们的信箱了。自己去收把。
呵呵,不要發給我exe我怕怕