الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اتعامل مع ال Collection في اللست بوكس

مغلق
بدأه rcweb في 20 أغسطس 2007 · 5 رد · 520 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

الدالة GetAllPictureFiles تعيد اسماء ملفات الصور في مجلد محدد وهي تعيدها كمصفوفة اريد ان احمل اسماء الصور في المجلد الى قائمة List Box

هذا الكود كاملا

GetAllPictureFiles - The list of all image files in a directory tree

' Returns a collection with the names of all the image

' files in a directory or a directory tree

' this includes all the image types that can be loaded into a PictureBox control

'

' NOTE: Uses the GetFiles, GetDirectories, and GetAllFiles routines

Function GetAllPictureFiles(ByVal path As String, _

Optional RecurseDirs As Boolean) As Collection

Set GetAllPictureFiles = GetAllFiles(path, _

"*.bmp;*.dib;*.gif;*.jpg;*.jpeg;*.wmf;*.emf;*.ico;*.cur", RecurseDirs)

End Function

للاسف خبرتي محدودة في التعامل مع المصفوفات والمجموعات فهل اجد عندكم المساعدة ؟

#2

الـ Collection مش مصفوفة.

لو فرضنا أن أسم الـ Collection اللى جمعنا فيها المسارات هو colPictures و أن أسم الـ List هو lstPictures أستعمل :

Dim intCount As Integer

For intCount = 1 To colPictures.Count
	lstPictures.AddItem colPictures(intCount)
Next

إقرأ معى:

melal.jpg

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

#3

مشكور اخوي جزاك الله كل خير

ولكن اخي ماعلاقة الكود الذي كتبته في الدالة التي كتبتها انا

لان هدفي هو استرجاع اسماء ملفات الصور في ال List Box

اقصد كيف استفيد من دالة GetAllPictureFiles ؟

#4 
Dim colPictures As New Collection
Dim intCount As Integer

Set colPictures = GetAllPictureFiles()

For intCount = 1 To colPictures.Count
	lstPictures.AddItem colPictures(intCount)
Next

إقرأ معى:

melal.jpg

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

#5

مشكور اخوي

جزاك الله كل خير

الا انه يعطيني خطأ في السطر

Set GetAllPictureFiles = GetAllFiles(path, _

في الدلة نفسها

اعتقد لابد من تعريف GetAllFiles كدالة اخرى ايضا

#6

أكيد لأنه واضح أنه دى الدالة اللى بتقوم بالعمل الفعلى , من المصدر اللى أنت جايب منه الكود أنسخ الدالة GetAllFiles و كل ما تحتاجة للعمل.

إقرأ معى:

melal.jpg

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…