+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة فى ListView (/showthread.php?tid=8151)
مساعدة فى ListView - ali.alfoly - 26-03-13
السلام عليكم ورحمة الله
ارجو المساعدة فى عمل ListView
عندى مجلد معين مثلا New Folder
هذا المجلد يحتوى على 2 ملف TXT و 2 ملف PNG و 2 ملف MP3 و المجموع 6 ملفات
اريد ايجاد هذه الملفات ثم تصنيف كل نوع مع بعض وعرضه فى ListView على شكل مجموعات وكل ملف ياخذ ايقونته مثل الصورة
[ATTACH=CONFIG]2129[/ATTACH]
وعند الضغط المذدوج على اى [SIZE=3]ملف يتم فتحه وعند الضغط كليك يمين تظهر قائمة بها حذف نسخ قص اعادة تسمية [/SIZE]
وجزاكم الله خيرا
مساعدة فى ListView - Sajad - 26-03-13
السلام عليكم
تفضل اخي العزيز
صورة البرنامج
بالتوفيق ان شاءالله
تفضل اخي العزيز
صورة البرنامج
بالتوفيق ان شاءالله
مساعدة فى ListView - ali.alfoly - 27-03-13
جزاك الله خير واسئل الله لك التوفيق والسداد
ولى بعض الاستفسارات
هل يمكننى ادراج اكسبلورر يعنى متصفح ملفات مثل الى بالويندوز ادرجه داخل المشروع ومنها اتحكم فى ظهور الملفات لتظهر بهذا الشكل
[ATTACH=CONFIG]2161[/ATTACH]
هذا الجزء المحدد بالون الاحمر
المشروع الى حدرتك عملتهولى ممتاز جدا جدا ومتعوب عليه
ولاكنى اريد اضافة اشياء كثيرة
لو تمكنت من ادراج اكسبلورر متصفح الملفات يكون افضل وجزاك الله خير
مساعدة فى ListView - Sajad - 27-03-13
السلام عليكم
تفضل البرنامج في المرفقات
صورة البرنامج
ملاحظة: كود جلب ايقونة المجلد (Folder) منقول من منتدى اجنبي وكان بالسي شارب ولم يكن يعمل بشكل جيد لكن الحمد لله عدلته وحولته الى vb
تم تعديل البرنامج ليشمل حذف ,قص ,اعادة تسمية مجلد ولم اجد نسخ مجلد في الفئة Directory
بالتوفيق ان شاءالله
مساعدة فى ListView - Sajad - 27-03-13
السلام عليكم
استخدم هذه الدالة لنسخ المجلد:
PHP كود :
Private Sub copydir(ByVal source As String, ByVal dest As String)
Dim dinfo As New DirectoryInfo(dest)
If (Not dinfo.Exists) Then
Directory.CreateDirectory(dest)
End If
dinfo = New DirectoryInfo(source)
Dim d() As DirectoryInfo = dinfo.GetDirectories()
Dim finfo As FileInfo() = dinfo.GetFiles()
For Each f As FileInfo In finfo
f.CopyTo(Path.Combine(dest, f.Name), False)
Next
For Each dd As DirectoryInfo In d
copydir(Path.Combine(source, dd.Name), Path.Combine(dest, dd.Name))
Next
End Sub
والاستدعاء يكون بالCop هكذا:
PHP كود :
Dim f As New CopyTo()
f.ShowDialog()
If ListView1.SelectedItems(0).Text.Contains(".") Then
Dim info As New FileInfo(ListView1.SelectedItems(0).Text)
File.Copy(Application.StartupPath & "/sajad/" & ListView1.SelectedItems(0).Text, f.PP & info.Extension)
MessageBox.Show("تم النسخ الى المسار التالي" & f.PP)
Else
copydir(Application.StartupPath & "/sajad/" & ListView1.SelectedItems(0).Text, f.PP
End If
بالتوفيق ان شاءالله
مساعدة فى ListView - ali.alfoly - 28-03-13
جزاك الله خير وجعله فى موازين حسناتك يوم تلقاه
هل من الممكن جعل النسخ والقص الى الذاكرة بحيث اذهب الى اى مكان واعمل لصق
والرموز ما زالت مشوهة وغير واضحة
وارجو منك توضيح
ali.alfoly كتب :جزاك الله خير واسئل الله لك التوفيق والسداد
ولى بعض الاستفسارات
هل يمكننى ادراج اكسبلورر يعنى متصفح ملفات مثل الى بالويندوز ادرجه داخل المشروع ومنها اتحكم فى ظهور الملفات لتظهر بهذا الشكل
[ATTACH=CONFIG]2161[/ATTACH]
هذا الجزء المحدد بالون الاحمر
المشروع الى حدرتك عملتهولى ممتاز جدا جدا ومتعوب عليه
ولاكنى اريد اضافة اشياء كثيرة
لو تمكنت من ادراج اكسبلورر متصفح الملفات يكون افضل وجزاك الله خير
مساعدة فى ListView - Sajad - 28-03-13
السلام عليكم
استبدل كود الcopy بهذا الكود
PHP كود :
For Each info As FileInfo In dinfo.GetFiles()
If info.Exists And info.Name = ListView1.SelectedItems(0).Text Then
Dim s As New System.Collections.Specialized.StringCollection()
s.Add(info.FullName)
Clipboard.SetFileDropList(s)
End If
Next
For Each d As DirectoryInfo In dinfo.GetDirectories()
If d.Exists And d.Name = ListView1.SelectedItems(0).Text Then
Dim s As New System.Collections.Specialized.StringCollection()
s.Add(d.FullName)
Clipboard.SetFileDropList(s)
End If
Next
بالتوفيق ان شاءالله
مساعدة فى ListView - ali.alfoly - 29-03-13
جزاك الله خير
والله بحبك فى الله
واسئل الله العظيم ان يجمعنا بهذا الحب فى ظله يوم لا ظل الا ظله
مساعدة فى ListView - ali.alfoly - 29-03-13
جزاك الله خير
والله بحبك فى الله
واسئل الله العظيم ان يجمعنا بهذا الحب فى ظله يوم لا ظل الا ظله
مساعدة فى ListView - Sajad - 29-03-13
السلام عليكم
آمين
بارك الله فيك بالتوفيق ان شاءالله