السلام عليكم
عندي كود للبحث عن الملفات في الجهاز وهي تعمل جيدا
ولكن المشكلة هي انني عندما أعمل ترتيب للـ Items في Listview وابحث في المرة الثانية "تتلخبط الدنيا"
أمل النظر في المثال وستلاحظون انه عندما لا اقوم باي عملية ترتيب فان البرنامج لا يعطي أي خطأ وعندما اقوم بعملية ترتيب وبعد ذلك أبحث
تقع المشاكل الا عندما اقوم بالترتيب حسب الاسم
اتمنى ان اجد عندكم الحل الناجع
Nothing is impossible, the word impossible itself says that: I M - Possible
السلام عليكم
شكرا لك جزيلا أخ Eng. Usama El-Mokadem
لقد ساعدتني حقا
حسن في بعض الاحيان لا احب كلمة لكن لان سؤالي قد اجيب عليه شكرا جزيلا أخ Eng. Usama El-Mokadem
ولكن هل لك ان تشرح لي كيف ولماذا لم يحصل ذلك الخطا وما الذي تغير عندما استعملنا Dim LI As ListItem
هناك امر أخر كيف اغير subitems بهذه الطريقة لانني حاولت ان اغير subitem في listview كالبحث في text files عن كلمة معينة
وعند ايجادها يكتب "found" او "not found"
تبقى نفس المشكلة كما في السابق فهي تعمل جيدا ولكن عند الترتيب تتلخبط
فانا استعمل شيئا كهذا
For i = 1 To ListFiles.ListItems.Count FilePath = ListFiles.ListItems.Item(i).ListSubItems.Item(1) If instr(FilePath, aStinghere, CaseMatch) Then ListFiles.ListItems.Item(i).ListSubItems.Add 4, , "Found" 'Exist Else ListFiles.ListItems.Item(i).ListSubItems.Add 4, , "Not Found" 'Not Exist End If next
وعندي column index هو 4 وindex 2 يحمل مسار الملف كاملا
وقد قد حاولت شيئا مثل هذا
Set LSI = ListFiles.ListItems.Item(1).ListSubItems.Item(4) LSI.Text = "Found" 'Exist
شكرا جزيلا على المساعدة وشكر خاص للاخ Eng. Usama El-Mokadem
شكرا لكم
لقد وجدت الحل كان علي ان احاول هذا
Dim LIS As ListItem Set LIS = ListFiles.ListItems(i) LIS.SubItems(4) = "Found" 'Exist
هذا الموضوع مغلق.