تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] فتح صورة من خلال openfiledialog وعرضها في listview
#1
السلام عليكم

أريد فتح صورة من خلال openfiledialog وعرضها في listview عملت محاولة بس ما اشتغلت

كود :
Dim ofd As New OpenFileDialog
       ofd.Multiselect = True
       ofd.Filter = "Image Files (*.png *.jpg *.bmp) |*.png; *.jpg; *.bmp|All Files(*.*) |*.*
       ListView1.View = View.Details
       If ofd.ShowDialog() = DialogResult.OK Then

           ListView1.Items.Add(ofd.FileNames)

       End If


ممكن مساعدة جزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
(05-11-18, 06:35 PM)سrmnr كتب : يجب ربط listview بأداة imagelist لأن اللسيت لا تعرض الصور مباشرة مثل datagridview
بعدها انظر للتعديل 
كود :
Dim ofd As New OpenFileDialog
ofd.Multiselect = True
ofd.Filter = "Image Files (*.png *.jpg *.bmp) |*.png; *.jpg; *.bmp|All Files(*.*) |*.*"

ListView1.View = View.Details
ListView1.LargeImageList = Me.ImageList1
ListView1.SmallImageList = Me.ImageList1

If ofd.ShowDialog() = DialogResult.OK Then

   For Each fn As String In ofd.FileNames

       Dim imagename As String = IO.Path.GetFileName(fn)

       Me.ImageList1.Images.Add(imagename, Image.FromFile(fn).Clone)

       Dim m As New ListViewItem(imagename)
       m.ImageKey = imagename
       ListView1.Items.Add(m)

   Next

End If

شكرا أخي على الجواب لاكن المشكلة أريد أن أترك للمستخدم الحرية في اختيار مكان الصورة
في Listview يظهر فقط رابط الصورة أسف لأني ما وضحت جيدا هدا الأمر في سؤالي
لقد اشتغل الموضوع
كود :
Dim ofd As New OpenFileDialog
       ofd.Multiselect = True

       ofd.Filter = "Image Files (*.png *.jpg *.bmp) |*.png; *.jpg; *.bmp|All Files(*.*) |*.*"
       If ofd.ShowDialog() = DialogResult.OK Then
           ofd.FileNames.Count()
           For i As Integer = 0 To ofd.FileNames.Count() - 1
               ListView1.Items.Add(ofd.FileName)
           Next
       End If
سؤالي الان كيف يمكن أن أحدد بالضبط column لي راح يكتب فيه الرابط
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 0 16 أمس, 08:28 PM
آخر رد: Fransesco
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 99 20-02-19, 04:01 PM
آخر رد: elgokr
  عرض صورة في الكريستال ريبورت ولكنها موجوده في جدول منفصل Emam emam 8 199 07-02-19, 04:34 PM
آخر رد: عبد العزيز البسكري
  عرض صورة في الكريستال ريبورت Emam emam 11 304 02-02-19, 10:42 PM
آخر رد: Emam emam
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 273 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  مشكلة برفع صورة من خلال الويب براوزر ابو روضة 7 228 23-01-19, 07:12 PM
آخر رد: elgokr
  [سؤال] اريد الترجمة من خلال الفيجوال بيسك هل هذا متاح ؟ dametucorazon 2 88 22-01-19, 01:06 AM
آخر رد: dametucorazon
  مسح صورة من الملف الموجود في البرنامج hassan 14 23 772 08-01-19, 01:50 PM
آخر رد: hassan 14
  [سؤال] أستفسار بخصوص صورة GIF baqaa8 2 146 29-12-18, 01:24 AM
آخر رد: a.wagdi
Smile الوظيفة OpenFileDialog تعمل مرة واحدة وعند تكرارها يتوقف البرنامج Mohamed Gado 3 137 28-12-18, 10:41 PM
آخر رد: عبد العزيز البسكري

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


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