Nabble - Mono - VB

Re: Bug

2009-11-19T05:55:15Z

Hi,

> Every page should by default include the namespace System.Web.UI.WebControls
> because when you declare RowDataBound in every version of Visual
> studio, you just write Sub gvCurrentNavigation_RowDataBound(ByVal sender As Object, ByVal e As
> GridViewRowEventArgs)
>
> Note that it is GridViewRowEventArgs And not
> System.Web.UI.WebControls.GridViewRowEventArgs
> and System.Web.UI.WebControls is not included anywhere.
> plus normally you can also just declare Dim x as Button, and not
> Dim x as System.Web.UI.WebControls.Button
>
>
> Also if you have a
> Partial Class admin
> Inherits System.Web.UI.Page
> then this class includes the page namespace, and I shouldn't have to
> add System.Web.UI. in front of everytime I have the "Page" statement
> somewhere in my codebehind.
>
> In the same chapter goes:
> HttpContext for mono it's System.Web.HttpContext
> If you have an ASP.NET application in Visual Studio, this includes the
> namespace System.Web.
> so you don't have to write System.Web. in front of it everywhere.

Good idea, I'll try to fix this.

> Microsoft.Jscript.GlobalObject.escape does not exist
> It is a core function, since it's the only place where there is a 1:1
> equivalent of the javascript escape function. Without this function,
> you cannot JavaScript escape a string, which means you are unable to create
> a javascript messagebox which outputs vb.net exceptions.
>
> I suggest incorporating the google v8 javascript engine.
> Then you have complete support for any javascript function, you simply
> have to make an interface to it, which is not difficult, at least not
> for this one function.

I just had a look and it's there, you just have to add a reference to Microsoft.JScript.dll

> Another issue:
> Declaring this in the aspx:
> <asp:Button ID="btnNewNodeOK" runat="server" Text="OK" />
>
> Then, btnNewNodeOK can be perfectly handled with
> Protected Sub btnNewNodeOK_Click(ByVal sender As Object, ByVal e As
> System.EventArgs) Handles btnNewNodeOK.Click
>
> note the handles clause.
>
> It cannot be that I have to add every OnClick="btnNewNodeOK" and remove
> the handles statement from the codebehind for all my buttons or any
> other control's events, like linkbuttons.

You shouldn't have to do that, why do you think so?

> If I have to do that, I can just as well rewrite the entire code in
> PHP, which would be better anyway, but I just don't have the time.
>
>
> And then there is another thing:
> My treeview serialzation gives a bug:
> unimplemented compiler feature. Please file a bug report.
>
> Here all the code in question

Could you please attach the files to the mail instead of copy-paste them into the body? Your mailer has wrapped the lines, and it's not valid VB code anymore.

Rolf

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Bug

2009-11-19T00:55:58Z

Every page should by default include the namespace System.Web.UI.WebControls
because when you declare RowDataBound in every version of Visual studio,
you just write
Sub gvCurrentNavigation_RowDataBound(ByVal sender As Object, ByVal e As
GridViewRowEventArgs)

Note that it is GridViewRowEventArgs
And not
System.Web.UI.WebControls.GridViewRowEventArgs
and System.Web.UI.WebControls is not included anywhere.
plus normally you can also just declare Dim x as Button, and not
Dim x as System.Web.UI.WebControls.Button

Also if you have a
Partial Class admin
Inherits System.Web.UI.Page
then this class includes the page namespace, and I shouldn't have to add
System.Web.UI. in front of everytime I have the "Page" statement
somewhere in my codebehind.

In the same chapter goes:
HttpContext
for mono it's System.Web.HttpContext
If you have an ASP.NET application in Visual Studio, this includes the
namespace System.Web.
so you don't have to write System.Web. in front of it everywhere.

Microsoft.Jscript.GlobalObject.escape does not exist
It is a core function, since it's the only place where there is a 1:1
equivalent of the javascript escape function. Without this function, you
cannot JavaScript escape a string, which means you are unable to create
a javascript messagebox which outputs vb.net exceptions.

I suggest incorporating the google v8 javascript engine.
Then you have complete support for any javascript function, you simply
have to make an interface to it, which is not difficult, at least not
for this one function.

Another issue:
Declaring this in the aspx:
<asp:Button ID="btnNewNodeOK" runat="server" Text="OK" />

Then, btnNewNodeOK can be perfectly handled with
Protected Sub btnNewNodeOK_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnNewNodeOK.Click

note the handles clause.

It cannot be that I have to add every OnClick="btnNewNodeOK" and remove
the handles statement from the codebehind for all my buttons or any
other control's events, like linkbuttons.
If I have to do that, I can just as well rewrite the entire code in PHP,
which would be better anyway, but I just don't have the time.

And then there is another thing:
My treeview serialzation gives a bug:
unimplemented compiler feature. Please file a bug report.

Here all the code in question
Class Debug is for the escape function
all others contain whatever leads to the unimplemented feature error

Imports Microsoft.VisualBasic
'Imports System
'Imports System.Data
'Imports System.Configuration
'Imports System.Web
'Imports System.Web.Security
'Imports System.Web.UI

Imports System.Web.Mail

Namespace MyName

Public Class Debug

Public Class MessageBox
Public Shared Sub Show(ByRef objMessage As Object, Optional ByRef
strTitle As String = Nothing)
Dim strMessage As String = CStr(objMessage)
Dim pgCallingPage As Page = TryCast(HttpContext.Current.Handler, Page)
If pgCallingPage IsNot Nothing Then
strMessage = Microsoft.JScript.GlobalObject.escape(strMessage) '
Reference Microsoft.JScript.dll in the project reference
strMessage = "<script type=""text/javascript""
language=""javascript"">alert(unescape(""" + strMessage + """));</script>"
pgCallingPage.ClientScript.RegisterStartupScript(pgCallingPage.GetType(),
System.Guid.NewGuid().ToString(), strMessage, False)
End If
End Sub
End Class

Public Shared Sub MsgBox(ByRef objMessage As Object, Optional ByRef
strTitle As String = Nothing)
MessageBox.Show(objMessage, strTitle)
End Sub

Public Shared Sub WriteLine(ByRef objMessage As Object)
Dim strMessage As String = CStr(objMessage)
HttpContext.Current.Response.Write(" " + HttpContext.Current.Server.HtmlEncode(strMessage)
+ " ")
End Sub

Public Shared Sub SendMail()
Dim objSmtpMail As System.Net.Mail.SmtpClient = New
System.Net.Mail.SmtpClient
Dim Mailmsg As New System.Net.Mail.MailMessage
Mailmsg.To.Clear()

'Mailmsg.To.Add(New System.Net.Mail.MailAddress("To Name
<toname@...>")) ' Environment.UserName & "@knowdotnet.com"
Mailmsg.To.Add(New System.Net.Mail.MailAddress("somebody@...",
"Prename Name", System.Text.Encoding.UTF8))
'Mailmsg.To.Add(New System.Net.Mail.MailAddress("recipient2@..."))
'Mailmsg.From = New System.Net.Mail.MailAddress("From Name
<fromname@...>")
Mailmsg.From = New System.Net.Mail.MailAddress("somebody@...",
"Prename Name", System.Text.Encoding.UTF8)
'Mailmsg.CC.Add(New System.Net.Mail.MailAddress("CarbonCopy@..."))
'Mailmsg.Bcc.Add(New
System.Net.Mail.MailAddress("BlindCarbonCopy@..."))

Mailmsg.Subject = "(subject text)"
'Mailmsg.Body = "(message text here)"
Mailmsg.Body = "<HTML><body><H1>Error: </H1>Error
description</body></HTML>"
Mailmsg.IsBodyHtml = True 'set the content to HTML, and not plain text only

Mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mailmsg.SubjectEncoding = System.Text.Encoding.UTF8
Mailmsg.Priority = System.Net.Mail.MailPriority.Low

'Dim strFileNameAndPath As String =
HttpContext.Current.Server.MapPath("myEmails") & "\Mypic.jpg"
'Dim objAttachment As Net.Mail.Attachment = New
Net.Mail.Attachment(strFileNameAndPath)
'Mailmsg.Attachments.Add(objAttachment)

Try
objSmtpMail.Timeout = 15000
' Pass the credentials if the server requires the client to authenticate
before it will send e-mail on the client's behalf.
objSmtpMail.Credentials =
System.Net.CredentialCache.DefaultNetworkCredentials

Dim objSMTPuser As New System.Net.NetworkCredential()
objSMTPuser.UserName = "username"
objSMTPuser.Password = "password"
objSMTPuser.Domain = "smtp.tiscalinet.ch"

objSmtpMail.UseDefaultCredentials = False
'objSmtpMail.Credentials = objSMTPuser
objSmtpMail.Port = 25
objSmtpMail.Host = "smtp.tiscalinet.ch"
objSmtpMail.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

