تشغيل وايقاف الصوت - نسخة قابلة للطباعة

تشغيل وايقاف الصوت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تشغيل وايقاف الصوت (/showthread.php?tid=8827)

تشغيل وايقاف الصوت - shamal - 08-05-13

السلام عليكم

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

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

تشغيل وايقاف الصوت - ALBRNS - 09-05-13

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

تفضل

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 

بالتوفيق

تشغيل وايقاف الصوت - shamal - 12-05-13

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

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

زر الايقاف

WindowsMediaPlayer1.Controls.pause

زر الاستمرار

WindowsMediaPlayer1.Controls.play

بارك الله فيك

RE: تشغيل وايقاف الصوت - layan2000 - 01-03-15

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

RE: تشغيل وايقاف الصوت - سيف الله الشريف - 24-12-18

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