منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : أريد كود لتشغيل صوت مخصص عند تشغيل المشروع أو البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
أريد كود لتشغيل صوت مخصص عند تشغيل المشروع أو البرنامج
اتفضل

كود :
Sub PlayBackgroundSoundFile()
   My.Computer.Audio.Play("C:\Waterfall.wav",
       AudioPlayMode.WaitToComplete)
End Sub
او شوف ده

كود :
Private Sub playSound()      
Dim Mytone As New System.Media.SoundPlayer

   Mytone.SoundLocation = "audio.wav"
   Mytone.Load()
   Mytone.Play()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cexitButton.Click

playsound()

End Sub

عملتلك مثال بسيط كده


اتفضل وحضرتك تغير المقطع الصوتى براحتك
شكرا جزيلا لك Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile