Visual Basic

Public Shared Sub PlayWaveResource(ByVal WaveResourceName As String)<br />
<br />
        ' get the resource into a stream<br />
        Dim resourceStream As Stream<br />
        resourceStream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("AssemblyName." + WaveResourceName)<br />
        If resourceStream Is Nothing Then Exit Sub<br />
<br />
        ' bring stream into a byte array<br />
        Dim wavData As Byte()<br />
        ReDim wavData(CInt(resourceStream.Length))<br />
        resourceStream.Read(wavData, 0, CInt(resourceStream.Length))<br />
<br />
        ' play the resource<br />
        PlaySound(wavData, 0, SND_ASYNC)<br />
End Sub

StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi) _<br />
Private Structure SAFEARRAYBOUND<br />
Dim cElements As Integer<br />
Dim lLbound As Integer<br />
End Structure<br />
<br />
StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi) _<br />
Private Structure SAFEARRAY2D<br />
Dim cDims As Short<br />
Dim fFeatures As Short<br />
Dim cbElements As Integer<br />
Dim cLocks As Integer<br />
Dim pvData As Integer<br />
VBFixedArray(1) Dim BoundsR() As SAFEARRAYBOUND<br />
Public Sub Init()<br />
ReDim BoundsR(1)<br />
End Sub<br />
End Structure

Dim tSA As SAFEARRAY2D<br />
tSA.Init()

With tSA<br />
.cbElements = 2<br />
.cDims = 2<br />
.BoundsR(0).lLbound = 0<br />
.BoundsR(0).cElements = m_cWAVRead.ReadbufferSize<br />
.BoundsR(1).lLbound = 0<br />
.BoundsR(1).cElements = 2<br />
End With