Creating Multilingual Websites - Part 3

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)
    Dim value As String = ResourceManager.GetString(Key)
    If Colon = True Then
      value &= ResourceManager.Colon
    End If
    MyBase.Text = value
    MyBase.Render(writer)
  End Sub
End Class