Imports System.Web.Profile
Imports System.Globalization
Imports System.Threading





Public Class PaginaBase
    Inherits System.Web.UI.Page

    Protected Overrides Sub OnPreInit(ByVal e As System.EventArgs)



        If Not String.IsNullOrEmpty(Request.QueryString("theme")) Then
            Me.Theme = Request.QueryString("theme")
        ElseIf String.IsNullOrEmpty(Request.QueryString("theme")) And Profile.GetPropertyValue("Theme").ToString() <> "" Then
            Me.Theme = Profile.GetPropertyValue("Theme").ToString()
        ElseIf String.IsNullOrEmpty(Request.QueryString("theme")) And Profile.GetPropertyValue("Theme").ToString() = "" Then
            Me.Theme = "default_theme"
        End If


        MyBase.OnPreInit(e)
    End Sub

    Protected Overrides Sub InitializeCulture()
        ' override virtual method InitializeCulture() to check if profile contains a user language setting
        Dim UserCulture As String = Profile.GetPropertyValue("PreferredCulture").ToString()
        If UserCulture <> "" Then
            ' there is a user language setting in the profile: switch to it
            Thread.CurrentThread.CurrentUICulture = New CultureInfo(UserCulture)
            Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(UserCulture)

        End If

    End Sub 'InitializeCulture


End Class