Public Class Form1
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PlaySound("E:\Ahmed 2013\Visual Studio\Visual Studio Project\Sound\Windows Pop-up Blocked.wav", Nothing, Nothing)
End Sub
End Class
.
' WAV فقط صوت من نوع
' من ملف
My.Computer.Audio.Play("aaaa.wav", AudioPlayMode.Background)
' من الريسورس
My.Computer.Audio.Play(My.Resources.aaaa, AudioPlayMode.Background)Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'تشغيل الصوت مره واحده فقط عند الضغط على البوتون
My.Computer.Audio.Play(Application.StartupPath & "\1.wav")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'تشغيل الصوت متكررا كلما توقف بدا من جديد فى الخلفيه
My.Computer.Audio.Play(Application.StartupPath & "\2.wav", AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
تشغيل الصوت والانتظار حتى انتهائه وبعد ذلك يقف
My.Computer.Audio.Play(Application.StartupPath & "\3.wav", AudioPlayMode.WaitToComplete)
End Sub
End Class