1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Imports System.Threading
Imports System.Globalization
Public Class BasePage
Inherits System.Web.UI.Page
Protected Overrides Sub InitializeCulture()
'MyBase.InitializeCulture()
'Récupération du profil attaché au contexte HTTP en cours
Dim p As ProfileCommon = CType(Me.Context.Profile, ProfileCommon)
'Récupération de l'information de culture à partir du profil
Dim cultureEnCours As String = p.CulturePreferee
If Not String.IsNullOrEmpty(cultureEnCours) Then
'Chargement de la culture d'interface utilisateur sur le thread en cours
Thread.CurrentThread.CurrentUICulture = New CultureInfo(cultureEnCours)
'Chargement de la culture sur le thread en cours
Thread.CurrentThread.CurrentCulture = _
CultureInfo.CreateSpecificCulture(cultureEnCours)
End If
End Sub
End Class |