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

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

للتحكم بحجم الخط أو أي خاصية أخرى لحقل معين في تقرير 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

الشرح:

Path_to_your_report_file.rpt: ضع مسار ملف التقرير الخاص بك.
FieldName: اسم الحقل في التقرير (يمكن الحصول عليه من داخل ملف التقرير).
Font: يمكنك تحديد اسم الخط، الحجم، ونمط الخط مثل عادي (Regular) أو عريض (Bold).

3. نصائح إضافية:

إذا كان التقرير يحتوي على أقسام فرعية (Subreports)، تأكد من الوصول إلى القسم الصحيح باستخدام خاصية Subreports.

مثال على حجم خط ديناميكي:
لضبط حجم الخط بناءً على قيمة مدخلة:
vb
نسخ الكود

كود :

Dim fontSize As Integer = CInt(TextBox1.Text) ' قراءة الحجم من المستخدم

textObject.ApplyFont(New Font("Arial", fontSize, FontStyle.Regular))

بهذا الشكل، يمكنك التحكم ديناميكياً في خصائص التقرير باستخدام الكود في فيجوال بيسك.

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

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

المتألق9

aljzazy

atefkhalf2004