اريد عمل play listزي بتاعت المديا بلير

ايه يا شباب هو الي انا بطلبه مستحيل و لا حاجه

اقتباس

ايه يا شباب هو الي انا بطلبه مستحيل و لا حاجه

ليس مستحيلاً .. لكنك وضعت سؤال دون أن تضع أي محاولة ..

لا أعلم ما المشكلة لديك لكن الأمر ليس بالصعب .. عليك فقط بمراجعة كل ما تقدمه windowmediaplayer لك ...

هذا مثال :

http://www.xtremevbtalk.com/showthread.php?t=171766

بدون الإطلاع على المثال يمكنك عمل مثيل له فالامر ليس بتلك الصعوبة ..

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

Option Explicit

'This tutorial requires the following 2 controls

'1. FileListBox ~ File1

'2. WindowsMediaPlayer ~ WindowsMediaPlayer1

Dim PlayListCollection As IWMPPlaylistCollection

Dim PlayListArray As IWMPPlaylistArray

Dim PlayList As IWMPPlaylist

Dim MediaCollection As IWMPMediaCollection

Dim Media As IWMPMedia

Private Sub Form_Load()

Dim i As Integer

Dim FilePath As String

Dim Duration As Single

Dim DurationString As String

File1.Pattern = "*.wav;*.wma;*.wmv;*.asf;*.mp3;*.mpg;*.mpeg"

FilePath = "C:\Documents and Settings\All Users\Documents\My Music\Toby Keith\Shock'n Y'All"

If Right$(FilePath, 1) <> "\" Then

FilePath = FilePath & "\"

End If

File1.Path = App.Path

Set PlayListCollection = WindowsMediaPlayer1.PlayListCollection

Set PlayListArray = PlayListCollection.getByName("VB_Playlist")

Debug.Print PlayListArray.Count

If PlayListArray.Count = 0 Then

Set PlayList = PlayListCollection.newPlaylist("VB_Playlist")

Else

Set PlayList = PlayListArray.Item(0)

End If

PlayList.Clear

Set MediaCollection = WindowsMediaPlayer1.MediaCollection

For i = 0 To File1.ListCount - 1

Set Media = MediaCollection.Add(FilePath & File1.List(i))

PlayList.appendItem Media

MediaCollection.Remove Media, False

Next i

For i = 0 To PlayList.Count - 1

On Error Resume Next

With PlayList.Item(i)

Duration = .getItemInfo("Duration")

If Err.Number Then

Duration = 0

End If

On Error GoTo 0

DurationString = Format$(Duration / 86400, "hh:mm:ss") & Format$((Duration - Int(Duration)), ".00")

Do

Select Case Left$(DurationString, 1)

Case "0", ":"

DurationString = Mid$(DurationString, 2)

Case Else

Exit Do

End Select

Loop While Len(DurationString) > 1

Debug.Print .getItemInfo("Title"), .getItemInfo("Author"), .getItemInfo("Album"), DurationString

'Use .setItemInfo to change ID Tag Info

End With

Next i

WindowsMediaPlayer1.currentPlaylist = PlayList

Set PlayListCollection = Nothing

Set PlayListArray = Nothing

Set PlayList = Nothing

Set MediaCollection = Nothing

Set Media = Nothing

WindowsMediaPlayer1.Controls.Play

End Sub

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

بسم الله الرحمن الرحيم

الأخ super_rio

مش ملاحظ ان اسلوبك فى طلب المساعدة غريب شوية

لدرجة انك عايز واحد يشتغل لك كل حاجة ...!!

وانت تظن انها من باب المساعدة .. ولكنها من باب التواكل على الناس

اقتباس

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

مش ملاحظ انه اسلوب غريب شوية

وبعدين

ايه يا شباب هو الي انا بطلبه مستحيل و لا حاجه

وكمان هذا اسلوب مستفز ايضا ... كانك تعاتب الناس انهم لم يساعدوك وانت لم تحاول اى محاولة ولو بسيطة

