السلام عليكم ورحمة الله وبركاته
اذا تقصد مجلد خاص تحفظ فيه صور ,, اول شي اعمل عمود يعرض الصور
عملتلك هذا الكود فقط للتوضيح كيف ممكن تحفظ الصور بمجلد نفس مسار البرنامج الرئيسي
حاول تفهم الكود وتطبق الفكرة حتى اذا كانت صورة وحده
ممكن اضافة عمود الصور بهذا الشكل
كود :
DataGridView1.Columns.Add("id", "ID") 'غير مهم
Dim C As New DataGridViewImageColumn With {.Name = "Image", .HeaderText = "Images", _
.ImageLayout = DataGridViewImageCellLayout.Zoom}
DataGridView1.Columns.Add(C) 'اضافة عمود لعرض الصور
او يدويآ بس تغير الخصائص مثل الي بالكود وبالاخص ImageLayout
"""""""""""""""""""""""""""""""""""""""""""""""
هذا الكود للتوضيح عن فكرة كيف يكون مسار المجلد وبهذا الكود نفس مسار البرنامج
كود :
Dim path As String = Application.StartupPath & "\Images" 'مجلد يكون في نفس مسار البرنامج
If Not IO.Directory.Exists(path) Then
'IO.Directory.CreateDirectory(path) 'اذا اردت انشاء المجلد
MsgBox("مجلد الصور غير موجود")
Exit Sub '
End If
"""""""""""""""""""""""""""""""""""""""""""""
هذا الكود اذا كان المسار نفس الاعلى تضيف جميع الصور الموجوده في المجلد
كود :
Dim Img As New DataGridViewImageCell 'اضافة الصور الموجود في المجلد
For Each p As String In IO.Directory.GetFiles(path)
If p.ToLower.EndsWith("jpg") Or p.ToLower.EndsWith("png") Then 'في حالة المجلد يحتوي بيانات اخرى
Img.Value = Image.FromFile(p)
DataGridView1.Rows.Add(Nothing, Img.Value)
End If
Next
"""""""""""""""""""""""""""""""""""""""""""""
ولنفرض لديك زر بوتون لحفظ جميع الصور الموجوده في العمود
كود :
Dim i As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = Application.StartupPath & "\Images"
i = 0
Dim bit As Bitmap
For Each Ro As DataGridViewRow In DataGridView1.Rows
bit = Ro.Cells(1).Value
bit.Save(path & i & ".jpg")
i += 1
Next
End Sub
اتمنى اكون وصلتلك الفكرة اخي
وملاحظة انا عملت عمود الصور ثاني عمود يعني تحتاج تغير حسب ماموجود عندك