' ------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Mono Runtime Version: 1.1.4322.573
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
'
' ------------------------------------------------------------------------------
Namespace ASP
Imports System
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.Caching
Imports System.Web.Security
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.IO
Public Class vb_aspx
Inherits System.Web.UI.Page
Implements System.Web.SessionState.IRequiresSessionState
Private Shared __intialized As Boolean = False
Private Shared __autoHandlers As Integer
Protected FileList As System.Web.UI.WebControls.Label
Public Sub New()
If ((ASP.vb_aspx.__intialized = False)) Then
ASP.vb_aspx.__intialized = True
End If
End Sub
Protected Overrides Property AutoHandlers As Integer
Get
Return ASP.vb_aspx.__autoHandlers
End Get
End Property
Protected NotOverridable Property ApplicationInstance As System.Web.HttpApplication
Get
Return CType(Me.Context.ApplicationInstance, System.Web.HttpApplication)
End Get
End Property
Public Overrides Property TemplateSourceDirectory As String
Get
Return "/"
End Get
End Property
Private NotOverridable Sub __RenderTree(htmlOutput As System.Web.UI.HtmlTextWriter, parameterContainer As System.Web.UI.Control)
htmlOutput.Write("
Welcome to Mono XSP!")
htmlOutput.Write("Welcome to Mono XSP!
")
parameterContainer.Controls.Item(0).RenderControl(htmlOutput)
htmlOutput.Write("
Generated:")
htmlOutput.Write( DateTime.Now )
htmlOutput.Write("")
End Sub
Private NotOverridable Sub __BuildControlTree(__ctrl As System.Web.UI.Control)
Me.__BuildControl_FileList()
Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl, System.Web.UI.IParserAccessor)
__parser.AddParsedSubObject(Me.FileList)
__ctrl.SetRenderMethodDelegate(New System.Web.UI.RenderMethod(Me.__RenderTree))
End Sub
Private NotOverridable Function __BuildControl_FileList() As System.Web.UI.Control
Dim __ctrl As System.Web.UI.WebControls.Label
__ctrl = New System.Web.UI.WebControls.Label()
Me.FileList = __ctrl
__ctrl.ID = FileList
Return __ctrl
End Function
Protected Overrides Sub FrameworkInitialize()
Me.__BuildControlTree(Me)
End Sub
Public Overrides Function GetTypeHashCode() As Integer
Return 1243831665
End Function
End Class
End Namespace