تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف استعرض صوره في الداتاجريدفيو وحفظها في ملف ثابت
#1
كيف استعرض صوره من الداتاجريد فيو
يعني احتاج عمود فيه تعرض الصوره بحجم معين و احفظها لكن الاستعراض و الحفظ يكون في ملف في المشروع 
يعني استعرض و احفظ رقم الصوره في القاعدة او المسار 
كيف بيكون الكود حق الاستعراض و كود الحفظ
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

اذا تقصد مجلد خاص تحفظ فيه صور ,, اول شي اعمل عمود يعرض الصور
عملتلك هذا الكود فقط للتوضيح كيف ممكن تحفظ الصور بمجلد نفس مسار البرنامج الرئيسي
حاول تفهم الكود وتطبق الفكرة حتى اذا كانت صورة وحده

ممكن اضافة عمود الصور بهذا الشكل

كود :
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



اتمنى اكون وصلتلك الفكرة اخي
وملاحظة انا عملت عمود الصور ثاني عمود يعني تحتاج تغير حسب ماموجود عندك
الرد }}}
تم الشكر بواسطة: asemshahen5
#3
جزاك الله عنا كل خير .
الرد }}}
تم الشكر بواسطة: 3booody


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اقارن صوره بصوره أخرى menanaeem 2 598 07-11-22, 05:24 PM
آخر رد: menanaeem
  طباعة فاتورة وحفظها في قاعدة البيانات ibrahimmakhool 1 661 10-09-22, 06:10 PM
آخر رد: abomo3ath
  [سؤال] طريقة الادخال اليدوي في الداتا جريد فيو وحفظها تلقائيا safralfahd 11 3,342 19-03-22, 07:59 PM
آخر رد: safralfahd
  [VB.NET] سحب مجموعة صور بالاسكانر وحفظها في ملف PDF على الجهاز محمد المصري 10 6,822 20-01-22, 09:55 PM
آخر رد: ابراهيم ايبو
  كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp bahnay0 0 1,141 12-08-21, 01:49 AM
آخر رد: bahnay0
  اريد طريقة لاتقاط سكرين شوت وحفظها تلقائي في مجلد من ملفات برنامجي 4545Mohamed 2 1,474 08-07-21, 01:00 PM
آخر رد: 4545Mohamed
  [سؤال] اضافة صوره من مجلد الى كرستال ريبورت alhoraibi800 3 1,958 02-07-21, 11:56 AM
آخر رد: Lathe1
  [سؤال] تمرير صوره من الفورم الى كرستال ريبورت alhoraibi800 1 1,272 30-06-21, 09:42 PM
آخر رد: ابراهيم ايبو
  مشكله فى حفظ صوره بقاعده بيانات اكسس خالد كامل1 1 1,252 22-06-21, 12:03 AM
آخر رد: ابراهيم ايبو
  كود تصدير البيانات من الداتاجريدفيو الى اكسل سلام و محبه 13 2,800 17-01-21, 11:45 PM
آخر رد: سلام و محبه

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم