[lemozza]

انا محتاج كود اختار اكتر من صوره بــ OpenFileDialog 

multiselect

ثم اضيف الصور فى DataGridView

مع العلم ان فى صور موجوده من قبل فى datagridview

[سعود]

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 


[lemozza]

الف شكر اخى سعود وبارك الله فيك

[سعود]

فيه خطا بسيط
التعديل

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 


توجد دوال بالموديول