'
objSmtpMail.Send(Mailmsg)
'objSmtpMail.Send(From, To, Subject, Body)
'objSmtpMail.Send(Environment.UserName & "@knowdotnet.com",
"EmailAddress", "Subject", "Message")

' Async
'http://msdn.microsoft.com/de-de/library/system.net.mail.smtpclient.aspx
'http://msdn.microsoft.com/de-de/library/cc749732.aspx
'http://msdn.microsoft.com/de-de/library/cc749732.aspx#XSLTsection128121120120
'The userState can be any object that allows your callback
'method to identify this send operation.
'For this example, the userToken is a string constant.
'Dim strUserState As String = "test message1"
'AddHandler objSmtpMail.SendCompleted, AddressOf MailSendCompletedCallback
'objSmtpMail.SendAsync(Mailmsg, strUserState)

Catch ex As Exception
HttpContext.Current.Response.Write("Error: " & ex.ToString())
Finally
' Clean up.
Mailmsg.Dispose()
Mailmsg = Nothing
End Try

'System.Net.Mail reads SMTP configuration data out of the standard .NET
configuration system
'(so for ASP.NET applications you’d configure this in your application’s
web.config file).
'Here is an example of how to configure it:

'<system.net>
' <mailSettings>
' <smtp from="test@...">
' <network host="smtpserver1" port="25" userName="username"
password="secret" defaultCredentials="true" />
' </smtp>
' </mailSettings>
' </system.net>

End Sub

End Class

End Namespace

--- Start Treeview XML datasource ---
<?xml version="1.0" encoding="utf-16"?>
<node text="Altersheime der Stadt Zürich"
value="c6f5ab9e-d08f-448a-9143-02d174317c07"
navigateurl="javascript:SetUrl('./shownode.aspx?GUID=c6f5ab9e-d08f-448a-9143-02d174317c07');"
populateondemand="False" showcheckbox="false" checked="False"
expanded="True" selected="False">
<node text="Altersheim Wildbach"
value="f28df8d9-f83f-494c-a88e-591c7266c455"
navigateurl="javascript:SetUrl('./shownode.aspx?GUID=f28df8d9-f83f-494c-a88e-591c7266c455');"
populateondemand="False" showcheckbox="false" checked="False"
expanded="True" selected="False">
<node text="Musterzimmer 203"
value="31360723-0be2-47e5-814c-4837c174c9a1"
navigateurl="javascript:SetUrl('./raumplaner.aspx?raum=31360723-0be2-47e5-814c-4837c174c9a1');"
populateondemand="False" showcheckbox="false" checked="False"
expanded="True" selected="False" />
<node text="Musterzimmer 211"
value="5accd32f-7a85-46de-99a3-0853843b4e99"
navigateurl="javascript:SetUrl('./raumplaner.aspx?raum=5accd32f-7a85-46de-99a3-0853843b4e99');"
populateondemand="False" showcheckbox="false" checked="False"
expanded="True" selected="False" />
<node text="Musterzimmer 511"
value="67774365-233b-4176-93f4-65c4e4953daa"
navigateurl="javascript:SetUrl('./raumplaner.aspx?raum=67774365-233b-4176-93f4-65c4e4953daa');"
populateondemand="False" showcheckbox="false" checked="False"
expanded="True" selected="False" />
</node>
</node>

--- End XML

Imports Microsoft.VisualBasic

Namespace MyName.XML
''' <summary>
''' Serializes and deserializes a TreeView
''' </summary>
Public Class TreeViewSerializer

' XML tag for node, e.g. 'node' in case of <node></node>
Private Const cstrXmlNodeTag As String = "node"
' XML attributes for node e.g. <node text="Asia" tag=""
imageindex="1"></node>
Private Const cstrXmlNodeTextAtt As String = "text"
Private Const cstrXmlNodeToolTipAtt As String = "tooltip"
Private Const cstrXmlNodeTargetAtt As String = "target"
Private Const cstrXmlNodeValueAtt As String = "value"
Private Const cstrXmlNodeNavigateUrl As String = "navigateurl"
Private Const cstrXmlNodeImageUrlAtt As String = "imageurl"
Private Const cstrXmlNodeImageToolTipAtt As String = "imagetooltip"

Private Const cstrXmlNodePopulateOnDemandAtt As String = "populateondemand"
Private Const cstrXmlNodeShowCheckBoxAtt As String = "showcheckbox"
Private Const cstrXmlNodeCheckedAtt As String = "checked"
Private Const cstrXmlNodeExpandedAtt As String = "expanded"
Private Const cstrXmlNodeSelectedAtt As String = "selected"

Public Sub New()
' TODO: Add a constructor here
End Sub

Public Sub SaveTreeViewToXMLfile(ByRef tvTreeView As TreeView, ByRef
strFileNameAndPath As String)
Dim xtrXMLtextWriter As New System.Xml.XmlTextWriter(strFileNameAndPath,
System.Text.Encoding.Unicode)
xtrXMLtextWriter.Formatting = System.Xml.Formatting.Indented
xtrXMLtextWriter.WriteStartDocument() ' Writing the XML declaration
'xtrXMLtextWriter.WriteStartElement("TreeView") ' Writing the main
element which encloses all node tags
' xtrXMLtextWriter.WriteRaw("\r\n");

' Save the nodes recursively
SaveNodes(tvTreeView.Nodes, xtrXMLtextWriter)

'xtrXMLtextWriter.WriteEndElement()
xtrXMLtextWriter.Close()
End Sub

Private Sub SaveNodes(ByRef tncTreeNodeCollection As TreeNodeCollection,
ByRef xtwXMLtextWriter As System.Xml.XmlTextWriter)
For iNodeIndex As Integer = 0 To tncTreeNodeCollection.Count - 1
Dim tnTreeNode As TreeNode = tncTreeNodeCollection(iNodeIndex)
xtwXMLtextWriter.WriteStartElement(cstrXmlNodeTag)

''''''''''''''''''''''''''''''''''''''''''''''''''''
' Write TreeNode Attributes to XML file
''''''''''''''''''''''''''''''''''''''''''''''''''''
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeTextAtt, tnTreeNode.Text)

If Not String.IsNullOrEmpty(tnTreeNode.ToolTip) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeToolTipAtt,
tnTreeNode.ToolTip.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.Target) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeTargetAtt,
tnTreeNode.Target.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.Value) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeValueAtt,
tnTreeNode.Value.ToString())
End If

If String.IsNullOrEmpty(tnTreeNode.NavigateUrl) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeNavigateUrl, "")
Else
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeNavigateUrl,
tnTreeNode.NavigateUrl.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.ImageUrl) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeImageUrlAtt,
tnTreeNode.ImageUrl.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.ImageToolTip) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeImageToolTipAtt,
tnTreeNode.ImageToolTip.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.PopulateOnDemand) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodePopulateOnDemandAtt,
tnTreeNode.PopulateOnDemand.ToString())
End If

'If tnTreeNode.ShowCheckBox IsNot Nothing Then
'xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeShowCheckBoxAtt,
tnTreeNode.ShowCheckBox.ToString())
'End If

If IsNothing(tnTreeNode.ShowCheckBox) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeShowCheckBoxAtt, "false")
Else
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeShowCheckBoxAtt,
tnTreeNode.ShowCheckBox.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.Checked) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeCheckedAtt,
tnTreeNode.Checked.ToString())
End If

'If tnTreeNode.Expanded IsNot Nothing Then
'xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeExpandedAtt,
tnTreeNode.Expanded.ToString())
'End If

If IsNothing(tnTreeNode.Expanded) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeExpandedAtt, "false")
Else

xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeExpandedAtt,
tnTreeNode.Expanded.ToString())
End If

If Not String.IsNullOrEmpty(tnTreeNode.Selected) Then
xtwXMLtextWriter.WriteAttributeString(cstrXmlNodeSelectedAtt,
tnTreeNode.Selected.ToString())
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''
' Todo:
' Add other node properties for serialization here
''''''''''''''''''''''''''''''''''''''''''''''''''''

If tnTreeNode.ChildNodes.Count > 0 Then
SaveNodes(tnTreeNode.ChildNodes, xtwXMLtextWriter)
End If
xtwXMLtextWriter.WriteEndElement()
Next
End Sub

Public Sub LoadXMLfileIntoTreeView(ByRef tvTreeView As TreeView, ByRef
strFileNameAndPath As String)
Dim xtrXMLtextReader As System.Xml.XmlTextReader = Nothing
Try
' Disabling re-drawing of treeview 'till all nodes are added
' TreeView.BeginUpdate()
xtrXMLtextReader = New System.Xml.XmlTextReader(strFileNameAndPath)