والحجة انك ليست لديك خبرة فى الفيجوال بيسيك

وعلى فكرة الأخ cipher

برضه علق على نفس النقطة

وشوف كمان

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

ناقص انك تقوله .. .هل لديكم خدمة التوصيل للمنازل

وكمان شوف إسلوبك فى الموضوع دا

اريد تشغيل برنامج صوت يكون مدموج في البرنامج من الاخر يكون علي سي دي

بجد لدرجة ان الواحد بيقول ... هو الراجل دا عايز حد يشتغل له ولا ايه .؟.؟؟

يا اخ الفاضل ... اسلوبك هذا .. يجعل الكثيرون من الناس يرفضون ان يساعدوك حتى وان كانت تعلم الأجابة

لاانك تعطى إحساس للناس انك تريدون ان يعملوا لك كل شىء ... وتامرهم وتطلب منهم

بحجة انه منتدى للمساعدة ...

نعم هو منتدى للمساعدة .. ولكن ليس منتدى للتواكل على الناس

حاول محاولة ولو بسيطة .. واطلب من المساعدة فى حل المشكلة

وليس ان تقول للعضو .... والنبى شوف لى الأكواد دى .. و راجعها لى وصلحها ... وحط عليها شوية فلفل

وارسلها لى على العنوان الفلانى

وهناك بعض الأعضاء .. الذى يضع مشكلته ... و أه .. ثم اه ... لو انها لم تحل او لم يقم احد من الأعضاء بالرد عليها

تجده ... يغلط فى المنتدى وفى الأعضاء ... ويقول كلام غريب

مثل

المنتدى اصبح ميت

الأعضاء والخبراء والمشرفين مش عارف ايه ...!!

وكانهم اصبحوا موظفين عنده

على فكرة الكلام دا ... مش ليك لوحدك ... بصراحة انا كان نفسى اقوله من زمان

وبصراحة احيانا كثيرا جدا .. بدخل المنتدى ..واشوف مواضيع كثيرة ممكن الواحد يشارك فيها

لكن بصراحة لما بتشوف اساليب الأعضاء .. بتكره نفسك

newperson100 :

على مهلك على الراجل :)

هو صحيح الأسلوب الذي إستخدمه غير مرغوب . شخصياً ترددت حين وضعت الرد لأن لا أحبذ الرد في هكذا مواضيع التي تكررت كثيرا في قسم الفيجوال بيسك بصورة خاصة ..

ما علينا ...

super_rio:

يبدو أنك لسه مبتدئ بالفيجوال بيسك لكن ذلك لا يمنع أن تتفحص الكود كلمة كلمة وتحاول فهمه ... شخصياً لا أبرمج بالفيجوال بيسك ولم أدرسها بل إن بيني وبينها عدواة :D لكن على الأقل استطيع قراءة الكود وتنفيذه والتعديل فيه

أنا جربت الكود و نجح معي

لا أعلم ان كنت قد أضفت مايلي الى الفورم

'1. FileListBox ~ File1

'2. WindowsMediaPlayer ~ WindowsMediaPlayer1

شئ أخر يجب تعديل المسار في السطر الآتي الى مسار صحيح يحوي ملفات صوتية ... الخ

FilePath = "C:\Documents and Settings\All Users\Documents\My Music\Toby Keith\Shock'n Y'All"

حظ موفق

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

و كمان نسيت شيء مهم و هو ان اشكر الاخ newperson100 لانه افهمني خطأ و ارشدني و بعون الله ساحاول ان اصحح من اسلوبي و اعمل كل جهدي ثم اخيرا الجا اليكم و انا اسف وفعلا ما فعلته كان خطأ لاني اتسرع في و ضع الموضوع ثم و انا منتظر الرد احاول تغير الكود اجد نفسي قد اصلحته شكرا اخ newperson100 و ربنا يوفقك