منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة التحكم في التقرير بالكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=50823)

طريقة التحكم في التقرير بالكود - المتألق9 - 23-12-24

السلام عليكم
ممكن طريقة التحكم في تقرير بالكرستال ريبورت بالكود
مثلا يوجد حقل ان اقوم بتغيير حجم الخط له عن طريق الكود
وشكرا

RE: طريقة التحكم في التقرير بالكود - aljzazy - 23-12-24

للتحكم بحجم الخط أو أي خاصية أخرى لحقل معين في تقرير Crystal Reports باستخدام الكود في Visual Basic، يمكنك القيام بذلك باستخدام كائن TextObject أو FieldObject الخاص بالحقل المطلوب. فيما يلي الخطوات:
1. التأكد من إضافة المراجع اللازمة:
تأكد من إضافة مرجع إلى مكتبة CrystalDecisions.CrystalReports.Engine في المشروع.
2. الكود لتغيير حجم الخط:
افترض أن التقرير يحتوي على حقل نصي (Text Field) أو حقل بيانات (Field) تريد التحكم بحجم خطه.
vb
نسخ الكود
كود :
Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ' قم بتحميل التقرير
       Dim report As New ReportDocument()
       report.Load("Path_to_your_report_file.rpt")

       ' البحث عن الحقل المطلوب وتغيير حجم الخط
       Dim textObject As TextObject = CType(report.ReportDefinition.ReportObjects("FieldName"), TextObject)

       ' ضبط حجم الخط
       textObject.ApplyFont(New Font("Arial", 16, FontStyle.Bold))

       ' عرض التقرير في عارض الكريستال ريبورت
       CrystalReportViewer1.ReportSource = report
   End Sub
End Class
الشرح:
  1. Path_to_your_report_file.rpt: ضع مسار ملف التقرير الخاص بك.
  2. FieldName: اسم الحقل في التقرير (يمكن الحصول عليه من داخل ملف التقرير).
  3. Font: يمكنك تحديد اسم الخط، الحجم، ونمط الخط مثل عادي (Regular) أو عريض (Bold).
3. نصائح إضافية:
  • إذا كان التقرير يحتوي على أقسام فرعية (Subreports)، تأكد من الوصول إلى القسم الصحيح باستخدام خاصية Subreports.
مثال على حجم خط ديناميكي:
لضبط حجم الخط بناءً على قيمة مدخلة:
vb
نسخ الكود
كود :
Dim fontSize As Integer = CInt(TextBox1.Text) ' قراءة الحجم من المستخدم
textObject.ApplyFont(New Font("Arial", fontSize, FontStyle.Regular))
بهذا الشكل، يمكنك التحكم ديناميكياً في خصائص التقرير باستخدام الكود في فيجوال بيسك.

RE: طريقة التحكم في التقرير بالكود - atefkhalf2004 - 23-12-24

برجاء كود التعديل ل تقرير غير مرفق بالبرنامج
اي
التقرير مدمج مع الملف التنفيذي