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

[alibaike 2]

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

 

[Salar82 919]

در 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

 

[محمدرضا شاهپیری 5,583]

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

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

 

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