للتحكم بحجم الخط أو أي خاصية أخرى لحقل معين في تقرير
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))
بهذا الشكل، يمكنك التحكم ديناميكياً في خصائص التقرير باستخدام الكود في فيجوال بيسك.
