تقييم الموضوع :
  • 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 لي راح يكتب فيه الرابط
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يجبرني البرنامج على حفظ صورة الموظف!! أبووسم 3 105 10-12-18, 11:49 PM
آخر رد: ahmadpal
  [سؤال] كيف أقوم بنسخ كلام عربي او انجليزي من صورة من خلال VB.net dametucorazon 4 118 04-12-18, 12:06 PM
آخر رد: dametucorazon
  ادراج صورة في الكرستال ريبورت المتألق9 2 104 02-12-18, 03:37 PM
آخر رد: المتألق9
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 131 01-12-18, 12:48 AM
آخر رد: حريف برمجة
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 105 30-11-18, 10:36 PM
آخر رد: Rabeea Qbaha
  [VB.NET] كيف يمكن تحديد كلمة بلون داخل listview XBOOBX 1 78 30-11-18, 06:28 PM
آخر رد: XBOOBX
  التننقل خلال الداتا جريد makky 2 107 28-11-18, 02:54 PM
آخر رد: makky
  كود ينفذ من خلال لوحة المفاتيح +yassen+ 6 180 24-11-18, 04:32 PM
آخر رد: +yassen+
  سؤال في ListView Emam emam 4 99 22-11-18, 04:47 PM
آخر رد: Emam emam
  [سؤال] كيف احفظ صورة من picturebox1 الى مجلد ضمن مسار البرنامج بدون ظهور مربع حوار mh66 5 147 16-11-18, 07:53 PM
آخر رد: mh66

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


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