Dim tnParentNode As TreeNode = Nothing
While xtrXMLtextReader.Read()
Select Case xtrXMLtextReader.NodeType
Case System.Xml.XmlNodeType.XmlDeclaration,
System.Xml.XmlNodeType.Whitespace
Continue While ' Ignore, that's faster
Case System.Xml.XmlNodeType.Element
If xtrXMLtextReader.Name = cstrXmlNodeTag Then
Dim tnNewTreeNode As New TreeNode()
Dim bisEmptyElement As Boolean = xtrXMLtextReader.IsEmptyElement

' Loading attributes for node
Dim iAttributeCount As Integer = xtrXMLtextReader.AttributeCount
If iAttributeCount > 0 Then
For iAttributeCounter As Integer = 0 To iAttributeCount - 1
xtrXMLtextReader.MoveToAttribute(iAttributeCounter)

SetAttributeValue(tnNewTreeNode, xtrXMLtextReader.Name,
xtrXMLtextReader.Value)
Next
End If

' Add a new node to Parent Node or TreeView
If tnParentNode IsNot Nothing Then
tnParentNode.ChildNodes.Add(tnNewTreeNode)
Else
tvTreeView.Nodes.Add(tnNewTreeNode)
End If

' Making the current node the 'ParentNode' if it's not empty
If Not bisEmptyElement Then
tnParentNode = tnNewTreeNode
End If
End If
' Moving up to in TreeView if end tag is encountered
Case System.Xml.XmlNodeType.EndElement
If xtrXMLtextReader.Name = cstrXmlNodeTag Then
tnParentNode = tnParentNode.Parent
End If
Case System.Xml.XmlNodeType.None
'Exit Sub
Continue While
Case System.Xml.XmlNodeType.Text
Dim tnNewTreeNode As System.Web.UI.WebControls.TreeNode = New
System.Web.UI.WebControls.TreeNode
tnNewTreeNode.Text = xtrXMLtextReader.Value
tnParentNode.ChildNodes.Add(tnNewTreeNode)
End Select

End While

Catch ex As Exception
HttpContext.Current.Response.Write("Exception in
LoadXMLfileIntoTreeView. Description: " + ex.Message)
Finally
' Enabling redrawing of treeview after all nodes are added
' TreeView.EndUpdate()
xtrXMLtextReader.Close()
End Try
End Sub

''' <summary>
''' Used by the LoadXmlFileIntoTreeView method for setting properties of
TreeNode from the attributes of the XML node
''' </summary>
''' <param name="tnThisNode"></param>
''' <param name="strPropertyName"></param>
''' <param name="strValue"></param>
Private Sub SetAttributeValue(ByRef tnThisNode As TreeNode, ByRef
strPropertyName As String, ByRef strValue As String)
Select Case strPropertyName
Case cstrXmlNodeTextAtt
tnThisNode.Text = strValue
Case cstrXmlNodeImageUrlAtt
tnThisNode.ImageUrl = strValue
Case cstrXmlNodeToolTipAtt
tnThisNode.ToolTip = strValue
Case cstrXmlNodeTargetAtt
tnThisNode.Target = strValue
Case cstrXmlNodeValueAtt
tnThisNode.Value = strValue
Case cstrXmlNodeNavigateUrl
tnThisNode.NavigateUrl = strValue
Case cstrXmlNodeImageUrlAtt
tnThisNode.ImageUrl = strValue
Case cstrXmlNodeImageToolTipAtt
tnThisNode.ImageToolTip = strValue
Case cstrXmlNodePopulateOnDemandAtt
tnThisNode.PopulateOnDemand = strValue
Case cstrXmlNodeShowCheckBoxAtt
tnThisNode.ShowCheckBox = strValue
Case cstrXmlNodeCheckedAtt
tnThisNode.Checked = strValue
Case cstrXmlNodeExpandedAtt
tnThisNode.Expanded = strValue
Case cstrXmlNodeSelectedAtt
tnThisNode.Selected = strValue
End Select
End Sub

Public Sub LoadXmlFileInTreeView(ByVal tvTreeView As TreeView, ByVal
strFileNameAndPath As String)
Dim xtrXMLtextReader As System.Xml.XmlTextReader = Nothing
Try
' tvTreeView.BeginUpdate()
xtrXMLtextReader = New System.Xml.XmlTextReader(strFileNameAndPath)

Dim tnCurrentSelectedTreeNode As New TreeNode(strFileNameAndPath)
tvTreeView.Nodes.Add(tnCurrentSelectedTreeNode)
While xtrXMLtextReader.Read()

Select Case xtrXMLtextReader.NodeType
Case System.Xml.XmlNodeType.XmlDeclaration,
System.Xml.XmlNodeType.Whitespace
Continue While ' Ignore, that's faster
Case System.Xml.XmlNodeType.Element
Dim bisEmptyElement As Boolean = xtrXMLtextReader.IsEmptyElement
Dim sbCurrentItemString As New System.Text.StringBuilder()
sbCurrentItemString.Append(xtrXMLtextReader.Name)
Dim iAttributeCount As Integer = xtrXMLtextReader.AttributeCount
If iAttributeCount > 0 Then
sbCurrentItemString.Append(" ( ")
For iAttributeCounter As Integer = 0 To iAttributeCount - 1
If iAttributeCounter <> 0 Then
sbCurrentItemString.Append(", ")
End If
xtrXMLtextReader.MoveToAttribute(iAttributeCounter)
sbCurrentItemString.Append(xtrXMLtextReader.Name)
sbCurrentItemString.Append(" = ")
sbCurrentItemString.Append(xtrXMLtextReader.Value)
Next
sbCurrentItemString.Append(" ) ")
End If

If bisEmptyElement Then
Dim tnNewTreeNode1 As System.Web.UI.WebControls.TreeNode = New
System.Web.UI.WebControls.TreeNode
tnNewTreeNode1.Text = sbCurrentItemString.ToString()
tnCurrentSelectedTreeNode.ChildNodes.Add(tnNewTreeNode1)
Else
Dim tnNewTreeNode2 As System.Web.UI.WebControls.TreeNode = New
System.Web.UI.WebControls.TreeNode
tnNewTreeNode2.Text = sbCurrentItemString.ToString()
tnCurrentSelectedTreeNode.ChildNodes.Add(tnNewTreeNode2)
tnCurrentSelectedTreeNode = tnNewTreeNode2
End If
Case System.Xml.XmlNodeType.EndElement
If Not tnCurrentSelectedTreeNode.Depth = 0 Then ' And if it is not the
root node...
tnCurrentSelectedTreeNode = tnCurrentSelectedTreeNode.Parent
End If
Case System.Xml.XmlNodeType.None
Continue While ' Exit Sub
Case System.Xml.XmlNodeType.Text
Dim tnNewTreeNode3 As System.Web.UI.WebControls.TreeNode = New
System.Web.UI.WebControls.TreeNode
tnNewTreeNode3.Text = xtrXMLtextReader.Value
tnCurrentSelectedTreeNode.ChildNodes.Add(tnNewTreeNode3)
End Select

End While
Catch ex As Exception
HttpContext.Current.Response.Write("Exception in
LoadXmlFileInTreeView. Description: " + ex.Message)
Finally
' tvTreeView.EndUpdate()
xtrXMLtextReader.Close()
End Try
End Sub

End Class

End Namespace

Namespace MyName.XMLserialization

Public Class XmlTextWriterIndentedStandaloneNo
Inherits System.Xml.XmlTextWriter

Public Sub New(ByRef w As System.IO.TextWriter)
MyBase.New(w)
Formatting = System.Xml.Formatting.Indented
End Sub

Public Sub New(ByRef strFileName As String, ByRef teEncoding As
System.Text.Encoding)
MyBase.New(strFileName, teEncoding)
Formatting = System.Xml.Formatting.Indented
End Sub

Public Sub New(ByRef w As System.IO.Stream, ByRef teEncoding As
System.Text.Encoding)
MyBase.New(w, teEncoding)
Formatting = System.Xml.Formatting.Indented
End Sub

Public Overloads Overrides Sub WriteStartDocument()
' Or suppress by just ommitting WriteStartDocument
MyBase.WriteStartDocument(False) ' False: Standalon="no"
End Sub
End Class

Public Class XMLserializeFacility

Public Shared Sub SerializeToXML(ByRef strFileNameAndPath As String,
ByVal ThisFacility As cFacility)
Dim serializer As New
System.Xml.Serialization.XmlSerializer(GetType(cFacility))

Dim xtwXMLtextWriter As System.Xml.XmlTextWriter = Nothing
Try

xtwXMLtextWriter = New System.Xml.XmlTextWriter(strFileNameAndPath,
System.Text.Encoding.UTF8)
'xtwXMLtextWriter = New
XmlTextWriterIndentedStandaloneNo("C:\Users\username\Desktop\furniture.xml",
System.Text.Encoding.UTF8)

xtwXMLtextWriter.Formatting = System.Xml.Formatting.Indented

Dim ns As New System.Xml.Serialization.XmlSerializerNamespaces()
' Get rid of
' xmlns:xsd = "http://www.w3.org/2001/XMLSchema"
' and
' xmlns:xsi = "http://www.w3.org/2001/XMLSchema-instance"
ns.Add("", "")

serializer.Serialize(xtwXMLtextWriter, ThisFacility, ns)
'serializer.Serialize(xtwXMLtextWriter, MyAppConfig)

xtwXMLtextWriter.Flush()
xtwXMLtextWriter.Close() 'Write the XML to file and close the writer
Catch ex As Exception
Console.WriteLine("Encountered Exception in
MyName.XMLserialization.SerializeToXML()" + vbCrLf + "Details: " +
vbCrLf + ex.Message)
End Try

'Dim swEncodingWriter As System.IO.StreamWriter = New
System.IO.StreamWriter("C:\Users\username\Desktop\furniture.xml", False,
System.Text.Encoding.UTF8)
'serializer.Serialize(swEncodingWriter, MyAppConfig)
'swEncodingWriter.Close()
'swEncodingWriter.Dispose()
End Sub

Public Shared Sub SerializeToXML(ByRef strFileNameAndPath As String,
ByVal FacilityList As System.Collections.Generic.List(Of cFacility))
Dim serializer As New
System.Xml.Serialization.XmlSerializer(GetType(System.Collections.Generic.List(Of
cFacility)))
Dim swEncodingWriter As System.IO.StreamWriter = New
System.IO.StreamWriter(strFileNameAndPath, False, System.Text.Encoding.UTF8)
serializer.Serialize(swEncodingWriter, FacilityList)
swEncodingWriter.Close()
swEncodingWriter.Dispose()
End Sub

' "C:\Users\username\Desktop\furniture.xml"
Public Shared Function DeserializeFromXML(ByRef strFileNameAndPath As
String) As MyName.XMLserialization.cFacility
Dim deserializer As New
System.Xml.Serialization.XmlSerializer(GetType(cFacility))
Dim srEncodingReader As IO.StreamReader = New
IO.StreamReader(strFileNameAndPath, System.Text.Encoding.UTF8)
'Dim textReader As IO.TextReader = New
IO.StreamReader("C:\Users\username\Desktop\furniture.xml")
Dim ThisFacility As cFacility

ThisFacility = DirectCast(deserializer.Deserialize(srEncodingReader),
cFacility)
srEncodingReader.Close()
srEncodingReader.Dispose()

Return ThisFacility
End Function

Public Shared Function DeserializeFromXML1(ByRef strFileNameAndPath As
String) As System.Collections.Generic.List(Of
MyName.XMLserialization.cFacility)
Dim deserializer As New
System.Xml.Serialization.XmlSerializer(GetType(System.Collections.Generic.List(Of
cFacility)))
Dim srEncodingReader As IO.StreamReader = New
IO.StreamReader(strFileNameAndPath, System.Text.Encoding.UTF8)
'Dim textReader As IO.TextReader = New
IO.StreamReader("C:\Users\username\Desktop\furniture.xml")
Dim FacilityList As System.Collections.Generic.List(Of cFacility)
FacilityList = DirectCast(deserializer.Deserialize(srEncodingReader),
System.Collections.Generic.List(Of cFacility))
srEncodingReader.Close()
srEncodingReader.Dispose()

Return FacilityList
End Function

End Class

' Actually there is a more appropriate newsgroup:
' microsoft.public.dotnet.xml
'http://bytes.com/topic/net/answers/102955-xml-serialization-class-attributes
Public Class cPoints
' a named attribute
<System.Xml.Serialization.XmlAttribute("x")> _
Public X As Double = 0.0

<System.Xml.Serialization.XmlAttribute("y")> _
Public y As Double = 0.0
End Class

Public Class cArea
'<area name="1" color="0x999999" alpha="20" strokecolor="0xffffff"
strokealpha="00" showstroke="false">
<System.Xml.Serialization.XmlAttribute("name")> _
Public name As String = "1"

<System.Xml.Serialization.XmlAttribute("color")> _
Public color As String = "0x999999"

<System.Xml.Serialization.XmlAttribute("alpha")> _
Public alpha As Integer = 0

<System.Xml.Serialization.XmlAttribute("strokecolor")> _
Public strokecolor As String = "0xffffff"

<System.Xml.Serialization.XmlAttribute("strokealpha")> _
Public strokealpha As String = "00"

<System.Xml.Serialization.XmlAttribute("showstroke")> _
Public showstroke As Boolean = False

<System.Xml.Serialization.XmlElement("point")> _
Public Area As New System.Collections.Generic.List(Of cPoints)
End Class

Public Class cAreas
<System.Xml.Serialization.XmlElement("area")> _
Public AreaList As New System.Collections.Generic.List(Of cArea)
End Class

Public Class cStock
' <stock id="0" name="" src="images/moebel_2/bett_200_90.swf"
width="0.90" height="2.00" />
<System.Xml.Serialization.XmlAttribute("id")> _
Public id As Integer = 0

<System.Xml.Serialization.XmlAttribute("name")> _
Public name As String = ""

<System.Xml.Serialization.XmlAttribute("src")> _
Public src As String = "DefaultSource"

<System.Xml.Serialization.XmlAttribute("width")> _
Public width As Double = 0.0

<System.Xml.Serialization.XmlAttribute("height")> _
Public height As Double = 0.0
End Class

Public Class cStocks
'<stocks type ="Betten/Nachttische">
<System.Xml.Serialization.XmlAttribute("type")> _
Public type As String = "DefaultFurniture"

<System.Xml.Serialization.XmlElement("stock")> _
Public StockList As New System.Collections.Generic.List(Of cStock)
End Class

Public Class cStocklib
'<stocklib name="M�bel-Bibliothek" icon="images/icons/moebel_icon.jpg">
<System.Xml.Serialization.XmlAttribute("name")> _
Public name As String = "DefaultName"

<System.Xml.Serialization.XmlAttribute("icon")> _
Public icon As String = "DefaultIcon"

<System.Xml.Serialization.XmlElement("stocks")> _
Public Stock As New System.Collections.Generic.List(Of cStocks)
End Class

Public Class cFurniture
'<furniture src ="" posX="" posY="" />
<System.Xml.Serialization.XmlAttribute("src")> _
Public strSource As String

<System.Xml.Serialization.XmlAttribute("posX")> _
Public dPosX As Double

<System.Xml.Serialization.XmlAttribute("posY")> _
Public dPosY As Double

'<System.Xml.Serialization.XmlIgnore()> _
Public Overrides Function ToString() As String
Return "Src: " + strSource + " PosX: " + dPosX.ToString + "PosY: " +
dPosY.ToString
End Function
End Class

Public Class cFurnitureList
<System.Xml.Serialization.XmlElement("furniture")> _
Public Stock As New System.Collections.Generic.List(Of cFurniture)
End Class

Public Class cScale
' a named attribute
<System.Xml.Serialization.XmlAttribute("define")> _
Public dblScale As Double = 0.0
End Class

<System.Xml.Serialization.XmlRoot("facility")> _
Public Class cFacility

<System.Xml.Serialization.XmlIgnore()> _
Public Property Scale() As Double
Get
Return Me._Scale.dblScale
End Get
Set(ByVal value As Double)
Me._Scale.dblScale = value
End Set
End Property

<System.Xml.Serialization.XmlElement("scale")> _
Public _Scale As cScale = New cScale

<System.Xml.Serialization.XmlElement("areas")> _
Public areas As cAreas = New cAreas

<System.Xml.Serialization.XmlElement("stocklib")> _
Public Stocklib As New System.Collections.Generic.List(Of cStocklib)

' the text attribute
'<System.Xml.Serialization.XmlTextAttribute()> _
'Public Type As String = "MeinTyp"
'Public Status As Boolean = False
End Class

End Namespace

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: if Iter isnot nothing then generates exception during compile!

2009-11-16T13:41:44Z

Hi,

> Am Montag, den 16.11.2009, 10:28 +0100 schrieb Rolf Bjarne Kvinge:
> > Hi,
> >
> > You're checking if a structure isnot nothing, which is an error.
> >
> > MS' VB compiler shows this:
> >
> > error BC31419: 'IsNot' requires operands that have reference types,
> but this
> > operand has the value type (...)
> >
> > Rolf
> Hallo Rolf!
>
> I already had this idea, but = and <> did'nt work as well. I succeded
> in
> compiling with isNothing(Iter). But the programm stops now at another
> line, but at the moment I am installing my new computer and I don't
> have
> time to check this out. It is really an adventure to write code without
> code completion and all this comfort of MSVS. I haven't done this for
> about 12 years....
>
> Regard Hans
>
> By the way... How can you compile a Mono-GTK-Project with
> MS-VB-Compiler?

You should be able to just add the gtk assemblies (copy from your linux
machine) as references in VS. That won't run in Windows (for that you'll
have to install gtk# for windows, can be downloaded here:
http://www.go-mono.com/mono-downloads/download.html)

Rolf

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: if Iter isnot nothing then generates exception during compile!

2009-11-16T08:25:27Z

Am Montag, den 16.11.2009, 10:28 +0100 schrieb Rolf Bjarne Kvinge:

> Hi,
>
> You're checking if a structure isnot nothing, which is an error.
>
> MS' VB compiler shows this:
>
> error BC31419: 'IsNot' requires operands that have reference types, but this
> operand has the value type (...)
>
> Rolf

Hallo Rolf!

I already had this idea, but = and <> did'nt work as well. I succeded in
compiling with isNothing(Iter). But the programm stops now at another
line, but at the moment I am installing my new computer and I don't have
time to check this out. It is really an adventure to write code without
code completion and all this comfort of MSVS. I haven't done this for
about 12 years....

Regard Hans

By the way... How can you compile a Mono-GTK-Project with
MS-VB-Compiler?

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: if Iter isnot nothing then generates exception during compile!

2009-11-16T01:28:29Z

Hi,

You're checking if a structure isnot nothing, which is an error.

MS' VB compiler shows this:

error BC31419: 'IsNot' requires operands that have reference types, but this
operand has the value type (...)

Rolf

> -----Original Message-----
> From: mono-vb-bounces@... [mailto:mono-vb-
> bounces@...] On Behalf Of Easy_Rider9999
> Sent: sábado, 14 de noviembre de 2009 21:43
> To: mono-vb@...
> Subject: [mono-vb] if Iter isnot nothing then generates exception
> during compile!
>
>
> I get the following compile Error:
>
> /home/jhmgbl/Projects/prjLinuxInfo/prjLinuxInfo/frmMain.vb (166,32) :
> Error
> VBNC99999: There was an exception during code generation.
>
> /home/jhmgbl/Projects/prjLinuxInfo/prjLinuxInfo/<MyGenerator> (1,1) :
> Error
> VBNC99999: Unexpected error: There has been an internal error in the
> compiler caused by the line: (166,32)
>
> at vbnc.Is_IsNotExpression.GenerateCodeInternal (vbnc.EmitInfo Info)
> [0x0001e] in
> /media/disk/Downloads/Linux/mono-basic-
> 2.4.2/vbnc/vbnc/source/Expressions/BinaryExpressions/Is_IsNotExpression
> .vb:56
> at vbnc.Expression.GenerateCode (vbnc.EmitInfo Info) [0x000dd] in
> /media/disk/Downloads/Linux/mono-basic-
> 2.4.2/vbnc/vbnc/source/Expressions/Expression.vb:195
>
> Compilation took 00:00:02.8174030
>
>
> The Code of this procedure is:
>
> Private Sub xvinfo
> Dim rIter as TreeIter = rootIter
> Dim Iter, lastRIter as TreeIter
> Dim si as new System.Diagnostics.ProcessStartInfo
> si.CreateNoWindow = true
> si.UseShellExecute = false
> si.RedirectStandardOutput = true
> si.FileName = "xvinfo"
> Dim p as process =
> system.diagnostics.process.start(si)
> Dim s as IO.StreamReader = p.StandardOutput
> Dim l as String
> Dim lastSpaces as Integer
> p.start
> Do
> l = s.ReadLine
> if l is nothing then exit Do
> Dim spaces as Integer = 0
> For I as Integer = 2 to 50 Step 2
> if l.startsWith (New String(" "c,I))

then

> spaces = I
> else
> exit For
> end if
> next I
> Dim Diff as Integer = spaces - lastspaces
> if Diff = 2 then
> lastSpaces = spaces
> if Iter isnot nothing then
> lastRIter = RIter
> rIter = Iter
> end if
>
> elseif Diff = -2 then
> rIter =
> Store.Getiter(riter,Store.GetPath(riter).up)
> if rIter is nothing then rIter =

Iter

> end if
> iter = store.AppendValues(RIter,l)
>
> Loop
> p.waitforexit
>
>
> End Sub
>
>
> Regard Hans
> --
> View this message in context: http://old.nabble.com/if-Iter-isnot-
> nothing-then---generates-exception-during-compile%21-
> tp26353710p26353710.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

if Iter isnot nothing then generates exception during compile!

2009-11-14T12:42:58Z

I get the following compile Error:

/home/jhmgbl/Projects/prjLinuxInfo/prjLinuxInfo/frmMain.vb (166,32) : Error VBNC99999: There was an exception during code generation.

/home/jhmgbl/Projects/prjLinuxInfo/prjLinuxInfo/<MyGenerator> (1,1) : Error VBNC99999: Unexpected error: There has been an internal error in the compiler caused by the line: (166,32)

at vbnc.Is_IsNotExpression.GenerateCodeInternal (vbnc.EmitInfo Info) [0x0001e] in /media/disk/Downloads/Linux/mono-basic-2.4.2/vbnc/vbnc/source/Expressions/BinaryExpressions/Is_IsNotExpression.vb:56
at vbnc.Expression.GenerateCode (vbnc.EmitInfo Info) [0x000dd] in /media/disk/Downloads/Linux/mono-basic-2.4.2/vbnc/vbnc/source/Expressions/Expression.vb:195

Compilation took 00:00:02.8174030

The Code of this procedure is:

Private Sub xvinfo
Dim rIter as TreeIter = rootIter
Dim Iter, lastRIter as TreeIter
Dim si as new System.Diagnostics.ProcessStartInfo
si.CreateNoWindow = true
si.UseShellExecute = false
si.RedirectStandardOutput = true
si.FileName = "xvinfo"
Dim p as process = system.diagnostics.process.start(si)
Dim s as IO.StreamReader = p.StandardOutput
Dim l as String
Dim lastSpaces as Integer
p.start
Do
l = s.ReadLine
if l is nothing then exit Do
Dim spaces as Integer = 0
For I as Integer = 2 to 50 Step 2
if l.startsWith (New String(" "c,I)) then
spaces = I
else
exit For
end if
next I
Dim Diff as Integer = spaces - lastspaces
if Diff = 2 then
lastSpaces = spaces
if Iter isnot nothing then
lastRIter = RIter
rIter = Iter
end if

elseif Diff = -2 then
rIter = Store.Getiter(riter,Store.GetPath(riter).up)
if rIter is nothing then rIter = Iter
end if
iter = store.AppendValues(RIter,l)

Loop
p.waitforexit

End Sub

Regard Hans

Re: Redirecting output of console application to stream

2009-11-14T11:41:15Z

Easy_Rider9999 wrote:

I found the Error I misspelled StandardOutput... The German Standart is the same as English standard!!!

This code is working:

Private Sub xvinfo
Dim si as new System.Diagnostics.ProcessStartInfo
si.CreateNoWindow = true
si.UseShellExecute = false
si.RedirectStandardOutput = true
si.FileName = "xvinfo"
Dim p as process = system.diagnostics.process.start(si)
Dim s as IO.StreamReader = p.StandardOutput
Dim l as String
p.start
Do
l = s.ReadLine
if l is nothing then exit Do
Dim iter as TreeIter = store.AppendValues(RootIter,l)
Loop
p.waitforexit

End Sub

Re: Redirecting output of console application to stream

2009-11-14T11:25:44Z

I found the Error I misspelled StandardOutput... The German Standart is the same as English standard!!!

Easy_Rider9999 wrote:

It is not possible to set p.StartInfo.RedirectStandardOutput = true, because this is not implemented. Does anybody know another possibility for getting the output of a console-application?

Regards Hans

I get the following Error:

/home/jhmgbl/Projects/prjLinuxInfo/prjLinuxInfo/frmMain.vb (144,7) : Error VBNC30456: 'RedirectStandartOutput' is not a member of 'System.Diagnostics.ProcessStartInfo'.

I use mono 2.4.2.3.

The Code is:

Private Sub xvinfo
Dim p as new system.diagnostics.process
Dim si as System.Diagnostics.ProcessStartInfo = p.StartInfo
si.CreateNoWindow = true
si.UseShellExecute = false
si.RedirectStandartOutput = true
si.FileName = "xvinfo"
Dim s as IO.StreamReader = p.StandardOutput
Dim l as String
p.start
Do While (l = s.ReadLine) isnot nothing
Dim iter as TreeIter = store.AppendValues(RootIter,l)
Loop
p.waitforexit

End Sub

Re: Re directing output of console application to stream

2009-11-13T17:12:23Z

Hi,

>
> It is not possible to set p.StartInfo.RedirectStandardOutput = true,
> because this is not implemented.

Yes, it's possible because it is implemented.

Now if you can explain exactly what happens when you try to use it, I can
probably help you fix it ;-)

Rolf

> Does anybody know another possibility for
> getting the output of a console-application?
>
> Regards Hans
> --
> View this message in context: http://old.nabble.com/Redirecting-output-
> of-console-application-to-stream-tp26343579p26343579.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Redirecting output of console application to stream

2009-11-13T13:09:57Z

It is not possible to set p.StartInfo.RedirectStandardOutput = true, because this is not implemented. Does anybody know another possibility for getting the output of a console-application?

Regards Hans

Re: used -q on configure

2009-11-03T00:11:43Z

Hi,

This is a forum for Visual Basic-specific issues, and this is really a mono
issue, so you should try asking in the mono-list mailing list.

Sorry for not being able to help you.

Rolf

> -----Original Message-----
> From: mono-vb-bounces@... [mailto:mono-vb-
> bounces@...] On Behalf Of Jude DaShiell
> Sent: lunes, 02 de noviembre de 2009 5:27
> To: mono-vb@...
> Subject: [mono-vb] used -q on configure
>
> So output is much shorter for error.
> root@md:/usr/local/src/mono-142439# ./configure -q --disable-nls
> appending configuration tag "CXX" to libtool
> appending configuration tag "F77" to libtool
> ./configure: line 41368: syntax error near unexpected token `('
> ./configure: line 41368: ` for ac_var in `(set) 2>&1 | sed -n
> 's/^$[a-zA-Z_][a-zA-Z0-9_]*$=.*/\1/p'`; do'
> root@md:/usr/local/src/mono-142439#
>
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

used -q on configure

2009-11-01T20:26:44Z

So output is much shorter for error.
root@md:/usr/local/src/mono-142439# ./configure -q --disable-nls
appending configuration tag "CXX" to libtool
appending configuration tag "F77" to libtool
./configure: line 41368: syntax error near unexpected token `('
./configure: line 41368: ` for ac_var in `(set) 2>&1 | sed -n
's/^$[a-zA-Z_][a-zA-Z0-9_]*$=.*/\1/p'`; do'
root@md:/usr/local/src/mono-142439#

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

bad configure file

2009-11-01T06:01:55Z

For mono-142439 when I tried building for slackware 13.0 I got unexpected
token on line 41368 and it was an error. Is there anything I can fix to
clear this error? That mono package is a prerequisite for the rest of the
stuff like mono-vbnc which I would like to get built and running on a
slackware system if possible. I can generate a typescript file but only
if requested since the output isn't short.

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: what's Mono version support .net 3.5 run at Mac os

2009-10-13T23:15:32Z

i run moma on my computer
on form "Choose the assemblies to analyze"
i choose file myprogram.exe and choose Test Agianst Mono Version = "Mono 2.4(Revised)"
Click Next for go to Step 3
At Step 3 i have Error At "Methods called marked with [MonoTodo]: 2"
How Can i do?

I click View Detail Report
This is Error:
{
void fproduct_Load (Object, EventArgs)
void SqlConnection.set_ConnectionString (string)
persist security info, encrypt, enlist keyword not implemented

void mainform_Load (Object, EventArgs)
void SqlConnection.set_ConnectionString (string)
persist security info, encrypt, enlist keyword not implemented
}

and after i click "see MoMA Issue Descriptions. " on the top page
it open web brownser ,URL"http://www.mono-project.com/MoMA_-_Issue_Descriptions"
How to do?

PS: you don't have to run MoMA on OSX. You can just do so from Windows if it's more convenient for you, it's the same.

Just try it. :)
If you download MoMA, you'll have the latest Mono definitions (ie: 2.4), so your app will be tested against Mono 2.4. You can download older definition files from the MoMA downloads, too, in case you'd like to know if your app may work with older Mono versions.

