Protected Overrides Sub InitializeCulture()
If Request.QueryString.HasKeys And Request.QueryString("lng") <> Nothing Then
Dim linguaScelta As String = Request.QueryString("lng").ToString
Select Case linguaScelta
Case "ita"
linguaScelta = "it-IT"
Case "eng"
linguaScelta = "en-GB"
Case Else
linguaScelta = "it-IT"
End Select
UICulture = linguaScelta
Culture = linguaScelta
Dim ci As New CultureInfo(linguaScelta, True)
ci.NumberFormat.NumberDecimalSeparator = ","
ci.NumberFormat.CurrencyDecimalDigits = 2
ci.NumberFormat.CurrencyDecimalSeparator = ","
ci.NumberFormat.CurrencySymbol = "€"
ci.NumberFormat.NumberDecimalDigits = 2
ci.NumberFormat.PercentDecimalSeparator = ","
ci.NumberFormat.PercentDecimalDigits = 2
ci.NumberFormat.PercentSymbol = "%"
Thread.CurrentThread.CurrentUICulture = ci
Thread.CurrentThread.CurrentCulture = ci
MyBase.InitializeCulture()
End If
End Sub
guarda l'esempio