[Mono-list] asp.net with vb.net

Harsh Busa Harsh Busa <harsh.busa@gmail.com>
Mon, 21 Feb 2005 15:40:13 +0530 

------=_Part_4834_10179319.1108980613764
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

hello all 

i have downloaded and installed mono 1.0.6 on novell linux desktop
using bitrock installer.

trying to run following code 
<code>

       <%@ Page Language="VB" %>
       <html>
       <head>
       <script runat="server" >
        Sub Page_Load(s As Object, e As EventArgs)
               lblMessage.Text = "Hello World"
        End Sub
       </script>
       </head>
       <body>
       <form runat="server">
             <asp:Label id="lblMessage" runat="server" />
       </form>
       </body>
       </html>

</code>
~
and it is throwing following error 
<ERROR >
Compilation Error
Description: Error compiling a resource required to service this
request. Review your source file and modify it to fix this error.

Error message: (0,0) : error : THIS IS STILL ALPHA AND UNSUPPORTED
SOFTWARE, USE AT YOUR OWN RISK. /tmp/51317.vb(61,0) : error BC30284:
`ASP.monovb_aspx.AutoHandlers' no suitable properties found to
override (0,0) : error failed: 1 Error(s), 0 warnings

File name: /home/hbusa/bin/monovb.aspx

</ERROR >

The .VB file generated in the temp  is attached , Line 61 where error
is reported is blank .

TIA
 Harsh

-- 
__________________________
http://www.ebackend.com/blog

------=_Part_4834_10179319.1108980613764
Content-Type: text/plain; name=51317.vb.txt; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="51317.vb.txt"

' ------------------------------------------------------------------------------
'  <autogenerated>
'      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.
'  </autogenerated>
' ------------------------------------------------------------------------------

Option Explicit Off
Option Strict On

Imports Microsoft.VisualBasic
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

Namespace ASP
    Public Class monovb_aspx
        Inherits System.Web.UI.Page
        Implements System.Web.SessionState.IRequiresSessionState

        Private Shared __intialized As Boolean = False

        Private Shared __autoHandlers As Integer

        Protected _bctrl_11 As System.Web.UI.HtmlControls.HtmlForm

        Protected lblMessage As System.Web.UI.WebControls.Label

        
Sub Page_Load(s As Object, e As EventArgs)
lblMessage.Text = "Hello World"
End Sub

        Public Sub New()
            If ((ASP.monovb_aspx.__intialized = False)) Then
                ASP.monovb_aspx.__intialized = True
            End If
        End Sub

        Protected Overrides Property AutoHandlers As Integer
            Get
                Return ASP.monovb_aspx.__autoHandlers
            End Get
            Set (Value As Integer)
                ASP.monovb_aspx.__autoHandlers = Value
            End Set
        End Property

        Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
            Get
                Return CType(Me.Context.ApplicationInstance, System.Web.HttpApplication)
            End Get
        End Property

        Public Overrides ReadOnly Property TemplateSourceDirectory As String
            Get
                Return "/"
            End Get
        End Property

        Private Sub __BuildControlTree(__ctrl As System.Web.UI.Control)
            Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl, System.Web.UI.IParserAccessor)
            __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<html>"&Microsoft.VisualBasic.Strings.ChrW(10)&"<head>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(10)&"</head>"&Microsoft.VisualBasic.Strings.ChrW(10)&"<body>"&Microsoft.VisualBasic.Strings.ChrW(10)))
            Me.__BuildControl__bctrl_11()
            __parser.AddParsedSubObject(Me._bctrl_11)
            __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.Strings.ChrW(10)&"</body>"&Microsoft.VisualBasic.Strings.ChrW(10)&"</html>"&Microsoft.VisualBasic.Strings.ChrW(10)))
        End Sub

        Private Function __BuildControl__bctrl_11() As System.Web.UI.Control
            Dim __ctrl As System.Web.UI.HtmlControls.HtmlForm
            __ctrl = New System.Web.UI.HtmlControls.HtmlForm()
            Me._bctrl_11 = __ctrl
            Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl, System.Web.UI.IParserAccessor)
            __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.Strings.ChrW(10)))
            Me.__BuildControl_lblMessage()
            __parser.AddParsedSubObject(Me.lblMessage)
            __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.Strings.ChrW(10)))
            Return __ctrl
        End Function

        Private Function __BuildControl_lblMessage() As System.Web.UI.Control
            Dim __ctrl As System.Web.UI.WebControls.Label
            __ctrl = New System.Web.UI.WebControls.Label()
            Me.lblMessage = __ctrl
            __ctrl.ID = "lblMessage"
            Return __ctrl
        End Function

        Protected Overrides Sub FrameworkInitialize()
            Me.TraceModeValue = System.Web.TraceMode.SortByTime
            Me.Request.ValidateInput()
            Me.__BuildControlTree(Me)
        End Sub

        Public Overrides Function GetTypeHashCode() As Integer
            Return 636667625
        End Function
    End Class
    'Why is the indentation not working correctly here? --> see in mcs/class/System/Micrisoft.VisualBasic/VBCodeGenerator.cs
    'Indent=1
End Namespace
'Indent=0


------=_Part_4834_10179319.1108980613764--