+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف استعرض صوره في الداتاجريدفيو وحفظها في ملف ثابت (/showthread.php?tid=32493)
كيف استعرض صوره في الداتاجريدفيو وحفظها في ملف ثابت - بسام محمدغانم - 12-12-19
كيف استعرض صوره من الداتاجريد فيو
يعني احتاج عمود فيه تعرض الصوره بحجم معين و احفظها لكن الاستعراض و الحفظ يكون في ملف في المشروع
يعني استعرض و احفظ رقم الصوره في القاعدة او المسار
كيف بيكون الكود حق الاستعراض و كود الحفظ
RE: كيف استعرض صروره في الداتاجريدفيو وحفظها في ملف ثابت - 3booody - 12-12-19
السلام عليكم ورحمة الله وبركاته
اذا تقصد مجلد خاص تحفظ فيه صور ,, اول شي اعمل عمود يعرض الصور
عملتلك هذا الكود فقط للتوضيح كيف ممكن تحفظ الصور بمجلد نفس مسار البرنامج الرئيسي
حاول تفهم الكود وتطبق الفكرة حتى اذا كانت صورة وحده
ممكن اضافة عمود الصور بهذا الشكل
كود :
DataGridView1.Columns.Add("id", "ID") 'غير مهم
Dim C As New DataGridViewImageColumn With {.Name = "Image", .HeaderText = "Images", _
.ImageLayout = DataGridViewImageCellLayout.Zoom}
DataGridView1.Columns.Add(C) 'اضافة عمود لعرض الصور"""""""""""""""""""""""""""""""""""""""""""""""
هذا الكود للتوضيح عن فكرة كيف يكون مسار المجلد وبهذا الكود نفس مسار البرنامج
كود :
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اتمنى اكون وصلتلك الفكرة اخي
وملاحظة انا عملت عمود الصور ثاني عمود يعني تحتاج تغير حسب ماموجود عندك
RE: كيف استعرض صوره في الداتاجريدفيو وحفظها في ملف ثابت - asemshahen5 - 12-12-19
جزاك الله عنا كل خير .