نمایش حروف به فارسی

سلام
دوستان من از داخل برنامه به کریستال ریپورت تاریخ را فارسی میفرستم اما رقم های تاریخ را بصورت انگلیسی نمایش میدهد برای رفع این موضوع چکار کنم.
ممنون

فکر میکنم با فونت فارسی درست بشه

از فونت های B استفاده کن

من از فونت Tahoma استفاده کردم . نمیدانم درست است یا خیر؟

از فونت bbadr استفاده کن

دوست عزیز اینکار را هم کردم . در ابتدا قبل از اجرای برنامه درست نشان میدهد اما به محض اینکه برنامه را اجرا میکنم و ریپورت را صدا میزنم دوباره حروف را انگلیسی نمایش میدهد. این مشکل فقط در حروف است.

سلام
می تونی اگه مشکلت از راه دیگه ای حل نشد از این dll استفاده کنی

Persia.Number.ConvertToPersian(XXXXX);

این رو چطوری باید به ویژوال استیودیو اضافه و از اون استفاده کرد

نقل قول:

---

نوشته شده توسط ali_reza_nazari

این رو چطوری باید به ویژوال استیودیو اضافه و از اون استفاده کرد

---

Persia.Number.ConvertToPersian(XXXXX);

دوست عزیز من هم این مشکل رو دارم ولی تو پرینت درست بم جواب میده .... پرینت کن .

من نمی‌دونم این dll دقیقا چه کار می‌کنه. ولی اگر در جدول کاراکترهای ویندوز دقت کنید، علاوه بر اعداد انگلیسی، یک سری هم اعداد فارسی در کنار حروف فارسی وجود دارند. فکر می‌کنم باید این اعداد با اعداد انگلیسی تعویض شوند.احتمال بسیار زیاد، این dll هم چنین کاری را انجام می‌دهد.

سلام،

من در VB 6.0 یک کدی نوشتم که هر عددی رو حتی اگر شامل علامتهای خاص مثل منفی یا پرانتز حسابداری باشه از انگلیسی به فارسی و بر عکس تبدیل میکنه.

البته این کد رو برای دات نت هم بازنویسی کردم.

حالا مسئله اینه، «لطفا اینو یکی از مدیران جواب بدن» میشه بدون دادن سورس این رو برای استفاده قرار بدم یا نه؟

در حال حاضر بنا به دلایلی از جمله تعهد و قرارداد با مشتری اجازه ندارم سورس بدم. :گریه:

لازم به ذکر میدونم بگم این کد تا حالا در بیش از 60 پروژه بزرگ مصرف شده و تا حالا مشکلی پیش نیومده. :تشویق:

اگر دوست داری بدی و نیم خواهی سورس بدی Dll کن و بزار تا بقیه استفاده کنن .( البته من مدیر نیستم همینطوری جواب دادم با عرض پوزش )

با سلام
من این تابع رو پارسال برای یکی از برنامه هام نوشته ام.
این تابع در String ورودی میگرده و هر چی عدد پیدا میکنه به کاراکتر فارسی معادل تبدیل میکنه و String بر میگردونه .
در ضمن فکر کنم خوب هم نوشته نشده . ولی نکته مثبت اینه که خیلی خوب جواب میده .
موفق باشید .

    Public Function FarsiInt(ByVal EnInt) As String

        Dim A As String = EnInt.ToString

        Dim A2(A.Length) As String

        Dim i As Integer

        For i = 0 To A.Length - 1

            If IsNumeric(A.Substring(i, 1)) Then

                A2(i) = ChrW(AscW(A.Substring(i, 1)) + 1728)

            Else

                A2(i) = A.Substring(i, 1)

            End If

        Next

        A = ""

        For i = 0 To A2.Length - 1

            A += A2(i)

        Next

        Return A

    End Function