Creating Multilingual Websites - Part 2

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

#Region "LocalizedRequiredFieldValidator"
Public Class LocalizedRequiredFieldValidator
   Inherits RequiredFieldValidator
   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.ErrorMessage = LocalizedUtility.ReplaceParameters(Controls, value)
      MyBase.Render(writer)
   End Sub
End Class
#End Region


#Region "LocalizedRegularExpressionValidator"
Public Class LocalizedRegularExpressionValidator
   Inherits RegularExpressionValidator
   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.ErrorMessage = LocalizedUtility.ReplaceParameters(Controls, value)
      MyBase.Render(writer)
   End Sub
End Class
#End Region


#Region "LocalizedCompareValidator"
Public Class LocalizedCompareValidator
   Inherits CompareValidator
   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.ErrorMessage = LocalizedUtility.ReplaceParameters(Controls, value)
      MyBase.Render(writer)
   End Sub
End Class
#End Region