vb程序里可能用到n多的小文件,能不能把这些小文件封到一个文件里，类似那种cab文件一样的

Question

然后读取这个文件中的小文件
这样用起来方便些，发布也好些
可以吗？

Answer 1

vb程序中很多小文件  是说 vb这个工程需要用到很多小文件 比如 *.jpg
还是 做好的项目里面包含很多小文件 比如 *.ini??

Answer 2

VB有资源文件啊你可以加载icon,cursor,bitmap,binary file用起来很方便的！你也可以封装到一个dll里面，loadlibrary,也可以的

Answer 3

你指的是把所有的相关文件打包吗？
用VB自带的package工具可以做到

Answer 4

  用资源文件，可以把图标，图片，声音，文本，等等东西封装进去，上次有个网友问怎么把WAV放到EXE里，我做了一个小例子，有兴趣可以下载看看,同样的方法可以把N多文件封进去～ftp://my99.xicp.net/res.rar

Answer 5

谢谢楼上TalentLi(▁▂▃▄▅ 天才的我 ▆▅▄▃▂▁) 
偶今天长见识了.

Answer 6

sndplaysound可以直接播放wav资源，不需要另存成一个文件

Answer 7

nik_Amis(Azrael) 
我有资源文件夹"CUSTOM",包括有资源文件"FIRST"
怎么直接播放,麻烦举例!

Answer 8

     你的资源文件FIRST是什么？声音，图片还是………

Answer 9

可以使用资源文件,有三个函数
LoadResString()'从资源文件中装载字符串
LoadResPicture()'从资源文件中装载位图,图标和光标文件
LoadResData()'从资源文件中装载任何文件你可以把多个文件放到一个资源文件中,在程序中利用上述三个函数进行调用,当程序编译时,资源文件会被编译到Exe文件中去

Answer 10

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszNull As Long, ByVal uFlags As Long) As Long
   
   
Private Const SND_MEMORY = &H4
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10Private arrBound()    As Byte
Private arrFired()    As Byte
Private arrNoBullet() As Byte
Private arrBack()     As BytePrivate Sub LoadSound() 
    arrBound = LoadResData("Bound", "WAVE")
    arrFired = LoadResData("Fire", "WAVE")
    arrNoBullet = LoadResData("NoBullet", "WAVE")
    arrBack = LoadResData("Back", "WAVE")
End SubPrivate Function fPlaySound(ind As Integer) As Boolean
    Dim r        As Long
    Dim uFlags   As Long
            
    uFlags = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
    r = sndStopSound(0, SND_ASYNC)
    
    Select Case ind
        Case 0 'Fire
            r = sndPlaySound(arrFired(0), uFlags)
        Case 1 'Shotted
            r = sndPlaySound(arrBound(0), uFlags)
        Case 2 'esNoBullet
            r = sndPlaySound(arrNoBullet(0), uFlags)
    End Select
End FunctionPrivate Sub PlayBack()
    Dim uFlags As Long, r As Long
    uFlags = SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP
    r = sndStopSound(0, SND_ASYNC)
    r = sndPlaySound(arrBack(0), uFlags)
End Sub
你们谁有控间，我可以上传源代码，是我大二的时候，写的一个打气球的游戏
里面有对图片，声音资源文件的使用
以及透明图片的使用，还有背景滚动的效果对初学者有点帮助