Here it is as promised, a user control that wraps the functionality of the ResourceManager class and save you lots of coding:
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Resources
Imports System.Reflection
Imports System.Threading
Public Class SiteTextControl
Inherits System.Web.UI.UserControl
#Region ” Web Form Designer Generated Code “
‘This call is required by the Web Form Designer.
Private Sub InitializeComponent()
End Sub
‘NOTE: The following placeholder declaration is required by the Web Form Designer.
‘Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
‘CODEGEN: This method call is required by the Web Form Designer
‘Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private _Name As String
Private lit As LiteralControl
Private res As ResourceManager
Private Shared _myCulture As String
Public Shared ReadOnly Property myCulture() As String
Get
Return Thread.CurrentThread.CurrentCulture.ToString
End Get
End Property
Public Property Name() As String
Get
Return _Name
End Get
Set(ByVal Value As String)
_Name = Value
End Set
End Property
Public WriteOnly Property Text() As String
Set(ByVal Value As String)
If Controls.Count > 0 Then
lit.Text = Value
End If
End Set
End Property
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Put user code to initialize the page here
End Sub
Protected NotOverridable Overrides Sub CreateChildControls()
res = New ResourceManager(“machinelocator.Resource1”, [Assembly].GetExecutingAssembly())
Dim _Text As String = res.GetString(_Name, Thread.CurrentThread.CurrentCulture)
lit = New LiteralControl(_Text)
Controls.Add(lit)
lit.Dispose()
End Sub
Public Shared Function GetResourceContent(ByVal name As String) As String
Dim rm As ResourceManager = New ResourceManager(“machinelocator.Resource1”, [Assembly].GetExecutingAssembly())
Return rm.GetString(name)
End Function
End Class
On the Application events at the Global.asax your code should look like:
mports System.Web
Imports System.Web.SessionState
Imports System.Globalization
Imports System.Threading
Imports System.Resources
Imports System.Reflection
Imports System.Collections
Imports System.IO
Public Class Global
Inherits System.Web.HttpApplication
Private rm As ResourceManager
#Region ” Component Designer Generated Code “
Public Sub New()
MyBase.New()
‘This call is required by the Component Designer.
InitializeComponent()
‘Add any initialization after the InitializeComponent() call
End Sub
‘Required by the Component Designer
Private components As System.ComponentModel.IContainer
‘NOTE: The following procedure is required by the Component Designer
‘It can be modified using the Component Designer.
‘Do not modify it using the code editor.
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub
#End Region
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires when the application is started
End Sub
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires when the session is started
End Sub
Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires at the beginning of each request
Dim culturePref As String = Nothing
Dim cultureSet As Boolean = False
Try
If Request.Cookies.Count <> 0 Then
If Request.Cookies(“CulturePref”).Value <> Nothing Then
culturePref = Request.Cookies(“CulturePref”).Value
cultureSet = True
End If
End If
Catch ex As Exception
‘nothing
End Try
If cultureSet Then
Try
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(culturePref)
Catch
‘Set the default culture
Thread.CurrentThread.CurrentCulture = New CultureInfo(“en-US”)
End Try
End If
Thread.CurrentThread.CurrentUICulture = Thread.CurrentThread.CurrentCulture
End Sub
Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires upon attempting to authenticate the use
End Sub
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires when an error occurs
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires when the session ends
End Sub
Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
‘ Fires when the application ends
End Sub
End Class
And finally for using this control you can either put it on your HTML or use it on your CodeBehind like:
strDetail =SiteTextControl.GetResourceContent(“AproxResource”)
Special thanks to Mark Kucera the original creator of the control, the above code have very few modifications.
After a few months of work the app is done, it runs smoothly with your local MSSQL, all is good, all is good, let’s move it to the beta server and run a few tests before handling to QA.