Note that MoMA telling you your app will work or not is not sufficient, only an indication, you need to actually test it.

Lung wrote:

i think i have to download moma and install it on mac ox and then run program for check and Moma will tell me what's mono version support.True or False

Stifu wrote:

To run your app on OSX, you just have to install Mono there and directly run your exe with it.
I suggest you check out MoMA first though: http://mono-project.com/MoMA

Lung wrote:

i write some program by vb.net 2008 and SQL Server 2008
i want to run my program on Mac os,
How to do it? and what's Mono version support

Re: what's Mono version support .net 3.5 run at Mac os

2009-10-13T01:34:00Z

PS: you don't have to run MoMA on OSX. You can just do so from Windows if it's more convenient for you, it's the same.

Just try it. :)
If you download MoMA, you'll have the latest Mono definitions (ie: 2.4), so your app will be tested against Mono 2.4. You can download older definition files from the MoMA downloads, too, in case you'd like to know if your app may work with older Mono versions.

Note that MoMA telling you your app will work or not is not sufficient, only an indication, you need to actually test it.

i think i have to download moma and install it on mac ox and then run program for check and Moma will tell me what's mono version support.True or False

Stifu wrote:

To run your app on OSX, you just have to install Mono there and directly run your exe with it.
I suggest you check out MoMA first though: http://mono-project.com/MoMA

