PDA

View Full Version : culture



spanishtrain
سه شنبه 20 اسفند 1387, 08:51 صبح
آقا من نمونه یه کد ساده به همراه توضیح برای ایجاد واستفاده از Culture برای استفاده در کامپاننتهای مختلف مثل تقوبم می خواستم

anooshiran
چهارشنبه 21 اسفند 1387, 00:28 صبح
سلام دوست عزيز

cultreinfo يكي از كلاس هاي فضاي نام
System.Globalization است و هيچ ارتباطي به تبديل تاريخ ندارد بلكه صرفا براي تبديل كاراكترها از يك زبان به زبان ديگر بكار مي رود.مثلا اگر كيبورد شما انگليسي است و ميخواهيد آنرا به فارسي تبديل كنيديا بالعكس بايد از Culterinfo استفاده كنيد:




Public Sub ChangeKeybordToPersian()
Dim fLanguage As New System.Globalization.CultureInfo("fa-ir")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(fLanguage)
End Sub

Public Sub ChangeKeybordToEnglish()
Dim eLanguage As New System.Globalization.CultureInfo("en-us")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(eLanguage)
End Sub




ولي اگر ميخواهيد تاريخ را از ميلادي به شمسي تبديل كنيد بايد از كلاس PersianCalendar از فضاي نام فوق الذكر استفاده كنيد. كد زير طرقه تبديل تاريخ را نشان مي دهد :





Private Sub ConvertTime()
Dim _dd As String = Applydate("2009/02/14")
Dim _Todaty As String = Applydate(Date.Now)
End Sub

Private Function Applydate(ByVal [Date]) As String
Dim _Date As New System.Globalization.PersianCalendar
Dim stb As New System.Text.StringBuilder
stb.Append(_Date.GetYear([Date]))
stb.Append("/")
stb.Append(Format(_Date.GetMonth([Date]), "00"))
stb.Append("/")
stb.Append(Format(_Date.GetDayOfMonth([Date]), "00"))
Applydate = stb.ToString
End Function