09-01-21, 06:54 AM (آخر تعديل لهذه المشاركة : 11-05-21, 12:49 PM {2} بواسطة سعود.)
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
ميزة هذه الفكرة انها من دون قاعدة بيانات فقط الحفظ في الـ mysettings و اكيد انه في الريجستري لكن ليس مباشر من اكوادنا بل من بيئة التطوير نفسها و هي مربوطة بالمسار فان تغير المسار يتم فقد كل البيانات.
1 - الفكرة ان لكل قاريء او حتى فنان ملفات صوتية تخصه
تحتاج اضافة مجلد بالنقر على زر اضافة قاريء و انظر النتيجة.
المشروع مفتوح المصدر.
2 - التحديث يخص حفظ ماتم اختياره من الادوات و ايضا حفظ آخر لقطة في اداة wmp
يعني اذا نقرت زر الايقاف المؤقت بالاداة فسيتم حفظ المدة المحددة(الصراحة مدري شلون اوضح بالكلام)
لكن واضحة من المثال وهي تخص حدث PlayStateChange
3 -
الانتقال التلقائي من سورة لاخرى وعند الرغبة بالتوقف انقر زر الايقاف
لان لدى مجلد به سور القرءان ولما بختاره لا يجلب اى شيئ .
ممكن توضح لو سمحت ؟
اول شيء يخزن مسار المجلد في الـMysettings في قائمة Myfolder
ضمن زر جديد مكتوب الكود:
PHP كود :
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then My.Settings.myfolder.Add(fbd.SelectedPath) My.Settings.Save() gd() End If
اجراء gd هو اللي يجلب المجلدات اللي اخترتهم وخزنتهم في Myfolder ضمن Mysettings
PHP كود :
Private Sub gd() lst.Clear() lst2.Clear() ListBox1.Items.Clear() ComboBox1.Items.Clear() If My.Settings.myfolder.Count > 0 Then For Each h As String In My.Settings.myfolder If h.Trim <> "" Then ComboBox1.Items.Add(IO.Path.GetFileName(h)) lst.Add(h) End If Next End If Dim t As String = My.Settings.Appdes If t.Trim <> "" Then lbltitle.Text = t End If End Sub
اول شيء يخزن مسار المجلد في الـMysettings في قائمة Myfolder
ضمن زر جديد مكتوب الكود:
PHP كود :
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then My.Settings.myfolder.Add(fbd.SelectedPath) My.Settings.Save() gd() End If
اجراء gd هو اللي يجلب المجلدات اللي اخترتهم وخزنتهم في Myfolder ضمن Mysettings
PHP كود :
Private Sub gd() lst.Clear() lst2.Clear() ListBox1.Items.Clear() ComboBox1.Items.Clear() If My.Settings.myfolder.Count > 0 Then For Each h As String In My.Settings.myfolder If h.Trim <> "" Then ComboBox1.Items.Add(IO.Path.GetFileName(h)) lst.Add(h) End If Next End If Dim t As String = My.Settings.Appdes If t.Trim <> "" Then lbltitle.Text = t End If End Sub
انا لدى مجلد به كل سور القرءان ولما بختاره من زر جديد يجلب فقط اسم المجلد داخل الكومبوبوكس