Lung wrote:

i write some program by vb.net 2008 and SQL Server 2008
i want to run my program on Mac os,
How to do it? and what's Mono version support

Re: what's Mono version support .net 3.5 run at Mac os

2009-10-12T23:20:10Z

Just try it. :)
If you download MoMA, you'll have the latest Mono definitions (ie: 2.4), so your app will be tested against Mono 2.4. You can download older definition files from the MoMA downloads, too, in case you'd like to know if your app may work with older Mono versions.

Note that MoMA telling you your app will work or not is not sufficient, only an indication, you need to actually test it.

i think i have to download moma and install it on mac ox and then run program for check and Moma will tell me what's mono version support.True or False

Stifu wrote:

To run your app on OSX, you just have to install Mono there and directly run your exe with it.
I suggest you check out MoMA first though: http://mono-project.com/MoMA

Lung wrote:

i write some program by vb.net 2008 and SQL Server 2008
i want to run my program on Mac os,
How to do it? and what's Mono version support

Re: what's Mono version support .net 3.5 run at Mac os

2009-10-12T19:23:43Z

i think i have to download moma and install it on mac ox and then run program for check and Moma will tell me what's mono version support.True or False

To run your app on OSX, you just have to install Mono there and directly run your exe with it.
I suggest you check out MoMA first though: http://mono-project.com/MoMA

Lung wrote:

i write some program by vb.net 2008 and SQL Server 2008
i want to run my program on Mac os,
How to do it? and what's Mono version support

Error Message: HTTP 500. System.InvalidOperationException: Process has not been started.

2009-10-08T07:23:05Z

Hi All,

I thought I'd installed the vb compiler but evidentally not:

Process has not been started.
Description: Error processing request.

Error Message: HTTP 500. System.InvalidOperationException: Process has not been started.

System.InvalidOperationException: Process has not been started.
at System.Diagnostics.Process.get_ExitCode () [0x00000]
at (wrapper remoting-invoke-with-check) System.Diagnostics.Process:get_ExitCode ()
at Microsoft.VisualBasic.VBCodeCompiler.CompileFromFileBatch (System.CodeDom.Compiler.CompilerParameters options, System.String[] fileNames) [0x00000]
at Microsoft.VisualBasic.VBCodeCompiler.CompileAssemblyFromFileBatch (System.CodeDom.Compiler.CompilerParameters options, System.String[] fileNames) [0x00000]
at Microsoft.VisualBasic.VBCodeCompiler.CompileFromDomBatch (System.CodeDom.Compiler.CompilerParameters options, System.CodeDom.CodeCompileUnit[] ea) [0x00000]
at Microsoft.VisualBasic.VBCodeCompiler.CompileAssemblyFromDomBatch (System.CodeDom.Compiler.CompilerParameters options, System.CodeDom.CodeCompileUnit[] ea) [0x00000]
at Microsoft.VisualBasic.VBCodeCompiler.CompileAssemblyFromDom (System.CodeDom.Compiler.CompilerParameters options, System.CodeDom.CodeCompileUnit e) [0x00000]
at System.Web.Compilation.CachingCompiler.Compile (System.Web.Compilation.BaseCompiler compiler) [0x00000]
at System.Web.Compilation.BaseCompiler.GetCompiledType () [0x00000]
at System.Web.Compilation.AspGenerator.GetCompiledType () [0x00000]
at System.Web.UI.PageParser.CompileIntoType () [0x00000]
at System.Web.UI.TemplateControlParser.GetCompiledInstance () [0x00000]
at System.Web.UI.PageParser.GetCompiledPageInstance (System.String virtualPath, System.String inputFile, System.Web.HttpContext context) [0x00000]
at System.Web.UI.PageHandlerFactory.GetHandler (System.Web.HttpContext context, System.String requestType, System.String url, System.String path) [0x00000]
at System.Web.HttpApplication.GetHandler (System.Web.HttpContext context) [0x00000]
at System.Web.HttpApplication+<>c__CompilerGenerated1.MoveNext () [0x00000]

