eshrag.net
07-15-2010, 07:23 PM
السلام عليكمـ و رحمة الله تعالى و بركاته ..
عندي استفسار بسيط .. انااا عملت برنامج تبع ارسال الايميل .. و اللي ابيغيه هو ان لما توصل الرسالة بنجاح يعمل صــوت مميز success dound
ما تهمـ صيغة الصوت .. بس أنا فضلت الـ mp3
طبعااا الصوت موجود عندي في ملف resources
فــ اناا أريد ان يشتغل الصوت مع ظهور الفورم التالي :
http://www4.0zz0.com/2010/07/15/15/404099220.jpg (http://www.0zz0.com)
أناا بحث عن كود من مواقع أخرى و لكن توصلت للتالي و لكن لم أفهمه بالشكل المطلوب
الكود هو :
Dim MP3 AsNew MP3Player كود PHP:
Dim SuccessSound As String = Application.StartupPath & "\Resources\Success_Sound.wav"
Dim WarningSound As String = Application.StartupPath & "\Resources\Warning_Sound.mp3"
Select Case SendingResulte
Case Is = Status.Succeeded
MP3.Play(SuccessSound, False)
Me.SendAsyncSataus = Status.Succeeded
Me.lbl_SendingCaption.Text = " .."
Me.PicBox_Status.Image = My.Resources.Success_Icon
عندي استفسار بسيط .. انااا عملت برنامج تبع ارسال الايميل .. و اللي ابيغيه هو ان لما توصل الرسالة بنجاح يعمل صــوت مميز success dound
ما تهمـ صيغة الصوت .. بس أنا فضلت الـ mp3
طبعااا الصوت موجود عندي في ملف resources
فــ اناا أريد ان يشتغل الصوت مع ظهور الفورم التالي :
http://www4.0zz0.com/2010/07/15/15/404099220.jpg (http://www.0zz0.com)
أناا بحث عن كود من مواقع أخرى و لكن توصلت للتالي و لكن لم أفهمه بالشكل المطلوب
الكود هو :
Dim MP3 AsNew MP3Player كود PHP:
Dim SuccessSound As String = Application.StartupPath & "\Resources\Success_Sound.wav"
Dim WarningSound As String = Application.StartupPath & "\Resources\Warning_Sound.mp3"
Select Case SendingResulte
Case Is = Status.Succeeded
MP3.Play(SuccessSound, False)
Me.SendAsyncSataus = Status.Succeeded
Me.lbl_SendingCaption.Text = " .."
Me.PicBox_Status.Image = My.Resources.Success_Icon