[ماهر 2]

(22-11-24, 12:32 PM)asmarsou كتب : و عليكم السلام و رحمة الله و بركاته
هذا كود بنفس الفكرة لتشغيل ملفات صوتية بصيغة mp3

PHP كود :

Public Class Form1
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Public Sub PLAY_mp3AUDIO_SOUND(ByVal filename As String)
        filename = Application.StartupPath & "\FolderSound\" & filename & ".mp3"
        mciSendString("close 0", Nothing, 0, 0)
        mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
        mciSendString("play 0", Nothing, 0, 0)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PLAY_mp3AUDIO_SOUND("Sound1")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PLAY_mp3AUDIO_SOUND("Sound2")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        PLAY_mp3AUDIO_SOUND("Sound3")
    End Sub
End Class 


رائع اخي الكريم

وقد عدلت الدالة لتتماشى مع الطريقة التي استخدمها

كود :

   Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
   Public Sub PLAY_mp3AUDIO_SOUND(ByVal s As Integer)
       Dim filename As String = ""
       Select Case s
           Case 1
               filename = Application.StartupPath & "\FolderSound\Sound01.mp3"
           Case 2
               filename = Application.StartupPath & "\FolderSound\Sound02.mp3"
           Case 3
               filename = Application.StartupPath & "\FolderSound\Sound03.mp3"
       End Select
       mciSendString("close 0", Nothing, 0, 0)
       mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
       mciSendString("play 0", Nothing, 0, 0)
   End Sub

اشكرك جزبل الشكر