※ 引述《Dumkas (藍天‧雲‧狂想曲)》之銘言：
: ※ 引述《Kawada (閃耀的霸王腳)》之銘言：
: : 呃，不好意思，原來是我宣告的地方又錯了
: : 現在已經沒問題了，音樂可以播放，非常感激！
: : 不過仍然有兩個問題想請教：
: : 1、若要設定音樂重覆播放，則引數需打 &H1 & &H8嗎？
: : 可我只要一執行就當掉了？
: 喔，我是沒用過，所以我試驗了一下...
: →改成&H1 + &H8就可以了！
: : 2、製成執行檔之後，音樂檔仍然得和執行檔擺放在同一個資料夾才可
: : 以播放！有可能執行檔單獨執行就可以播放音樂而不需放在同一資料夾嗎？
: 那要用資源檔
: 資源檔就是把文字、圖片和影像包裝起來
: 然後成為執行檔的一部分
: 不過我是沒用過啦
: 用法有點複雜...
資源檔的簡易用法
首先，建立一個檔案，裡面的格式為：(取自于 Visual Basic 6.0 與 Windows API 講座)
[資源名稱 關鍵字 檔案名稱]
其中資源名稱是程式在執行時，所用到的名字
關鍵字則分為
STRINGTABLE - 定義文字
BITMAP - 定義點陣圖
CURSOR - 定義游標
ICON - 定義圖示
WAVE - 定義聲音
然後，在檔案裡面，分別加入你想要用的資源，例如：
resource.rc
=========================
LOGO BITMAP logo.bmp
Sound WAVE test.wave
STRINGTABLE
BEGIN
100 , "文字內容一"
200 , "文字內容二"
END
=========================
(其中定義文字時的數字，為文字標號，就像是資源名稱一樣)
然後 rc resource.rc 編譯成資源檔 (*.res)
在vb的專案視窗中，選擇加入檔案，把這個檔案加進去就ok了
在使用的方法上，圖片的話(就是跟圖有關的)，可以利用
set Picture1.Picture = LoadResPicture ("LOGO",vbResBitmap)
set Me.Icon = LoadResPicture ("XXX", vbResIcon )
set Me.MouseIcon = LoadResPicture ( "XXX" , vbResCursor )
使用文字則是
String = LoadResString(100) (你的文字標號)
播放聲音的話
Dim bArr() as Byte
bArr = LoadResData ("SOUND" , "WAVE")
sndPlaySound bArr(0) , SND_MEMORY Or SND_ASYNC
大致上資源檔就是這樣用了
也許你會在 rc Resource 的地方產生問題
在這哩，你要先有 rc.exe 和 rc.dll 兩個檔案
他放在vb的光碟片裡面可以找到
然後在MS Dos的視窗下執行
(不過在xp下好像會有點問題)
--
有這樣，有問題或指正，請不要客氣
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 219.91.10.248