+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] فتح صورة من خلال openfiledialog وعرضها في listview (/showthread.php?tid=27292)
فتح صورة من خلال openfiledialog وعرضها في listview - Simo1991 - 05-11-18
السلام عليكم
أريد فتح صورة من خلال 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ممكن مساعدة جزاكم الله خيرا
RE: فتح صورة من خلال openfiledialog وعرضها في listview - Simo1991 - 05-11-18
(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