30-04-14, 07:20 PM
بسم الله
هذا اول مرة اجب على سوال لاننا جديد
أخي ابغاك تمخمخ معي شوي
اولاً طالما الصورة متغيرة ولنفرض انها داخل مجلد البرنامج او في اي مكان
اولاً عرف هذه المكتبة
ثانياً : ضع هذا الكود داخل أي اجراء
هذا على افتراض ان الصورة موجودة على هذا المسار في مجلد البرنامج Logo\Logo.jpg
ثم بعد هذا الكود بنفس الاجراء
تقوم بتعريف Dim DS As New DataSet1
طبعا بعد ما تكون انشأت DataSet1 واضفت عليها عمود من نوع Byte()
تظيف هذا الكود
اعتقد الكود واضح إذا كنت مستوعب لعمل التقارير
واي سوال إن شاء الله افيدك فيه
تحياتي لك
هذا اول مرة اجب على سوال لاننا جديد

أخي ابغاك تمخمخ معي شوي
اولاً طالما الصورة متغيرة ولنفرض انها داخل مجلد البرنامج او في اي مكان
اولاً عرف هذه المكتبة
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()
ثم بعد هذا الكود بنفس الاجراء
تقوم بتعريف 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()
واي سوال إن شاء الله افيدك فيه
تحياتي لك

