رفتن به مطلب
  • 0

فارسی کردن اعداد در اسپینر


alibaike

سوال

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

 

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

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

ارسال‌های توصیه شده

در 4 ساعت قبل، alibaike گفته است :

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

 

سلام

می‌تونید از Sub زیر استفاده کنید:

Sub ConvertNumbers2Persian(sNumber As String) As String
	Dim sNumbers(10) As String
	Dim res As String
	Dim j As Int
	res = sNumber
	sNumbers(0) = "٠"
	sNumbers(1) = "١"
	sNumbers(2) = "٢"
	sNumbers(3) = "٣"
	sNumbers(4) = "٤"
	sNumbers(5) = "٥"
	sNumbers(6) = "٦"
	sNumbers(7) = "٧"
	sNumbers(8) = "٨"
	sNumbers(9) = "٩"
	For i =0 To sNumber.Length - 1
		j = sNumber.SubString2(i,i+1)
		res = res.Replace(sNumber.CharAt(i),sNumbers(j))
	Next
	Return res
End Sub

 

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

در 9 ساعت قبل، alibaike گفته است :

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

 

از کتابخونه زیر استفاده کنید.

 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...