Creating Multilingual Websites - Part 1

Imports System.Web.UI
Imports System.Web.UI.WebControls

Public Class LocalizedLiteral
   Inherits Literal
   Implements ILocalized

#Region "Fields and Properties"
   Private _colon As Boolean
   Private _key As String

   Public Property Colon() As Boolean Implements ILocalized.Colon
      Get
         Return _colon
      End Get
      Set(ByVal Value As Boolean)
         _colon = Value
      End Set
   End Property

   Public Property Key() As String Implements ILocalized.Key
      Get
         Return _key
      End Get
      Set(ByVal Value As String)
         _key = Value
      End Set
   End Property
#End Region

   Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
      MyBase.Text = ResourceManager.GetString(Key)
      If Colon = True Then
         MyBase.Text &= ResourceManager.Colon
      End If
      MyBase.Render(writer)

   End Sub


End Class