سؤال فى الليست بوكس؟

السلام عليكم

اولا ما هي الاداة التي تستخدمها في تشغيل الاغاني

اذا كانت الاداة MMControl فالحل بسيط

'In Done Events Write This 

Private Sub MMControl_Done()

PlayMusic List1.listindex + 1

end sub 


Private sub  PlayMusic (SongIndex as long)

With MMControl 

.command = "close"
.Filename = list1.list(SongIndex)
.command = "open"
.Command= "play"

End with 


end sub

هذا الكود كتبته وانا موجود علي النت يرجى تجربته

'In Done Events Write This 
Dim Index as Integer
Private sub Form_Load()
Index = 0
End Sub

Private Sub MMControl_Done()

Index = Index + 1
PlayMusic Index

end sub 


Private sub  PlayMusic (SongIndex as long)

With MMControl 

.command = "close"
.Filename = list1.list(SongIndex)
.command = "open"
.Command= "play"

End with 


end sub

تعديل بسيط كود الاخ prof

السلام عليكم

ارحب باي تعديل علي مشاركتي فقط في حال لوكان التعديل للاصح ،، ولكن ما ضفته اخي راكان هو الخطا بعينه ،، انت ضفت عداد يزداد واحد في كل مرة صح .

ولكن لو بدأ المستخدم بتشغيل الاغنية رقم خمسة وخلصت الاغنية سيصبح الـIndex واحد اي سيرجع الي اول اغنية وهذا خطأ

انا ما كتبته هو رقم الاغنية الحالية في القائمة مضيفا اليها واحد اي لو بدأ المستخدم بتشغيل الاغنية رقم 100 وعندما تنتهي سيقوم بتشغيل الاغنية رقم 101

راجع الكود

تحياتي لك

انا فهمت الكود بتاعك

و هو صحيح 100% لكن عدلت عليه لتمثيل طريقة اخرى لعمل ذلك...

لان افرض المستخدم اختار الاغنية رقم 3 ... خاصية ال ListIndex في ال Listbox ستبقى 2 دائما لانه انت لم تضع الكود لتعديل خاصية ال ListIndex وستبقى دائما الاغنية رقم 3

على كل اذا كنت غلطان في تحليل كودك و انا معرض له لاني لست كاملا

الكود الذي وضعته يسير من اول اغنية ال ال List الى الاخر الا اني نسيت وضع هذا

Private Sub MMControl_Done()
If List1.ListCount -1 = Index then
Index = Index + 1
PlayMusic Index

end sub

و لا احاول الا مساعدة الاعضاء لا اثبات اني دائما صحيح و هذا بعيد عني

مشكورين اخوانى على الردود