منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - فتح صورة من خلال openfiledialog وعرضها في listview

السلام عليكم

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Simo1991

Simo1991