Imports Microsoft.VisualBasic
Imports System.Web.UI
Imports System.Resources
Imports System.Threading
Imports System.Globalization
Namespace multidioma
Public Class PageBase
Inherits Page
Protected rm As ResourceManager
Private cinfo As CultureInfo
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Establece el thread de cultura para formatos, comparaciones...
If Request("ChangeIdioma") = "" Then
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("es")
Else
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(Request("ChangeIdioma"))
End If
' Establece el valor de cultura para los satellite assemblies
Thread.CurrentThread.CurrentUICulture = CultureInfo.CurrentCulture
' Cargamos el archivo de resources
rm = New ResourceManager("miaplicacion.App_GlobalResources.Resource", System.Reflection.Assembly.GetExecutingAssembly)
rm.IgnoreCase = True
End Sub
End Class
End Namespace