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

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

خطوط تعريب الأرقام في كريستال ريبورت - صالح عبدالله - 09-02-24

السلام عليكم ورحمة الله وبركاته 
أين أجد خطوط لتعريب الأرقام في الكريستال ريبورت غير هذه الخطوط sc_OUHOD      أو خط  amien 01  أريد خطوط تكون تستخدم في الخطابات وتكون أفضل من هذه الخطوط ( أريد استخدامها لمربعات النص وليس للحقول المرتبطة بقاعدة البيانات  )

RE: خطوط تعريب الأرقام في كريستال ريبورت - Kamil - 10-02-24

جرب هذه المجموعة من الحطوط  

Fonts

RE: خطوط تعريب الأرقام في كريستال ريبورت - صالح عبدالله - 10-02-24

السلام عليكم ورحمة الله وبركاته 
للأسف أستاذ كامل جربت تظهر الأرقام باللغة الانجليزية 
شاكر لك إهتمامك

RE: خطوط تعريب الأرقام في كريستال ريبورت - aljzazy - 12-02-24

كود :
Imports System.Globalization
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' Create an instance of your Crystal Report
       Dim report As New ReportDocument()
       report.Load("Path_to_your_report_file.rpt")

       ' Set the culture to Arabic
       Dim arabicCulture As CultureInfo = CultureInfo.CreateSpecificCulture("ar")
       System.Threading.Thread.CurrentThread.CurrentCulture = arabicCulture

       ' Set the locale ID for Crystal Report
       report.SetDatabaseLogon("username", "password")
       Dim tables As Tables = report.Database.Tables
       Dim connectionInfo As New ConnectionInfo()

       ' Set the locale for each table in the report
       For Each table As Table In tables
           connectionInfo = table.LogOnInfo
           connectionInfo.LocaleID = CType(arabicCulture.LCID, Integer)
           table.ApplyLogOnInfo(connectionInfo)
       Next

       ' Set the Crystal Report Viewer's report source to the modified report
       CrystalReportViewer1.ReportSource = report
   End Sub
End Class


RE: خطوط تعريب الأرقام في كريستال ريبورت - صالح عبدالله - 16-02-24

الأستاذ الجزازي شكراً لإهتمامك سوف اجرب الكود واعطيك النتيجة