开始使用代码添加 VB 6 资源编辑器内的资源文件 .RES
使用 104 你添加的一首MP3音乐 为例:
public songname as string,aa as string
Private Sub getresmp3()
aa$ = app.path & "\" & "romance.mp3"
If Dir(aa$) = "" Then '如果在本地路径找不到这文件
Dim v, X '开始在本地路径生成这文件
Dim byt() As Byte
v = LoadResData(104, "CUSTOM")
byt = v '转换为二进制
Open aa$ For Binary As #1
Put #1, 1, byt()
Close #1
End If
songname = aa$ '定义歌曲名变量, 可以开始调用它来播歌了
End Sub
Private Sub Command1_click()
getresmp3
If Dir(songname) <> "" Then
playmp3
End If
End Sub