Adapter を作ろう　その７

ASP.NET

この記事の元→Adapter を作ろう



Imports Microsoft.VisualBasic

Imports System.Web.UI.MobileControls

Imports System.Web.UI.MobileControls.Adapters
Namespace Karua.Lib.Adapters
    Public Class MyHtmlFormAdapter

        Inherits HtmlFormAdapter
        Protected Overrides Function RenderExtraHeadElements(ByVal writer As System.Web.UI.MobileControls.Adapters.HtmlMobileTextWriter) As Boolean

            Dim responseEncoding = Page.Response.Charset

            If Not String.IsNullOrEmpty(responseEncoding) Then

                writer.Write("<meta http-equiv='Content-Type' content='text/html;charset={0}' />", responseEncoding)

            End If

        End Function
    End Class

End Namespace