+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 و DataGridView (/showthread.php?tid=21968)
محتاج كود لOpenFileDialog و DataGridView - lemozza - 02-10-17
انا محتاج كود اختار اكتر من صوره بــ OpenFileDialog
multiselect
ثم اضيف الصور فى DataGridView
مع العلم ان فى صور موجوده من قبل فى datagridview
RE: محتاج كود لOpenFileDialog و DataGridView - سعود - 02-10-17
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DataGridView1.ColumnCount = 2
Dim colimage As New DataGridViewImageColumn
Me.DataGridView1.Columns.Add(colimage)
Me.DataGridView1.Columns(0).HeaderText = "إسم الصورة"
Me.DataGridView1.Columns(1).HeaderText = "مسار الصورة"
Me.DataGridView1.Columns(2).HeaderText = "الصورة"
Me.DataGridView1.Columns(2).Width = 120
Me.DataGridView1.Columns(1).Width = 200
Dim o As New OpenFileDialog
o.Multiselect = True
If o.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each h As String In o.FileNames
Dim im As Image = Image.FromFile(h.ToString)
Me.DataGridView1.Rows.Add(o.SafeFileName, o.FileName, im)
Next
End If
End Sub
RE: محتاج كود لOpenFileDialog و DataGridView - lemozza - 02-10-17
الف شكر اخى سعود وبارك الله فيك
RE: محتاج كود لOpenFileDialog و DataGridView - سعود - 02-10-17
فيه خطا بسيط
التعديل
PHP كود :
Dim o As New OpenFileDialog
o.Multiselect = True
If o.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each f As String In o.FileNames
If IsValidImage(f.ToString) Then
Dim dr As DataRow = dt.NewRow
dr(1) = IO.Path.GetFileName(f)
dr(2) = f
dr(3) = filesize(f)
dr(4) = GetFileExtension(IO.Path.GetExtension((f)))
dr(5) = My.Computer.FileSystem.ReadAllBytes(f)
dt.Rows.Add(dr)
da.Update(dt)
End If
Next
End If
توجد دوال بالموديول