Creating Multilingual Websites - Part 3

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

Public Class LocalizedButton
   Inherits Button
   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 = LocalizedUtility.ReplaceParameters(Controls, value)
      MyBase.Render(writer)
   End Sub


End Class