[Simo1991]

السلام عليكم

أريد فتح صورة من خلال 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

ممكن مساعدة جزاكم الله خيرا

[Simo1991]

(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 لي راح يكتب فيه الرابط