تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى ListView
#1
السلام عليكم ورحمة الله
ارجو المساعدة فى عمل ListView
عندى مجلد معين مثلا New Folder
هذا المجلد يحتوى على 2 ملف TXT و 2 ملف PNG و 2 ملف MP3 و المجموع 6 ملفات
اريد ايجاد هذه الملفات ثم تصنيف كل نوع مع بعض وعرضه فى ListView على شكل مجموعات وكل ملف ياخذ ايقونته مثل الصورة

[ATTACH=CONFIG]2129[/ATTACH]
وعند الضغط المذدوج على اى [SIZE=3]ملف يتم فتحه وعند الضغط كليك يمين تظهر قائمة بها حذف نسخ قص اعادة تسمية [/SIZE]
وجزاكم الله خيرا


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

تفضل اخي العزيز

صورة البرنامج



بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خير واسئل الله لك التوفيق والسداد
ولى بعض الاستفسارات
هل يمكننى ادراج اكسبلورر يعنى متصفح ملفات مثل الى بالويندوز ادرجه داخل المشروع ومنها اتحكم فى ظهور الملفات لتظهر بهذا الشكل
[ATTACH=CONFIG]2161[/ATTACH]
هذا الجزء المحدد بالون الاحمر
المشروع الى حدرتك عملتهولى ممتاز جدا جدا ومتعوب عليه
ولاكنى اريد اضافة اشياء كثيرة
لو تمكنت من ادراج اكسبلورر متصفح الملفات يكون افضل وجزاك الله خير


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

تفضل البرنامج في المرفقات

صورة البرنامج



ملاحظة: كود جلب ايقونة المجلد (Folder) منقول من منتدى اجنبي وكان بالسي شارب ولم يكن يعمل بشكل جيد لكن الحمد لله عدلته وحولته الى vb


تم تعديل البرنامج ليشمل حذف ,قص ,اعادة تسمية مجلد ولم اجد نسخ مجلد في الفئة Directory

بالتوفيق ان شاءالله


الملفات المرفقة
.rar   ListView_ItemsWithIcon.rar (الحجم : 114.95 ك ب / التحميلات : 38)
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

استخدم هذه الدالة لنسخ المجلد:

PHP كود :
Private Sub copydir(ByVal source As StringByVal dest As String)
        
Dim dinfo As New DirectoryInfo(dest)
        If (
Not dinfo.ExistsThen
            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(destf.Name), False)
        
Next

        
For Each dd As DirectoryInfo In d
            copydir
(Path.Combine(sourcedd.Name), Path.Combine(destdd.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).Textf.PP info.Extension)
            
MessageBox.Show("تم النسخ الى المسار التالي" f.PP)
        Else
            
copydir(Application.StartupPath "/sajad/" ListView1.SelectedItems(0).Textf.PP
        End 
If 

بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#6
جزاك الله خير وجعله فى موازين حسناتك يوم تلقاه
هل من الممكن جعل النسخ والقص الى الذاكرة بحيث اذهب الى اى مكان واعمل لصق
والرموز ما زالت مشوهة وغير واضحة
وارجو منك توضيح

ali.alfoly كتب :جزاك الله خير واسئل الله لك التوفيق والسداد
ولى بعض الاستفسارات
هل يمكننى ادراج اكسبلورر يعنى متصفح ملفات مثل الى بالويندوز ادرجه داخل المشروع ومنها اتحكم فى ظهور الملفات لتظهر بهذا الشكل
[ATTACH=CONFIG]2161[/ATTACH]
هذا الجزء المحدد بالون الاحمر
المشروع الى حدرتك عملتهولى ممتاز جدا جدا ومتعوب عليه
ولاكنى اريد اضافة اشياء كثيرة
لو تمكنت من ادراج اكسبلورر متصفح الملفات يكون افضل وجزاك الله خير
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

استبدل كود ال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 

بالتوفيق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#8
جزاك الله خير
والله بحبك فى الله
واسئل الله العظيم ان يجمعنا بهذا الحب فى ظله يوم لا ظل الا ظله
الرد }}}}
تم الشكر بواسطة:
#9
جزاك الله خير
والله بحبك فى الله
واسئل الله العظيم ان يجمعنا بهذا الحب فى ظله يوم لا ظل الا ظله
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم

آمين

بارك الله فيك بالتوفيق ان شاءالله

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية فلترة ليست فيو vb net Multiple Column Filter listview الماجيك مسعد 5 63 منذ 5 ساعة مضت
آخر رد: مساعدة
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 51 اليوم, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 36 أمس, 06:02 PM
آخر رد: CoderMM
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 135 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 1 42 20-01-17, 11:00 PM
آخر رد: مساعدة
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 38 19-01-17, 09:16 PM
آخر رد: ahmed.nabil
  [VB.NET] مساعدة لنشر موقعي safa 1 46 18-01-17, 11:11 AM
آخر رد: أبو عمر
  كود الجمع التلقائي فى listview riad21 1 63 17-01-17, 10:51 PM
آخر رد: مساعدة
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 119 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 163 13-01-17, 10:44 AM
آخر رد: 0theghost0

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


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