Visual Basic

Imports System
Imports System.Runtime.InteropServices
Imports System.IO

Public Class WPlaySound

    <DllImport("winmm.dll", EntryPoint:="PlaySound", CharSet:=CharSet.Auto)> _
    Private Shared Function PlaySound(ByVal pszSound As String, _
     ByVal hmod As Integer, ByVal falgs As Integer) As Integer
    End Function


    <DllImport("winmm.dll", EntryPoint:="PlaySound", CharSet:=CharSet.Auto)> _
    Private Shared Function PlaySound(ByVal data() As Byte, _
     ByVal hmod As Integer, ByVal falgs As Integer) As Integer
    End Function


    Public Enum SND
        SND_SYNC = 0
        SND_ASYNC = 1
        SND_NODEFAULT = 2
        SND_MEMORY = 4
        SND_LOOP = 8
        SND_NOSTOP = 16
        SND_NOWAIT = 8192
        SND_ALIAS = 65536
        SND_ALIAS_ID = 1114112
        SND_FILENAME = 131072
        SND_RESOURCE = 262148
        SND_PURGE = 64
        SND_APPLICATION = 128
    End Enum

    Public Shared Sub PlaySound(ByVal fileName As String)
        If File.Exists(fileName) Then
            PlaySound(fileName, 0, CType((SND.SND_ASYNC Or SND.SND_FILENAME Or SND.SND_NOWAIT), Integer))
        End If
    End Sub

    Public Shared Sub PlaySoundResource(ByVal resourceName As String)

        Dim WavStrm As IO.Stream = _
         Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream( _
           GetType(WPlaySound), resourceName)

        If WavStrm Is Nothing Then Return

        'Load the .wav from the stream into the byte array
        Dim ClickSound(CType(WavStrm.Length, Integer) + 1) As Byte
        WavStrm.Read(ClickSound, 0, CType(WavStrm.Length, Integer) + 1)

        PlaySound(ClickSound, 0, CType((SND.SND_ASYNC Or SND.SND_MEMORY Or SND.SND_NOWAIT), Integer))

    End Sub

    Public Shared Sub PlaySoundEvent(ByVal EventName As String)
        PlaySound(EventName, 0, _
          CType((SND.SND_ASYNC Or SND.SND_ALIAS Or SND.SND_NOWAIT Or SND.SND_NODEFAULT), Integer))
    End Sub

End Class

Do you want to know more?
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and Forums

Do you want to know more?
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and Forums