[asmarsou]

(05-02-21, 03:47 PM)سعود كتب :

اخي الكريم هل نسيت تفعيل الخيار المشار اليه بالسهم؟!

هذا هو اللذي يمنع التشغيل المكرر لنفس التطبيق.

---

اخي الكريم مارايك بالاطلاع على المشروع التالي فقط للفضول ... و جاري الاطلاع على المرفق الخاص بك.

البوم ملفات صوتية [updated ]

تنبيه!

اذا لم تكن بحاجة لاطار الـwmp فلا حاجة لاضافة الـobject وانما فقط اضف الـ Reference.[فائدة على جنب - هامش]

---

معذرة اخي الكريم توجد ملفات لا ادري مافائدتها مثل UltraID3Lib.dll
ايضا وجدت ملف معلومات (حسب معرفتي لست بحاجة اليها ) مثل ملف  tempfile.temp

اخي الكريم سعود الخانة التي اشرت لي بها بسهم ازرق قمت بتفعيلها اي اشرت عليها
و فيما يخص ملحق البوم ملفات الصوتية قد اطلعت عليه و لكنه لا يفتح لي كل عناصر المشروع ...حسب ضني انه بسبب اختلاف نسخ الفيجوال المستعمله عندي و عندك...انا استعمل فيجوال بيسك 2010 اكسرس
اما ايطار الwmp فاضفته لتجنب الاخطاء
و اما ملفات ال UltraID3Lib.dll فهي لتعبئة خانات الليست فيو عند اختار الملفات بواسطة الاوبن فايل كما في المثال الذي ارفقته و الذي يوضع في بوتن الفتح كما يلي
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Adding files to playlist
        OpenFileDialog1.Multiselect = True
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "MP3 Files (*.mp3)|*.mp3"
        Dim results As DialogResult
        results = OpenFileDialog1.ShowDialog()
        If results = Windows.Forms.DialogResult.OK Then
            Dim f As IO.FileInfo
            Dim s As String
            Dim ultra As New UltraID3
            Dim tmp As Integer
            For Each s In OpenFileDialog1.FileNames
                Dim lvi As New ListViewItem
                ultra.Read(s)
                f = My.Computer.FileSystem.GetFileInfo(OpenFileDialog1.FileName)

                ' Gathers info using UltraID3 library, or if no ID3 tags available, use filename as trackname
                ' save these all to listview in a proper format
                If ultra.Title() = "" Then
                    lvi.Text = f.Name()
                Else
                    lvi.Text = ultra.Title()
                End If
                tmp = tmp + 1
                lvi.SubItems.Add(ultra.Artist())
                tmp = tmp + 1
                lvi.SubItems.Add(ultra.Album())
                tmp = tmp + 1
                lvi.SubItems.Add(ultra.Genre())
                tmp = tmp + 1
                lvi.SubItems.Add(s)
                lvi.SubItems.Add(0)
                Form2.ListView1.Items.Add(lvi)
            Next
        End If
    End Sub
يعني ان الكون لا يشتعل بدون تلك الملفات الديناميكية dll
 اما ملف ال tempfile فهو لتجنب الايقاف المفاجئ عند تشغيل البرنامج ....لانه مثلا عندما تقوم بحذف ملف او اضافة ملف جديد او حفض القائمة و البرنامج قيد التشغيل يتوقف البرنامج و يعطي رسالة تفيد ان الملف الذي تقوم بالتعديل علية مستعمل من بروسس اخر و يتوقف البرنامج كليا....فاستحدت التومب فايل للعمل عليه و عند فتح البرنامج مجددا يتم اعادة تسميتة و من ثم حذفه
و لتعم الفائدة اكثر سابسط لك
نفترض انه لديك قائمة المفضلة تعرضها في ليست بوكس او ليست فيو او اي شيء اخر تحفضها في تكست في الريسورس باسم المفضلة 1 او temp او اي مسمى اخر
وعند استدعاءه يقوم البرنامج باعادة تسمية المفضلة 1 ب المفضلة و يحذف المفضلة 1 وهكذا دوليك يعني تصدير المعلومات لتكست المفضلة 1 و عند الاستراد تؤخذ المعلومات منها بعد اعادة تسميتها و حذفها كل ذلك لتفادي خطاء البروسس الذي ذكرته لك
ارجو اني تمكنت من التوضيح بطرقة يسهل فهمها