Any ideas?

Thanks in advance,
Adam

Re: VBNC Crash

2009-10-08T01:26:04Z

Hi,

>
> Hi,
>
> Im sorry, my bad. I thought i had seen it in VBCompiler page in mono,
> but i guess i was wrong.
>
> >Everything in VB8 (which came with
> > VS2005) is supported, anything newer (VB9 / VS2008) is not.
>
> Well something that occurred to me when i read this. If Methods in VB9
> are not supported, then why am i getting no issues under the "Missing"
> section of the Mono Migration Analyzer? Technically, when you say its not
> supported, shouldn't it mean that those methods are missing from mono?

With VB8 I mean the VB compiler which came with VS2005 (and with VB9 I mean
the VB compiler that came with VS2008). If you compile and run on Windows
you're using MS' VB compiler (vbc), and if you run MoMA on the assemblies
you have then you won't see any problems. However if you copy your web app
to linux and run with mono you're using mono's VB compiler (vbnc), and here
is where the problem comes: it doesn't know how to compile the sources if
you used new features in the VB9 language (extension methods is one of
them).

One way around this is to use precompiled web sites, here are a couple of
links that might help you:

http://www.mono-project.com/Release_Notes_Mono_2.4#Precompiled_Web_Sites
http://gonzalo.name/blog/archive/archive-2009-Feb.html

Rolf

>
> Thanks,
> Vijay.
>
>
> Rolf Bjarne Kvinge-2 wrote:
> >
> > Hi,
> >
> >>
> >> Hi, I have a really large ASP.Net Web application that i need to
> port
> >> into other platforms. The Web app that i'm trying to port is mainly
> > written
> >> in vb, and references a lot of custom dll's that have also been
> written
> >> in
> >> vb. I tried to build the application from bottom up, by creating a
> blank
> >> project that has nothing but a page with a label. Mono Migration
> Analyzer
> >> pointed a few issues with the dll's, which i could find a way
> around, or
> >> temporarily commented out. For testing purposes, i'm using XSP2
> server.
> > The same
> >> set of dll's in a c#web project compiles and displays the page,
> whereas
> >> it
> >> fails to do so in a VB web Project. A lot of investigation with one
> of
> >> the
> > dll's
> >> showed me that Extension Methods was the issue with that particular
> >> dll. But in the VB compiler page in Mono site tells me that
> extension
> > methods do
> >> work.
> >
> > Where exactly did you read this? Because it is not correct, extension
> > methods are not supported in VB yet. Everything in VB8 (which came
> with
> > VS2005) is supported, anything newer (VB9 / VS2008) is not.
> >
> > Rolf
> >
> >>
> >> I would like to know why i get a vbnc crash inspite of the method
> being
> >> supported. Is it something im doing wrong??
> >> Btw im using Mono- 2.4.2.3.
> >>
> >> Any help would be great.
> >>
> >> Thanks,
> >> Vijay.
> >> --
> >> View this message in context: http://www.nabble.com/VBNC-Crash-
> >> tp25749738p25749738.html
> >> Sent from the Mono - VB mailing list archive at Nabble.com.
> >>
> >> _______________________________________________
> >> Mono-vb mailing list
> >> Mono-vb@...
> >> http://lists.ximian.com/mailman/listinfo/mono-vb
> >
> > _______________________________________________
> > Mono-vb mailing list
> > Mono-vb@...
> > http://lists.ximian.com/mailman/listinfo/mono-vb
> >
> >
>
> --
> View this message in context: http://www.nabble.com/VBNC-Crash-
> tp25749738p25783552.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: what's Mono version support .net 3.5 run at Mac os

2009-10-07T23:35:04Z

To run your app on OSX, you just have to install Mono there and directly run your exe with it.
I suggest you check out MoMA first though: http://mono-project.com/MoMA

Lung wrote:

i write some program by vb.net 2008 and SQL Server 2008
i want to run my program on Mac os,
How to do it? and what's Mono version support

what's Mono version support .net 3.5 run at Mac os

2009-10-07T19:08:15Z

i write some program by vb.net 2008 and SQL Server 2008
i want to run my program on Mac os,
How to do it? and what's Mono version support

Re: VBNC Crash

2009-10-07T02:43:52Z

Hi,

Im sorry, my bad. I thought i had seen it in VBCompiler page in mono, but i guess i was wrong.

>Everything in VB8 (which came with
> VS2005) is supported, anything newer (VB9 / VS2008) is not.

Well something that occurred to me when i read this. If Methods in VB9 are not supported, then why am i getting no issues under the "Missing" section of the Mono Migration Analyzer? Technically, when you say its not supported, shouldn't it mean that those methods are missing from mono?

Thanks,
Vijay.

Rolf Bjarne Kvinge-2 wrote:

Hi,

>
> Hi, I have a really large ASP.Net Web application that i need to port
> into other platforms. The Web app that i'm trying to port is mainly
written
> in vb, and references a lot of custom dll's that have also been written in
> vb. I tried to build the application from bottom up, by creating a blank
> project that has nothing but a page with a label. Mono Migration Analyzer
> pointed a few issues with the dll's, which i could find a way around, or
> temporarily commented out. For testing purposes, i'm using XSP2 server.
The same
> set of dll's in a c#web project compiles and displays the page, whereas it
> fails to do so in a VB web Project. A lot of investigation with one of the
dll's
> showed me that Extension Methods was the issue with that particular
> dll. But in the VB compiler page in Mono site tells me that extension
methods do
> work.

Where exactly did you read this? Because it is not correct, extension
methods are not supported in VB yet. Everything in VB8 (which came with
VS2005) is supported, anything newer (VB9 / VS2008) is not.

Rolf

>
> I would like to know why i get a vbnc crash inspite of the method being
> supported. Is it something im doing wrong??
> Btw im using Mono- 2.4.2.3.
>
> Any help would be great.
>
> Thanks,
> Vijay.
> --
> View this message in context: http://www.nabble.com/VBNC-Crash-
> tp25749738p25749738.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@lists.ximian.com
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@lists.ximian.com
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: VBNC Crash

2009-10-05T23:53:18Z

Hi,

>
> Hi, I have a really large ASP.Net Web application that i need to port
> into other platforms. The Web app that i'm trying to port is mainly
written
> in vb, and references a lot of custom dll's that have also been written in
> vb. I tried to build the application from bottom up, by creating a blank
> project that has nothing but a page with a label. Mono Migration Analyzer
> pointed a few issues with the dll's, which i could find a way around, or
> temporarily commented out. For testing purposes, i'm using XSP2 server.
The same
> set of dll's in a c#web project compiles and displays the page, whereas it
> fails to do so in a VB web Project. A lot of investigation with one of the
dll's
> showed me that Extension Methods was the issue with that particular
> dll. But in the VB compiler page in Mono site tells me that extension
methods do
> work.

Where exactly did you read this? Because it is not correct, extension
methods are not supported in VB yet. Everything in VB8 (which came with
VS2005) is supported, anything newer (VB9 / VS2008) is not.

Rolf

>
> I would like to know why i get a vbnc crash inspite of the method being
> supported. Is it something im doing wrong??
> Btw im using Mono- 2.4.2.3.
>
> Any help would be great.
>
> Thanks,
> Vijay.
> --
> View this message in context: http://www.nabble.com/VBNC-Crash-
> tp25749738p25749738.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

VBNC Crash

2009-10-05T05:17:43Z

Hi, I have a really large ASP.Net Web application that i need to port into other platforms. The Web app that i'm trying to port is mainly written in vb, and references a lot of custom dll's that have also been written in vb. I tried to build the application from bottom up, by creating a blank project that has nothing but a page with a label. Mono Migration Analyzer pointed a few issues with the dll's, which i could find a way around, or temporarily commented out. For testing purposes, i'm using XSP2 server. The same set of dll's in a c#web project compiles and displays the page, whereas it fails to do so in a VB web Project. A lot of investigation with one of the dll's showed me that Extension Methods was the issue with that particular dll. But in the VB compiler page in Mono site tells me that extension methods do work.

I would like to know why i get a vbnc crash inspite of the method being supported. Is it something im doing wrong??
Btw im using Mono- 2.4.2.3.

Any help would be great.

Thanks,
Vijay.

Re: Need to run VB .net small app under mono at ARM processor

2009-10-01T07:50:53Z

Rolf Bjarne Kvinge-2 wrote:

