+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في Report1.rdlc (/showthread.php?tid=52871)
مساعدة في Report1.rdlc - سيد أحمد - 25-04-25
إظهار تاكست بوك فوق الاستمارة على شكل صورة قي Report1.rdlc فيجوال دوت نت
RE: مساعدة في Report1.rdlc - princelovelorn - 25-04-25
طلبك غير واضح
هل تريد تمرير نص من خلال textbox الى التقرير
ام تريد تمرير صورة
========================================================
ومع ذلك جرب الطريقة التالية
لإظهار محتوى TextBox (تاكست بوك) فوق الاستمارة على شكل صورة داخل تقرير RDLC (مثل Report1.rdlc) في مشروع فيجوال دوت نت، يمكنك اتباع الخطوات التالية:
تحويل محتوى TextBox إلى صورة
قم بإنشاء صورة (Bitmap) في الذاكرة برمجيًا.
ارسم نص الـ TextBox على هذه الصورة باستخدام Graphics.
احفظ الصورة مؤقتًا في ملف أو في تدفق بيانات (MemoryStream).
تمرير الصورة إلى تقرير RDLC كمعامل (Parameter) أو مصدر بيانات
أضف في تقرير RDLC عنصر صورة (Image) في المكان الذي تريد عرض النص فيه كصورة.
اضبط خاصية الصورة لتأخذ قيمة من مصدر بيانات أو من معامل تقرير.
في كود VB.NET، قم بتمرير الصورة التي أنشأتها إلى التقرير عبر معلمة من نوع byte[] أو Stream.
تحميل التقرير في ReportViewer
قم بإعداد ReportViewer وتحميل Report1.rdlc.
أضف معلمة التقرير التي تحتوي على الصورة.
عرض التقرير في ReportViewer.
مثال مبسط في VB.NET لتحويل نص TextBox إلى صورة وتمريرها إلى تقرير RDLC:
كود :
Imports System.Drawing
Imports System.IO
Imports Microsoft.Reporting.WinForms
' تحويل نص TextBox إلى صورة Byte Array
Function TextToImageBytes(text As String, font As Font, foreColor As Color, backColor As Color) As Byte()
Dim bmp As New Bitmap(300, 50)
Using g As Graphics = Graphics.FromImage(bmp)
g.Clear(backColor)
g.DrawString(text, font, New SolidBrush(foreColor), New PointF(0, 0))
End Using
Using ms As New MemoryStream()
bmp.Save(ms, Imaging.ImageFormat.Png)
Return ms.ToArray()
End Using
End Function
' في حدث تحميل التقرير أو زر
Private Sub LoadReport()
Dim textImageBytes = TextToImageBytes(TextBox1.Text, New Font("Arial", 14), Color.Black, Color.White)
Dim param As New ReportParameter("ImageParam", Convert.ToBase64String(textImageBytes))
ReportViewer1.LocalReport.ReportPath = "Report1.rdlc"
ReportViewer1.LocalReport.SetParameters(param)
ReportViewer1.RefreshReport()
End Subفي تقرير RDLC:
أضف Image control.
اضبط خاصية Image Source إلى "Database".
اضبط خاصية MIME Type إلى "image/png".
اجعل قيمة الصورة تعود إلى التعبير:
=Convert.FromBase64String(Parameters!ImageParam.Value)
هذه الطريقة تسمح بعرض نص الـ TextBox كصورة داخل التقرير فوق الاستمارة، مما يحقق طلبك بإظهار النص على شكل صورة في Report1.rdlc.
للأمانة الشرح منقول
RE: مساعدة في Report1.rdlc - سيد أحمد - 26-04-25
ممكن ارسل لك مثال لتعديل عليه
RE: مساعدة في Report1.rdlc - princelovelorn - 26-04-25
(26-04-25, 02:34 AM)سيد أحمد كتب : ممكن ارسل لك مثال لتعديل عليه
تحت أمرك أخي أرسل المثال
ولكن غدا بأذن الله تعالى سأعمل عليه لأني مضطر للأبتعاد عن جهازي الأن
RE: مساعدة في Report1.rdlc - سيد أحمد - 26-04-25
https://www.mediafire.com/file/tiazhhf3k...e.rar/file
RE: مساعدة في Report1.rdlc - princelovelorn - 26-04-25
(26-04-25, 10:15 PM)سيد أحمد كتب : https://www.mediafire.com/file/tiazhhf3k...e.rar/file
الربط لا يعمل أخي
RE: مساعدة في Report1.rdlc - سيد أحمد - 27-04-25
تفضل اخي
https://www.mediafire.com/file/tiazhhf3keqgoot/btaxte.rar/file
RE: مساعدة في Report1.rdlc - princelovelorn - 27-04-25
تفضل اخي المثال في المرفقات
رابط مرفوع على موقع ميديا فاير
ستجد طريقيتين في المثال
الأول تحويل النص الى صورة وعرضها في التقرير مباشرة
الثاني تحويل النص الى صورة وعرضها في PICTUREBOX ثم عرض الصورة في التقرير
RE: مساعدة في Report1.rdlc - سيد أحمد - 27-04-25
جزاك الله خيرا أخي
يأخي فكرة جميلة ولكن أنا لديا إستمارة قمت بمسحها سكتار واريد إضافتها في تقرير والمعلومات تجلب من تاكست بوكس1 و2 و3 .....الى أخره من النموذج والصورة تبقى نفسها في التقرير وشكرا
RE: مساعدة في Report1.rdlc - princelovelorn - 27-04-25
(27-04-25, 08:24 PM)سيد أحمد كتب : جزاك الله خيرا أخي
يأخي فكرة جميلة ولكن أنا لديا إستمارة قمت بمسحها سكتار واريد إضافتها في تقرير والمعلومات تجلب من تاكست بوكس1 و2 و3 .....الى أخره من النموذج والصورة تبقى نفسها في التقرير وشكرا
اللهم أمين وإياكم
الذي تريد تطبيقه موجود في المثال
بالنسبة للصورة ستقوم باستدعائها بالطريقة الثانية وستجعل حجم الصورة المضافة الي التقرير بحجم كامل الورقة
وبذلك ستظهر لديك صورة الاستمارة وكأنها كخلفية
بالنسبة للنص من ال TEXTBOXES
ستقوم باضافة ادوات TEXTBOXES الى التقرير وقم بتوزيعهم على أماكن ملئ البيانات في الاستمارة واضافة بارميترات ايضا لكل واحد منهم
وتقوم باسناد البراميترات من الفورم
وتعرض التقرير
ستصل للنتيجة التي تريدها بأذن الله تعالى