02-10-17, 02:05 AM
انا محتاج كود اختار اكتر من صوره بــ OpenFileDialog
multiselect
ثم اضيف الصور فى DataGridView
مع العلم ان فى صور موجوده من قبل فى datagridview
02-10-17, 02:05 AM
02-10-17, 02:30 AM
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
02-10-17, 02:41 AM
02-10-17, 07:20 PM
فيه خطا بسيط
التعديل
توجد دوال بالموديول
التعديل
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
توجد دوال بالموديول