تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف أجعل البرنامج يفتح نموذج واحد فقط
#31
(05-02-21, 03:47 PM)سعود كتب :
اخي الكريم هل نسيت تفعيل الخيار المشار اليه بالسهم؟!
هذا هو اللذي يمنع التشغيل المكرر لنفس التطبيق.

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


تنبيه!
اذا لم تكن بحاجة لاطار الـ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 و عند الاستراد تؤخذ المعلومات منها بعد اعادة تسميتها و حذفها كل ذلك لتفادي خطاء البروسس الذي ذكرته لك
ارجو اني تمكنت من التوضيح بطرقة يسهل فهمها
الرد }}}
تم الشكر بواسطة: سعود
#32
بصراحة انشغلت بانشاء مثال جديد و حرصت على ان يكون مميز قدر المستطاع
اسقط ملفات على ايقونة البرنامج وايضا على الليست بوكس.
هذا المثال هو اقصى شيء اقدر عليه يتم الحفظ في ملف mysettings بمعنى لو تم نقل او نسخ البرنامج ستطير كل المعلومات
mp3 wav wma
player
جرب تشغيل البرنامج مرة اخرى بكل الطرق ستجد مايسرك
واعتذر عن التعديل على مشروعك للعلل اللتي ذكرتها لك.
والسلام عليكم و رحمة الله و بركاته


الملفات المرفقة
.rar   Mp3Player.rar (الحجم : 22.77 ك ب / التحميلات : 14)
الرد }}}
تم الشكر بواسطة: asmarsou
#33
(05-02-21, 07:37 PM)سعود كتب :
بصراحة انشغلت بانشاء مثال جديد و حرصت على ان يكون مميز قدر المستطاع
اسقط ملفات على ايقونة البرنامج وايضا على الليست بوكس.
هذا المثال هو اقصى شيء اقدر عليه يتم الحفظ في ملف mysettings بمعنى لو تم نقل او نسخ البرنامج ستطير كل المعلومات
mp3 wav wma
player
جرب تشغيل البرنامج مرة اخرى بكل الطرق ستجد مايسرك
واعتذر عن التعديل على مشروعك للعلل اللتي ذكرتها لك.
والسلام عليكم و رحمة الله و بركاته

الف شكر لك اخي الكريم على المجهود
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 360 03-11-23, 06:50 AM
آخر رد: Adel27213
  [سؤال] عمل البرنامج على أى resoluation dr.programming 0 244 02-11-23, 12:08 AM
آخر رد: dr.programming
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 326 30-10-23, 04:17 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم