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

السلام عليكم

هذا كود تشغيل الصوت

" WindowsMediaPlayer1.URL = App.Path & "\Eqlas.mp3"

وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "\Eqlas.mp3"
End Sub

Private Sub Command2_Click()
If Command2.Caption = "ايقاف الصوت" Then
WindowsMediaPlayer1.settings.mute = True
Command2.Caption = "تشغيل الصوت"
Else
WindowsMediaPlayer1.settings.mute = False
Command2.Caption = "ايقاف الصوت"
End If
End Sub

Private Sub Command3_Click()
If Command3.Caption = "ايقاف مؤقت" Then
WindowsMediaPlayer1.Controls.pause
Command3.Caption = "استمرار"
Else
WindowsMediaPlayer1.Controls.play
Command3.Caption = "ايقاف مؤقت"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "تشغيل"
Command2.Caption = "ايقاف الصوت"
Command3.Caption = "ايقاف مؤقت"
End Sub 

بالتوفيق

السلام عليكم
الجواب قمة الروعة والفائدة
قمت باضافة الاتي:
زر التشغيل الكود

WindowsMediaPlayer1.URL = App.Path & "\2.mp3

زر الايقاف

WindowsMediaPlayer1.Controls.pause

زر الاستمرار

WindowsMediaPlayer1.Controls.play

بارك الله فيك

اخي البرنس ياليت تشوف لي هالموضوع
هنا

الطريقة للفيجوال بيسك 2010

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

shamal

ALBRNS

shamal

shamal

layan2000

سيف الله الشريف