Adapter を作ろう その１

ASP.NET

この記事の元→[http://karua.at.webry.info/200805/article_3.html:title=Adapter を作ろう]



Imports Microsoft.VisualBasic

Imports System.Web.UI.MobileControls

Imports System.Web.UI.MobileControls.Adapters
Namespace Karua.Lib.Adapters

    Public Class MyHtmlPageAdapter

        Inherits System.Web.UI.MobileControls.Adapters.HtmlPageAdapter
        Public Overrides Sub RenderForm(ByVal writer As HtmlMobileTextWriter, ByVal form As Form)

            writer.BeginFile(GetFormUrl(form), "text/html", Page.Response.Charset)
            writer.WriteFullBeginTag("html")
            RenderPreControl(writer, form)

            form.RenderControl(writer)

            renderPostControl(writer, form)
            writer.WriteEndTag("html")
            writer.EndFile()

        End Sub
        Protected Overridable Sub RenderPreControl(ByVal writer As HtmlMobileTextWriter, ByVal form As Form)

            writer.Write("<!-- RenderControlの直前 -->")

        End Sub



        Private Sub renderPostControl(ByVal writer As HtmlMobileTextWriter, ByVal form As Form)

            writer.Write("<!-- RenderControlの直後 -->")

        End Sub

    End Class
End Namespace