• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
H4N90V3R

تبدیل اعداد انگلیسی به فارسی

سوال

سلام

من توی برنامه با اینکه از فونت فارسی استفاده کردم اماوقتی اجرا میکنم اعداد بصورت انگلیسی هستن

مشکلش چیه؟

پسند شده توسط m007moh

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تا کنون داده شده است

  • 0

لطفا سورس رو بزارین حل کنیم مشکلتون رو شاید فونت از اعداد فارسی پشتیبانی نمی کنه یا فونت رو درست  ست نکردین 


به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

سلام

من توی برنامه با اینکه از فونت فارسی استفاده کردم اماوقتی اجرا میکنم اعداد بصورت انگلیسی هستن

مشکلش چیه؟

 

خبلب از فونتای فارسی عدداشون فارسی نیس

شما فونت byekan  رو امتحان کن فارسی میشه

 

http://s2.picofile.com/file/8260593884/yekan.ttf.html

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

ربطی به فونت نداره برای تبدیل اعداد  فارسی به انگلیسی باید از Replace استفاده کنید 

Private Label1 As Label
	Dim s As String="1234567890"
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")
Dim ss As String
ss=Tabdil(s)
Label1.Text=ss
End Sub

Sub Tabdil(matn As String) As String
    Private res As String=matn
     res=res.Replace("0","٠")
    res=res.Replace("1","١")
    res=res.Replace("2","٢")
    res=res.Replace("3","٣")
    res=res.Replace("4","٤")
    res=res.Replace("5","۵")
    res=res.Replace("6","۶")
    res=res.Replace("7","۷")
    res=res.Replace("8","۸")
    res=res.Replace("9","۹")
       Return res
End Sub

تمام 

پسند شده توسط H4N90V3R و Sina

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری