منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف يمكن عرض الصورة داخل التقرير
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

إخوانى كيف يمكن عرض الصورة الحالية الموجودة داخل PictureBox1 فى التقرير الخاص بى
عندى صورة موجوده داخل PictureBox1 وليست موجوده فى قاعدة البيانات واريد عرض هذة الصورة داخل التقرير

شكرا جزيلا
كيف يمكن ذلك
أولاً : ما هو نوع التقرير المستخدم ؟
ثانياً : إين تريد ظهور الصورة في التقرير ؟

RolleyesRolleyesRolleyes
أخى الفاضل نوع التقارير المستخدمة هى
Crystal report
التقرير مربوط بقاعدة بيانات sql ويعرض بعض البيانات ويوجد بالتقرير مكان يظهر صورة معينة
هذة الصورة موجوده داخل PictureBox1 على الفورم وليست ثابتة (متغيرة)

أريد إظهارها فى المكان المخصص لها فى التقرير
Please take a look at this sample about how to show image on crystal report:
http://www.codeproject.com/KB/vb/Image_i...ports.aspx

It is about C#.You could make a convertion by the following link:
Convert C# to VB.NET: http://www.developerfusion.co.uk/utiliti...ptovb.aspx

RolleyesRolleyesRolleyes
thank you
بسم الله

هذا اول مرة اجب على سوال لاننا جديد Big Grin

أخي ابغاك تمخمخ معي شوي
اولاً طالما الصورة متغيرة ولنفرض انها داخل مجلد البرنامج او في اي مكان

اولاً عرف هذه المكتبة
PHP كود :
Imports System.IO 

ثانياً : ضع هذا الكود داخل أي اجراء
PHP كود :
Dim lFSFileStream As FileStream
            Dim lBRBinaryReader 
As BinaryReader
            Dim lBImageByte 
As Byte()
            
lFSFileStream = New FileStream(System.AppDomain.CurrentDomain.BaseDirectory() & "Logo\Logo.jpg"FileMode.Open)
            
lBRBinaryReader = New BinaryReader(lFSFileStream)
            
lBImageByte = New Byte(lFSFileStream.Length 1) {}
            
lBImageByte lBRBinaryReader.ReadBytes(Convert.ToInt32(lFSFileStream.Length))
            
lFSFileStream.Close() 
هذا على افتراض ان الصورة موجودة على هذا المسار في مجلد البرنامج Logo\Logo.jpg

ثم بعد هذا الكود بنفس الاجراء
تقوم بتعريف Dim DS As New DataSet1
طبعا بعد ما تكون انشأت DataSet1 واضفت عليها عمود من نوع Byte()

تظيف هذا الكود
PHP كود :
Dim Repo As New CrystalReport1
Dim DS 
As New DataSet1
DS
.Tables(0).Rows.Add(lBImageByte)
Repo.SetDataSource(DS)
Form1.CrystalReportViewer1.ReportSource Repo
Form1
.CrystalReportViewer1.Refresh()
Form1.Show() 
اعتقد الكود واضح إذا كنت مستوعب لعمل التقارير

واي سوال إن شاء الله افيدك فيه

تحياتي لك