[paveldida]

السلام عليكم

لقد قمت بإضافة ملف صوتي (البسملة) من نوع WAV إلى resources المشروع لكي يكون اقلاع البرنامج بالبسملة

كما اضفت قارئ الملفات widows media player  للفورم الأساسي

أريد الكود و مكان وضعه لإستدعاء الملف الصوتي و جعل إقلاعه اوطوماتيكي مع اقلاع برنامجي 

[سامي محمد]

وعليكم السلام
ضع هذا الكود في حدث الــ Load الخاص بالفورم

كود :

 My.Computer.Audio.Play(My.Resources.F, AudioPlayMode.Background)

واستبدل حرف الــ F باسم الملف الصوتي لديك

[paveldida]

(09-05-20, 01:46 AM)سامي محمد كتب : وعليكم السلام
ضع هذا الكود في حدث الــ Load الخاص بالفورم

كود :

 My.Computer.Audio.Play(My.Resources.F, AudioPlayMode.Background)

واستبدل حرف الــ F باسم الملف الصوتي لديك

شكرا أخي 

[علي بنيان]

السلام عليكم

PHP كود :

Public Class Form1

    Public Declare Function mciExecute Lib _
    "winmm.dll" Alias "mciExecute" _
    (ByVal lpstrCommand As String) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        mciExecute("play FileName.mp3")

    End Sub
End Class

'2-تشغيل ملفات Mp3 


PHP كود :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Computer.Audio.Play _
        ("FileName.wav", AudioPlayMode.Background)

    End Sub

'3-تشغيل ملفات wav 


PHP كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ply As New System.Media.SoundPlayer("FileName.wav")
        ply.Play()

    End Sub 


هذه عدة طرق اخرى

[paveldida]

(09-05-20, 02:32 AM)علي بنيان كتب : السلام عليكم

PHP كود :

Public Class Form1

    Public Declare Function mciExecute Lib _
    "winmm.dll" Alias "mciExecute" _
    (ByVal lpstrCommand As String) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        mciExecute("play FileName.mp3")

    End Sub
End Class

'2-تشغيل ملفات Mp3 


PHP كود :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Computer.Audio.Play _
        ("FileName.wav", AudioPlayMode.Background)

    End Sub

'3-تشغيل ملفات wav 


PHP كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ply As New System.Media.SoundPlayer("FileName.wav")
        ply.Play()

    End Sub 


هذه عدة طرق اخرى

بارك الله فيك