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

تحميل الصور في imagelist عن طريق الكود

بدأه raadhussein في 16 مايو 2013 · 2 رد · 901 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا عندي برنامج يحمل الصور من الماسح الضوئي ويعرضها في listview فاريد كود يقوم بتحميل هذه الصور بعد خزنها الى imagelist 

لغرض عرضها بشكل اتوماتيكي في listview

 

وكود خزن الصورة يعمل بشكل صحيح وهو:

 

 

ImgEdit1.SaveAs App.Path & "\" & "pic" & Year(Date) & "\" & A & ".jpg"
 
وكود تحميل الصورة في imagelist هو:
 
C = "pic" & Year(Date)
B = App.Path & "\" & C & "\" & A & ".jpg"
A1 = CStr(A)
ImageList1.ListImages.Add , "A1", LoadPicture( B)
 

والبرنامج موجود يرحى مساعدتي قدر الأمكان مع العلم ان هذا الموضوع هو جديد ولاتوجد فيه تكرار للمواضيع بالنسبة للمنتديات

 

Picture to imagelist.rar

تم تعديل هذه المشاركة بواسطة raadhussein في 16 مايو 2013 في 23:59

#2

السلام عليكم

ماشاء الله عدد المشاهدات عالي لكن لايوجد ولارد 

اين ذهب الخبراء؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#3

السلام عليكم

بعد جهد كبير في المنتديات الأجنبية تم ايجاد الحل لكن لم يكن صحيح 100% لكن بعد تعديل جزء من الكود اصبح يعمل وهو كل الأتي :

 

 

Dim i As Integer
Dim strTmp As String
Dim A As Long
A = 0
i = 1
strTmp = Dir$(App.Path & "\" & "pic" & Year(Date) & "\" & "*.jpg*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)
 
Do While LenB(strTmp) > 0
strTmp = Dir$
If strTmp <> "" Then
ImageList1.ImageHeight = 75
ImageList1.ImageWidth = 75
ImageList1.ListImages.Add Index:=i, Key:=strTmp, Picture:=LoadPicture(App.Path & "\" & "pic" & Year(Date) & "\" & strTmp)
End If
 
i = i + 1
 
Loop
    Set ListView1.Icons = ImageList1
    Set ListView1.SmallIcons = ImageList1
 
    ListView1.View = lvwSmallIcon
    ListView1.HideColumnHeaders = True
    ListView1.FullRowSelect = False
    ListView1.Arrange = lvwAutoTop
    
For i = 1 To ImageList1.ListImages.Count
ListView1.ListItems.Add , , ImageList1.ListImages.Item(i).Key, , ImageList1.ListImages.Item(i).Index
Next i
 ويمكن اضافة هذا الكود في دالة حفظ الصورة
وكانت اضافة هذا الموضوع هو للمصلحة العامة وتحياتي لكل من فكر او حاول بالمساعدة

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