كيف اشغل لملف صوت خارجي من خلال برنامجي

هذه الداله تقوم بتشغيل ملفات الـ Wav :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

وهذه هي الثوابت الخاصه بها :

Normal_Play = 1
Freezed_Play = 0
Play_Loop = 9
Stop_and_Play = 8
Stop_Playing = 5

ويمكنك تغليفها في كلاس :

Public Class WavPlayer
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Enum modes
        Normal_Play = 1
        Freezed_Play = 0
        Play_Loop = 9
        Stop_and_Play = 8
        Stop_Playing = 5
    End Enum
    Public Function Playwav(ByVal File_path As String, ByVal Play_mode As modes) As Integer
        Dim ret As Integer
        If sndPlaySound(File_path, Play_mode) Then
            ret = 1
        Else : ret = 0
        End If
        Return ret
    End Function
End Class

أشكرك يا أحي على إستجابتك معي

لكن وضح لى أين أكتب إسم الملف الذي أريد أن أشغله

وهو كل ما أريد أن أشغل الصوت في نفس البرنامج أكتب كل هذه الأسطر؟ وشكرا

لتشغيل ملف صوتي في الدوت نت 2005 أكتب ما يلي

            Dim SoundPlayer As System.Media.SoundPlayer = new System.Media.SoundPlayer("ضع هنا اسم الملف الذي تريد تشغيله")
            SoundPlayer.Play()

أتمنى لك التوفيق

لو سمحت اريد الكود على بيسيك 6 من فيجوال ستوديو 6 معلش ان شغال على البيسيك 6 وما حدستش اللغة عندى ارجو سرعة الرد :D

السلام عليكم

لتشغيل الصوت في VB.NET 2005 يكون بعدة خيارات منها التالي

'Play Wav Sound from my Resource
My.Computer.Audio.Play( _
My.Resources.Windows_XP_Startup, AudioPlayMode.WaitToComplete)


'Play Perdefinded Sytem Sound
My.Computer.Audio.PlaySystemSound( _
Media.SystemSounds.Beep)

'Play Wav Sound From File Path.
My.Computer.Audio.Play( _
Application.StartupPath & "\Repondez.wav", AudioPlayMode.Background)

بالتوفيق إن شاء الله.

المشاركة رقم 2 تعمل على الـ VB6

Mahmoud mustafa musa كتب:

لو سمحت اريد الكود على بيسيك 6 من فيجوال ستوديو 6 معلش ان شغال على البيسيك 6 وما حدستش اللغة عندى ارجو سرعة الرد :D

←

مع أن هناك قسم مخصص للفيجوال بيسك 6, هذا هو الكود :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
    ret& = waveOutGetNumDevs
    If ret& > 0 Then
        'Set the CommonDialogBox' filter
        CDBox.Filter = "Wave-files (*.wav)|*.wav|All Files (*.*)|*.*"
        'Set the CommonDialogBox' title
        CDBox.DialogTitle = "Choose your wave-file ..."
        'Show the 'Open File'-dialog
        CDBox.ShowOpen
        'Play the selected sound
        sndPlaySound CDBox.filename, SND_ASYNC Or SND_NODEFAULT
    Else
        MsgBox "No soundcard detected !"
    End If
End Sub
Private Sub Form_Load()
    Command1.Caption = "Load WAV"
End Sub

و أخيراً : قواعد طرح الأسئلة و المشاركات (قوانين المنتدى)

يا أخوتي كلامكم جميل وسهل فعلا

لكن أنا عندي 2003 ليس 6 ولا 2005

أرجو كود بنفس السهولة لتشغيل الصوت في 2003

وشكرا

المشاركة رقم 2 تعمل على الـ VB6 والـ VB.NET

اخي العزيز :-

جزاك الله خيراً

ولكن يمكن توضيح اكثر كيف اضيفه ازاي فى الفيجوال بيسك 2005

يعني اعمل فورم وايني جواه ايه علشان استخدمه يعني كده