如何将资源文件,如.mp3 ,midi等文件做成.res文件,并在VBA中调用

解决方案 »

  1.   

    在 VB 资源编辑器窗口中,点击“添加自定义资料”,增加任意的 WAV 文件,再双击刚刚创建的自定义资源,弹出”编辑属性”窗口,定义如下:
    类型: "WAVE"
    标识号: 102
    语言: 中文(中国)
    ⑶保存资源文件,写如下代码:
    Option Explicit
    Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
    Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
    Public Const SND_ASYNC = &H1&
    Public Const SND_MEMORY = &H4&
    Private Sub Command5_Click() 注释:播放 WAV 文件
     Dim bArr() As Byte
     bArr = LoadResData(102, "WAVE")
     sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
    End Sub
    如果是.mp3 ,midi,可以把bArr 存到本地,再调用相应的播放方法
      

  2.   

    如果是.mp3 ,midi,可以把bArr 存到本地,再调用相应的播放方法
    是什么意思啊?还有没有找到你说的 在 VB 资源编辑器窗口中,点击“添加自定义资料” 这个东西啊