+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox (/showthread.php?tid=9000)
الصفحات:
1
2
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - chatbi - 23-05-13
إخواني الكرام أنا مبتدئ في الفجيول بيزيك دوت نت أريد تشغيل مقاطع صوتية من listbox بحيث كلما انتهى مقطع يمر تلقائيا إلى المقطع الموالي
فهذا الكود الكود كنت استعمله في vb6 لكن مع vb.net لم يعد ممكنا .
Private Sub Timer1_Timer()
On Error Resume Next
If WindowsMediaPlayer1.Controls.currentPosition = Length Then
List1.ListIndex = List1.ListIndex + 1
End If
End Sub
أرجو المساعدة من فضلكم وجزاكم الله خيرا
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - kslawy - 23-05-13
السلام عليكم ورحمة الله وبركاته
أضف للفورم أداة الميديا بلاير وأداة تايمر بمؤقت 1000 مللي ثانية
كود :
Private Sub OpenMedia()
Dim ofd As New OpenFileDialog
ofd.Filter = "MP3 media (*.mp3)|*.mp3"
ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.ListBox1.Items.AddRange(ofd.FileNames)
Play()
End If
End Sub
Private Sub Play()
If Me.ListBox1.Items.Count > 0 Then
If Me.ListBox1.SelectedItems.Count > 0 Then
Me.AxWindowsMediaPlayer1.URL = Me.ListBox1.SelectedItem.ToString
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Me.Timer1.Enabled = True
End If
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
If Me.ListBox1.Items.Count > 0 Then
If Not Me.ListBox1.SelectedIndex = Me.ListBox1.Items.Count - 1 Then
Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
Me.Timer1.Enabled = False
Play()
Else
Me.Timer1.Enabled = False
End If
End If
End If
End Subقد يوجد كود أحسن من هذا
****
***
**
*
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - chatbi - 24-05-13
شكرا أخي على الرد فقد وجدت ما كنت أبحث عنه
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - سامي نت - 25-05-13
اخواني المبرمجين تحية
هل يوجد طريقة تعمل المطلوب بدون وضع أدوات يعني بدون وضع أداة الميديا بلاير او أي أداة ثانية ابغى بس عن طريق الكود ومافيه مشكلة من وضع أداة تايمر والمؤقت بالكود
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - سامي نت - 26-05-13
up
up
up
up
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - kslawy - 26-05-13
سامي نت كتب :اخواني المبرمجين تحية
هل يوجد طريقة تعمل المطلوب بدون وضع أدوات يعني بدون وضع أداة الميديا بلاير او أي أداة ثانية ابغى بس عن طريق الكود ومافيه مشكلة من وضع أداة تايمر والمؤقت بالكود
يتم بذلك بدالة الـ API التابعة لمايكروسوفت واسمها mciSendStringA
رابط من مايكروسوفت لطريقة الاستخدام
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - سامي نت - 26-05-13
kslawy كتب :يتم بذلك بدالة الـ API التابعة لمايكروسوفت واسمها mciSendStringA
رابط من مايكروسوفت لطريقة الاستخدام
عزيزي بارك الله فيك
دخلت على الرابط رابط من مايكروسوفت لطريقة الاستخدام
ولم اعرف استخدمها
ممكن تعمل لنا مثال بارك الله فيك
انتظرك بارك الله فيك
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - kslawy - 26-05-13
مثال جاهز
http://www.codeproject.com/Articles/14709/Playing-MP3s-using-MCI
ومثال آخر :
http://www.codeproject.com/Articles/63094/Simple-MCI-Player
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - سامي نت - 27-05-13
kslawy كتب :مثال جاهز
http://www.codeproject.com/Articles/14709/Playing-MP3s-using-MCI
ومثال آخر :
http://www.codeproject.com/Articles/63094/Simple-MCI-Player
الف مليون شكر لك اخوي بس ما استطيع احمل أي ملف من الموقع يطلب تسجيل ؟
طلب مساعدة حول تشغيل مقاطع صوتية تلقائيا من listbox - سامي نت - 28-05-13
up
up
up
up
up
:o