[mono-vb] VBNC error
Rolf Bjarne Kvinge
rolflists at ya.com
Fri May 2 11:39:02 EDT 2008
Hello,
At first sight this looks like the generated code is wrong (the error code
from the compiler is correct, there is no 'DropDownListA' in that class).
Some bugs in the code generator were fixed between 1.2.5.1 and 1.9, however
it's hard to say if this problem was fixed.
I suggest either sending me a test case I can try out on my machine, in
which case I can tell for sure, or just update to 1.9 right away (but I
won't guarantee that 1.9 will fix it J)
Rolf
From: mono-vb-bounces at lists.ximian.com
[mailto:mono-vb-bounces at lists.ximian.com] On Behalf Of Barnett, James K
Sent: viernes, 02 de mayo de 2008 16:42
To: mono-vb at lists.ximian.com
Subject: [mono-vb] VBNC error
Hello again,
Getting another VBNC compilation error.
I am trying to move some asp.net pages from windows to linux on the
mainframe.
We are running Sles 9.3 in 64bit mode under z/VM 5.3 on an IBM z/10.
I upgraded to mono-basic 1.9 but am at 1.2.5.1 for everything else.
Another Comp Error posted on the list, recommended getting everything at
up to 1.2.5 which I am already at or beyond.
However, I am wondering if I should get everything to 1.9 and see if the
error is still there.
Thanks. Let me know what you think.
Here is the error I receive.
Server Error in '/test2' Application
_____
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:
/tmp/wwwrun-temp-aspnet-0/432466b2/38878ece.0.vb(118,44) : error VBNC30456:
'DropDownListA' is not a member of 'ASP.emstest_aspx'.
/tmp/wwwrun-temp-aspnet-0/432466b2/38878ece.0.vb(162,16) : error VBNC30456:
'DropDownListA' is not a member of 'ASP.emstest_aspx'.
File name: /EMSASP/Emily/EMSTEST.aspx
Source File: /tmp/wwwrun-temp-aspnet-0/432466b2/38878ece.0.vb
Line 1:
'---------------------------------------------------------------------------
---
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Mono Runtime Version: 2.0.50727.42
Line 5: '
Line 6: ' Changes to this file may cause incorrect behavior and will be
lost if
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9:
'---------------------------------------------------------------------------
---
Line 10:
Line 11: Option Explicit On
Line 12: Option Strict Off
Line 13:
Line 14: Imports System
Line 15: Imports System.Collections
Line 16: Imports System.Collections.Specialized
Line 17: Imports System.Configuration
Line 18: Imports System.Text
Line 19: Imports System.Text.RegularExpressions
Line 20: Imports System.Web
Line 21: Imports System.Web.Caching
Line 22: Imports System.Web.SessionState
Line 23: Imports System.Web.Security
Line 24: Imports System.Web.Profile
Line 25: Imports System.Web.UI
Line 26: Imports System.Web.UI.WebControls
Line 27: Imports System.Web.UI.WebControls.WebParts
Line 28: Imports System.Web.UI.HtmlControls
Line 29:
Line 30: Namespace ASP
Line 31:
Line 32: Public Class emstest_aspx
Line 33: Inherits _Default
Line 34: Implements System.Web.SessionState.IRequiresSessionState
Line 35:
Line 36: Private Shared __initialized As Boolean = false
Line 37:
Line 38: Protected _bctrl_47 As System.Web.UI.HtmlControls.HtmlHead
Line 39:
Line 40: Protected _bctrl_48 As System.Web.UI.HtmlControls.HtmlTitle
Line 41:
Line 42: Protected _bctrl_49 As
System.Web.UI.WebControls.ListItemCollection
Line 43:
Line 44: Public Sub New()
Line 45: MyBase.New
Line 46: CType(Me, _Default).AppRelativeVirtualPath =
"~/test2/EMSTEST.aspx"
Line 47: If (ASP.emstest_aspx.__initialized = false) Then
Line 48: ASP.emstest_aspx.__initialized = true
Line 49: End If
Line 50: End Sub
Line 51:
Line 52: Protected Overrides ReadOnly Property SupportAutoEvents()
As Boolean
Line 53: Get
Line 54: Return false
Line 55: End Get
Line 56: End Property
Line 57:
Line 58: Protected ReadOnly Property ApplicationInstance() As
System.Web.HttpApplication
Line 59: Get
Line 60: Return CType(Me.Context.ApplicationInstance,
System.Web.HttpApplication)
Line 61: End Get
Line 62: End Property
Line 63:
Line 64: Protected ReadOnly Property Profile() As
System.Web.Profile.DefaultProfile
Line 65: Get
Line 66: Return CType(Me.Context.Profile,
System.Web.Profile.DefaultProfile)
Line 67: End Get
Line 68: End Property
Line 69:
Line 70: Private Sub __BuildControlTree(ByVal __ctrl As
emstest_aspx)
Line 71: Me.InitializeCulture()
Line 72: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 73: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0
Transitional//EN""
""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Microsoft.Visu
alBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(10)&"<html
xmlns=""http://www.w3.org/1999/xhtml"" >"&Microsoft.VisualBasic.ChrW(10)))
Line 74: Me.__BuildControl__bctrl_47()
Line 75: __parser.AddParsedSubObject(Me._bctrl_47)
Line 76: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"<body>"&Micr
osoft.VisualBasic.ChrW(10)&" "))
Line 77: Me.__BuildControl_form1()
Line 78: __parser.AddParsedSubObject(Me.form1)
Line 79: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"</body>"&Mic
rosoft.VisualBasic.ChrW(10)&"</html>"&Microsoft.VisualBasic.ChrW(10)))
Line 80: End Sub
Line 81:
Line 82: Private Function __BuildControl__bctrl_47() As
System.Web.UI.Control
Line 83: Dim __ctrl As System.Web.UI.HtmlControls.HtmlHead
Line 84: __ctrl = New
System.Web.UI.HtmlControls.HtmlHead("head")
Line 85: Me._bctrl_47 = __ctrl
Line 86: Me.__BuildControl__bctrl_48()
Line 87: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 88: __parser.AddParsedSubObject(Me._bctrl_48)
Line 89: Return __ctrl
Line 90: End Function
Line 91:
Line 92: Private Function __BuildControl__bctrl_48() As
System.Web.UI.Control
Line 93: Dim __ctrl As System.Web.UI.HtmlControls.HtmlTitle
Line 94: __ctrl = New System.Web.UI.HtmlControls.HtmlTitle()
Line 95: Me._bctrl_48 = __ctrl
Line 96: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 97: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("Untitled Page"))
Line 98: Return __ctrl
Line 99: End Function
Line 100:
Line 101: Private Function __BuildControl_form1() As
System.Web.UI.Control
Line 102: Dim __ctrl As System.Web.UI.HtmlControls.HtmlForm
Line 103: __ctrl = New System.Web.UI.HtmlControls.HtmlForm()
Line 104: Me.form1 = __ctrl
Line 105: __ctrl.ID = "form1"
Line 106: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl, System.Web.UI.IParserAccessor)
Line 107: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"
<div>"&Microsoft.VisualBasic.ChrW(10)&"
"&Microsoft.VisualBasic.ChrW(10)&"
</div>"&Microsoft.VisualBasic.ChrW(10)&" <table border=""0""
cellpadding=""0"" cellspacing=""0"" style=""width: 100%; height:
100%"">"&Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(10)&" <td align=""center""
style=""height: 20px"">"&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 108: Me.__BuildControl_HeadingLabel()
Line 109: __parser.AddParsedSubObject(Me.HeadingLabel)
Line 110: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(10)&" <td style=""height:
50px"" valign=""top"">"&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 111: Me.__BuildControl_inputTextBox()
Line 112: __parser.AddParsedSubObject(Me.inputTextBox)
Line 113: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 114: Me.__BuildControl_submitButton()
Line 115: __parser.AddParsedSubObject(Me.submitButton)
Line 116: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(" "&Microsoft.VisualBasic.ChrW(10)&"
"))
Line 117: Me.__BuildControl_DropDownListA()
Line 118: __parser.AddParsedSubObject(Me.DropDownListA)
Line 119: Me.__BuildControl_SqlDataSource1()
Line 120: __parser.AddParsedSubObject(Me.SqlDataSource1)
Line 121: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Microsoft.VisualBasic.ChrW(10)&"
</td>"&Microsoft.VisualBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(10)&"
<tr>"&Microsoft.VisualBasic.ChrW(10)&" <td
valign=""top"">"&Microsoft.VisualBasic.ChrW(10)&" "))
Line 122: Me.__BuildControl_resultTextBox()
Line 123: __parser.AddParsedSubObject(Me.resultTextBox)
Line 124: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("</td>"&Microsoft.VisualBasic.ChrW(10)&"
</tr>"&Microsoft.VisualBasic.ChrW(10)&"
</table>"&Microsoft.VisualBasic.ChrW(10)&" "))
Line 125: Return __ctrl
Line 126: End Function
Line 127:
Line 128: Private Function __BuildControl_HeadingLabel() As
System.Web.UI.Control
Line 129: Dim __ctrl As System.Web.UI.WebControls.Label
Line 130: __ctrl = New System.Web.UI.WebControls.Label()
Line 131: Me.HeadingLabel = __ctrl
Line 132: __ctrl.ApplyStyleSheetSkin(Me)
Line 133: __ctrl.Text = "EMS System"
Line 134: __ctrl.Font.Size = New
System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(15,
System.Web.UI.WebControls.UnitType.Point))
Line 135: __ctrl.ID = "HeadingLabel"
Line 136: Return __ctrl
Line 137: End Function
Line 138:
Line 139: Private Function __BuildControl_inputTextBox() As
System.Web.UI.Control
Line 140: Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 141: __ctrl = New System.Web.UI.WebControls.TextBox()
Line 142: Me.inputTextBox = __ctrl
Line 143: __ctrl.ApplyStyleSheetSkin(Me)
Line 144: __ctrl.Width = New System.Web.UI.WebControls.Unit(200,
System.Web.UI.WebControls.UnitType.Pixel)
Line 145: __ctrl.ID = "inputTextBox"
Line 146: Return __ctrl
Line 147: End Function
Line 148:
Line 149: Private Function __BuildControl_submitButton() As
System.Web.UI.Control
Line 150: Dim __ctrl As System.Web.UI.WebControls.Button
Line 151: __ctrl = New System.Web.UI.WebControls.Button()
Line 152: Me.submitButton = __ctrl
Line 153: __ctrl.ApplyStyleSheetSkin(Me)
Line 154: __ctrl.Text = "Submit"
Line 155: __ctrl.ID = "submitButton"
Line 156: Return __ctrl
Line 157: End Function
Line 158:
Line 159: Private Function __BuildControl_DropDownListA() As
System.Web.UI.Control
Line 160: Dim __ctrl As System.Web.UI.WebControls.DropDownList
Line 161: __ctrl = New System.Web.UI.WebControls.DropDownList()
Line 162: Me.DropDownListA = __ctrl
Line 163: __ctrl.ApplyStyleSheetSkin(Me)
Line 164: __ctrl.DataTextField = "IS_ACCT_CD"
Line 165: __ctrl.DataSourceID = "SqlDataSource1"
Line 166: __ctrl.DataValueField = "IS_ACCT_CD"
Line 167: __ctrl.ID = "DropDownListA"
Line 168: Me.__BuildControl__bctrl_49(__ctrl.Items)
Line 169: Return __ctrl
Line 170: End Function
Line 171:
Line 172: Private Sub __BuildControl__bctrl_49(ByVal __ctrl As
System.Web.UI.WebControls.ListItemCollection)
Line 173: End Sub
Line 174:
Line 175: Private Function __BuildControl_SqlDataSource1() As
System.Web.UI.Control
Line 176: Dim __ctrl As System.Web.UI.WebControls.SqlDataSource
Line 177: __ctrl = New System.Web.UI.WebControls.SqlDataSource()
Line 178: Me.SqlDataSource1 = __ctrl
Line 179: __ctrl.SelectCommand = "SELECT IS_ACCT_CD FROM
D5717CHG.IS_ACCOUNT"
Line 180: __ctrl.ConnectionString =
System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionStrin
g("ConnectionString3")
Line 181: __ctrl.ProviderName =
System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionStrin
gProviderName("ConnectionString3")
Line 182: __ctrl.ID = "SqlDataSource1"
Line 183: Return __ctrl
Line 184: End Function
Line 185:
Line 186: Private Function __BuildControl_resultTextBox() As
System.Web.UI.Control
Line 187: Dim __ctrl As System.Web.UI.WebControls.TextBox
Line 188: __ctrl = New System.Web.UI.WebControls.TextBox()
Line 189: Me.resultTextBox = __ctrl
Line 190: __ctrl.ApplyStyleSheetSkin(Me)
Line 191: __ctrl.Width = New System.Web.UI.WebControls.Unit(600,
System.Web.UI.WebControls.UnitType.Pixel)
Line 192: __ctrl.TextMode =
System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 193: __ctrl.Visible = false
Line 194: __ctrl.Height = New
System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Pixel)
Line 195: __ctrl.ReadOnly = true
Line 196: __ctrl.ID = "resultTextBox"
Line 197: Return __ctrl
Line 198: End Function
Line 199:
Line 200: Protected Overrides Sub FrameworkInitialize()
Line 201: MyBase.FrameworkInitialize()
Line 202: Me.TraceModeValue = System.Web.TraceMode.SortByTime
Line 203: Me.Request.ValidateInput()
Line 204: Me.__BuildControlTree(Me)
Line 205: End Sub
Line 206:
Line 207: Public Overrides Function GetTypeHashCode() As Integer
Line 208: Return 2120311146
Line 209: End Function
Line 210: End Class
Line 211: End Namespace
Jim Barnett
United Health Technologies
Mainframe Systems
763-744-3066
email: jim_barnett at uhc.com
This e-mail, including attachments, may include confidential and/or
proprietary information, and may be used only by the person or entity to
which it is addressed. If the reader of this e-mail is not the intended
recipient or his or her authorized agent, the reader is hereby notified
that any dissemination, distribution or copying of this e-mail is
prohibited. If you have received this e-mail in error, please notify the
sender by replying to this message and delete this e-mail immediately.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.ximian.com/pipermail/mono-vb/attachments/20080502/679c7b9b/attachment-0001.html
More information about the Mono-vb
mailing list