سؤال ال List Veiw و Image List

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

1- أدرج أداة الليست فيو والايميج ليست

2- اضغط كليك يمين على الليست فيو واختر Properties

3- اختر التبويب Image Lists

4- ستجد ثلاثة صناديق مركبة حدد بها اسم الايميج ليست وليكن ImageList1

5- اضغط كليك يمين على اداة الايمبج ليست

6- من التبويب Images قم بادخال الايكونات المطلوبة لكن ستجد Text لخاصية تسمى Key يجب وضع قيمة غير متكررة لكل أيكونة داخل هذا المربع لانه سيكون مرشدنا الى الايكونة المطلوبة

لنفرض انك وضعت أيكونتان داخل الايميج ليست وحددت الخاصية Key لهما هى A , B ثم أردنا اضافة العنصران "ArabTeam" , "Visual Basic" الى الليست فيو وأردنا اعطاء كل منهما ايكونة , نكتب الكود

Private Sub Form_Load()
ListView1.ListItems.Add , , "ArabTeam", ImageList1.ListImages.Item(1).Key
ListView1.ListItems.Add , , "Visual Basic", ImageList1.ListImages.Item(2).Key
End Sub

بنفس الطريقة مع باقى العناصر

اذا لم استطع التوضيح أرجو اخبارى :rolleyes:

نورت الصفحة اخي GHOST2010

بس انا اريد الايقونات التى فى الـ ImageList1 تأخذ شكل

الايقونات التى احددها مثلا وضعت شكل ملف مضغوط ثم اردت ان تظهر هذه الايقونه

بس للملفات المضغوطه على الـ ListView1 وهكذا بقية الامتدادت تضهر على ماهو محدد فى الـ ImageList1

وتقبل تحياتي

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

يجب عمل دالة لمعرفة امتداد الملف أولاً ثم يتم تحديد الايكونة على حسب الامتداد وستكون الدالة كالتالى

Private Function GetExt(strFile As String) As String
Dim S$, i%
i =InstrRev(strFile, ".")
S =Right(strFile, Len(strFile) - i)
GetExt =S
End Function

ثم كود اضافة الملف بأيكونة الملف المضغوط سيكون كالتالى بفرض أن الاندكس الخاص بالايكونة هو 1

ListView1.ListItems.Add , , "Compressed File", ImageList1.ListImages.Item(1).Key

حاول فهم الكود جيداً وستجد ماتريد ان شاء الله وأنا تحت أمرك فى أى أسئلة :rolleyes:

هكذا النشاما ولله

شكرا على ردودك الزينه اخي

وبجرب وإن شاء الله تكون تمام

اخي GHOST2010 جربت الطرقه

بس ماضبطت فممكن تعطينى مثال

تظهر الملفات المضغوطه على شكل ايقونه حددها انت على image liوملفات الـ

exe تظهر بأيقونه اخري وملفات الـ bmp بأيقونه اخري على الـ listveiw

ولك جزيل الشكر وتقبلوا تحياتى

جارى تحضير المثال :rolleyes:

جرب هذا المثال وأخبرنى بالنتيجة :rolleyes:

اقتباس

هكذا النشاما ولله

يعنى ايه النشاما؟ :unsure:

Image according to extension.rar

تسلم اخوي GHOST2010

والعفو على الرد المتأخر

بس ولله ماكنت فى البلد كان معاي بطولة تايكوندوا

وتسلم إيدك والله يخليك لينا

تحياتي لك

واضح انك بتحب العنف زيى

اصل اخوك كييف كونغ فو لكن للاسف اول بطولة اشتركت فيها قبلها باسبوع رجلى اتكسرت وسبت اللعبة :(

ان شاء الله تكون حققت المركز الاول :rolleyes:

ماقولتليش يعنى ايه النشاما؟

يالله اخوي واصل لعبتك

او مره حتنظرب بس الثانيه بكون تمام

ع كلا خويك لعب على الفضيه ونهزم بس مو بقاضيه وبعد اسبوعين بطولة الشباب وإن شاء الله اتوفق

ياسيدي النشاما عندنا يعني واحد مقدام شهم

تمام اخوي .

يالله تشرف بك

تسلم إيد إلى عملت المثال

بس الفكره كانت ثانيه اخي

انا الى كنت اريده

هو إنى رابط الـلست فيو بالونسوك لكي تظهر ملفات الجهاز المرطبت بها عبر الشبكه

إذا كيف اجعل الملفات إلى تظهر فى الست فيو مثل مل ايقونات المحدده على إيميج لست

وارجوا السماحة

والتوفيق فى توضيح ما ابهم عني

اقتباس

ماقولتليش يعنى ايه النشاما؟

اي يامحمد يامهدي .. اهي ده .. كلمه يمنيه صغيره تعجز في فهمها ..

النشامه معناها الرجوله .. او الشهامه .. :D

ويشتق منها مسمى .. *** ( النشمي والنشمية :)**** ,,