Configure might have chosen a different/wrong path, try the following:

./configure --prefix=/opt && make && make install

(note that I'm not certain /opt is the correct path for you, the
Microsoft.VisualBasic.dll assembly will get installed into
$(prefix)/lib/mono/gac/Microsoft.VisualBasic/, so you ensure that prefix is
set to the correct path)

Thanks!
I have tried building from scratch whole mono - did not worked out for me.
But copying to /gac directory of ikpg mono package files from compiled mono-basic did worked!
I have successfully compiled .vb program at ARM processor and now its doing it job via mono.
Thanks a lot!

MONODEVELOP - vb.net web app build failed

2009-10-01T05:21:10Z

Hi all,

i am not able to RUN a simple vb web app on monodevelop

Building: ProjMono (Debug)

Building Solution ProjMono

Building: ProjMono (Debug)

Generating CodeBehind members...

No changes made to CodeBehind classes.

Performing main compilation...

vbnc "-out:C:\Inetpub\wwwroot\ProjMono\ProjMono\bin\ProjMono.dll" -nologo -utf8output -debug:full -optionstrict- -optionexplicit+ -optioncompare:binary -optioninfer- -target:library "-r:C:\Program Files\Mono-2.4.2.3\lib\mono\2.0\System.dll" "-r:C:\Program Files\Mono-2.4.2.3\lib\mono\2.0\System.Web.dll" "-r:C:\Program Files\Mono-2.4.2.3\lib\mono\2.0\System.Xml.dll" "-r:C:\Program Files\Mono-2.4.2.3\lib\mono\2.0\System.Web.Services.dll" "C:\Inetpub\wwwroot\ProjMono\ProjMono\Global.asax.vb" "C:\Inetpub\wwwroot\ProjMono\ProjMono\Default.aspx.vb" "C:\Inetpub\wwwroot\ProjMono\ProjMono\Default.aspx.designer.vb"

Build failed. The system cannot find the file specified

Re: Need to run VB .net small app under mono at ARM processor

2009-10-01T00:47:14Z

Hi,

> Rafael Teixeira wrote:
> >
> > run with mono:
> >
> > mono yourapp.exe
> >
> > hope it helps,
> >
> > Rafael "Monoman" Teixeira
> >
>
> No, I got the same error as at the beginning.
> But now I think I know what is a problem.
> mono package from ipkg was installed via ipkg install and it stays in
> /opt/bin
> but installed mono-basic is placed in another place.

Configure might have chosen a different/wrong path, try the following:

./configure --prefix=/opt && make && make install

(note that I'm not certain /opt is the correct path for you, the
Microsoft.VisualBasic.dll assembly will get installed into
$(prefix)/lib/mono/gac/Microsoft.VisualBasic/, so you ensure that prefix is
set to the correct path)

Rolf

>
> perhaps showing that mono should use visual basic runtime would be a
> good
> idea
> How should I 'show' mono what runtime should it use?
>
> I need to run mono and point him using installed mono-basic runtimes
>
>
> --
> View this message in context: http://www.nabble.com/Need-to-run-VB-
> .net-small-app-under-mono-at-ARM-processor-tp25676975p25693448.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: Need to run VB .net small app under mono at ARM processor

2009-10-01T00:27:39Z

Rafael Teixeira wrote:

run with mono:

mono yourapp.exe

hope it helps,

Rafael "Monoman" Teixeira

No, I got the same error as at the beginning.
But now I think I know what is a problem.
mono package from ipkg was installed via ipkg install and it stays in /opt/bin
but installed mono-basic is placed in another place.

perhaps showing that mono should use visual basic runtime would be a good idea
How should I 'show' mono what runtime should it use?

I need to run mono and point him using installed mono-basic runtimes

Re: Need to run VB .net small app under mono at ARM processor

2009-09-30T15:11:27Z

run with mono:

mono yourapp.exe

hope it helps,

Rafael "Monoman" Teixeira
---------------------------------------
"To be creative means to be in love with life. You can be creative
only if you love life enough that you want to enhance its beauty, you
want to bring a little more music to it, a little more poetry to it, a
little more dance to it."
Osho

On Wed, Sep 30, 2009 at 6:27 PM, Nicodem <nicodempl@...> wrote:

>
>
>
> Easy_Rider9999 wrote:
>>
>>
>>
>> Nicodem wrote:
>>>
>>>
>>> Hi
>>> I have found in ipkg mono only, there is no mono-basic.
>>> Any chance finding compiled for ARM mono-basic?
>>>
>>>
>>>
>> I guess you have to install from source:
>> http://ftp.novell.com/pub/mono/sources/mono-basic/mono-basic-2.4.2.tar.bz2
>> Normally the following procedure is sufficient:
>>
>> sudo -s
>>
>> ./configure && make && make install
>>
>>
>> Regards Hans
>>
>
> Installed. I have vbnc which is a compiler. Recompiled from .vbs file.
> But it makes executable which cannot be run in linux.
> How to run such compiled .exe file?
>
> --
> View this message in context: http://www.nabble.com/Need-to-run-VB-.net-small-app-under-mono-at-ARM-processor-tp25676975p25689344.html
> Sent from the Mono - VB mailing list archive at Nabble.com.
>
> _______________________________________________
> Mono-vb mailing list
> Mono-vb@...
> http://lists.ximian.com/mailman/listinfo/mono-vb
>

_______________________________________________
Mono-vb mailing list
Mono-vb@...
http://lists.ximian.com/mailman/listinfo/mono-vb

Re: Need to run VB .net small app under mono at ARM processor

2009-09-30T14:27:30Z

Easy_Rider9999 wrote:

Nicodem wrote:

Hi
I have found in ipkg mono only, there is no mono-basic.
Any chance finding compiled for ARM mono-basic?

I guess you have to install from source: http://ftp.novell.com/pub/mono/sources/mono-basic/mono-basic-2.4.2.tar.bz2 Normally the following procedure is sufficient:

sudo -s

./configure && make && make install

Regards Hans

Installed. I have vbnc which is a compiler. Recompiled from .vbs file.
But it makes executable which cannot be run in linux.
How to run such compiled .exe file?

Re: Need to run VB .net small app under mono at ARM processor

2009-09-30T12:56:36Z

Nicodem wrote:

Hi
I have found in ipkg mono only, there is no mono-basic.
Any chance finding compiled for ARM mono-basic?

I guess you have to install from source: http://ftp.novell.com/pub/mono/sources/mono-basic/mono-basic-2.4.2.tar.bz2 Normally the following procedure is sufficient:

sudo -s

./configure && make && make install

Regards Hans

Re: Need to run VB .net small app under mono at ARM processor

2009-09-30T12:37:49Z

Easy_Rider9999 wrote:

You need to install mono-basic!

Regards Hans

Hi
I have found in ipkg mono only, there is no mono-basic.
Any chance finding compiled for ARM mono-basic?

Re: Need to run VB .net small app under mono at ARM processor

2009-09-30T08:08:14Z

Nicodem wrote:

** (act.exe:22528): WARNING **: The following assembly referenced from act.exe could not be loaded:
Assembly: Microsoft.VisualBasic (assemblyref_index=1)
Version: 8.0.0.0
Public Key: b03f5f7f11d50a3a
System error: Success

You need to install mono-basic!

Regards Hans

Need to run VB .net small app under mono at ARM processor

2009-09-30T01:32:22Z

Hi

I got installed mono at my ARM based NAS (QNAP).
I have .exe file that was written in VBasic .NET.
When I simply try to run it with:
mono act.exe (name of program)
then I receive an error listed below.
Im totally newbie in mono. Do I start it properly or I cant run .exe file?
What should I do to make it run?

** (act.exe:22528): WARNING **: The following assembly referenced from act.exe could not be loaded:
Assembly: Microsoft.VisualBasic (assemblyref_index=1)
Version: 8.0.0.0
Public Key: b03f5f7f11d50a3a
System error: Success

** (act.exe:22528): WARNING **: Could not load file or assembly 'Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a' or one of its dependencies.

** (act.exe:22528): WARNING **: Missing method Split in assembly act.exe, type Microsoft.VisualBasic.Strings

Unhandled Exception: System.IO.FileNotFoundException: Could not load file or assembly 'Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a' or one of its dependencies.
File name: 'Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'

Re: VB

2009-09-24T02:30:21Z

Hi,

Rishikeshan wrote:

Is there a vb IDE for linux?
How can I contribute to MONO-project (ASP.NET, VB)?

Monodevelop is a lovely IDE, only lacking in that it doesn't have the winforms designer it really really needs (IMO) to be really complete.

Contribute to Mono? Send in patches to the mono-devel list or just submit code! Failing that, you could always contribute by packaging mono for a platform or submit bug reports to Bugzilla...

TTFN

Paul