[alsalamoni]

(24-02-20, 05:51 AM)ابو روضة كتب :

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

أخوتى لدى ملفات صوتية داخل الليست بوكس تعمل متوالية أى صوت تلو الأخر

فى حين انتهاء المقطع الاول يتم الانتقال للمقطع التالى وهكذا الى أن يتم االانتهاء منهم جميعا.

بصادف مشكلة أنه أوقات هناك أصوات لا تعمل فبضطر أن أضغط أنا على الصوت التالى بالماوس

وانا أريد أنا يعمل هذا تلقائى فى حالة أى صوت لم يعمل يتفاداه وينتقل للمقطع الذى يليه.

فهل هناك كود لعمل هذا الله يكرمكم...

وهذا هو الكود وهو داخل تايمر

كود :

AxWindowsMediaPlayer1.stretchToFit = True
       If RadioButton1.Checked = True Then
           If AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped = True Then
               ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
               AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
           End If
       End If

كما ان هناك مشكلة لا أعلم طريقة حلها مع ان البرنامج كان يعمل جيدا

المشكلةالتي في الصورة يتم حلها بحذف = True ليصبح

كود :

If AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped Then

---

(24-02-20, 03:25 PM)ابو روضة كتب :

إقتباس : اذا لم يكن مشروعك خاصا
ممكن تضع المشروع
مع ملفين يعملان وملف واحد لا يعمل للتجربه

الموضوع مش حكاية خاص وعام أستاذ لكن المشروع كبير لآنى بضع أغلب مشاريعى
بمشروع واحد , يعنى حضرتك ممكن يتم الحل من خلال تخمينك فقط..
فهذا الكود لجلب الاصوات داخل ليست بوكس 1 بالاسم وليست بوكس 2 بالمسار

كود :

ofb.InitialDirectory = ""
       ofb.Multiselect = True

       If (ofb.ShowDialog = Windows.Forms.DialogResult.OK) Then
           filneames = ofb.SafeFileNames
           paths = ofb.FileNames
           For i As Integer = 0 To filneames.Length - 1
               ListBox1.Items.Add(filneames(i))
           Next
           For i As Integer = 0 To filneames.Length - 1
               ListBox2.Items.Add(paths(i))
           Next

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

كود :

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub
   Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = ListBox2.SelectedItem
   End Sub

اعتذر اليك لعدم تمكنني من ايجاد الحل بالتخمين