Visual Basic

Private Sub menuRndr_RenderButtonBackground _
		(sender As Object, e As ToolStripItemRenderEventArgs) _
		Handles Me.RenderButtonBackground
		Try
			If e.ToolStrip.Equals(main.tabs) Then
				Dim p As New Pen(Brushes.Black, 1)

				Dim lgb As New LinearGradientBrush(e.Item.Bounds,
												   Color.SteelBlue,
												   Color.WhiteSmoke,
												   LinearGradientMode.Vertical)

				e.Graphics.FillRectangle(lgb, e.Item.Bounds)

				e.Graphics.DrawRectangle(p,
										 New Rectangle(New Point(e.Item.Bounds.Left, e.Item.Bounds.Top),
													   New Size(e.Item.Bounds.Width, e.Item.Bounds.Height)))
			End If
			MyBase.OnRenderItemBackground(e)
		Catch ex As Exception
			MsgBox(ex.ToString)
		End Try
	End Sub

Hello everyone ,

I am trying to retrieve XML information, I managed to recover the attributes against the childrens (<pre><ToolLine Text="

XML template :

<pre lang="xml">

<?xml version="1.0" encoding="utf-8"?>
<Root>
<ToolsList>
<Tool PartNumber="0018B">
<ToolLine Text=" FI : 3897" />
<ToolLine Text=" PINCE1 Reference : M 22520/2.01" />
<ToolLine Text=" Position : 2.02" />
<ToolLine Text=" Reglage : 7" />
<ToolLine Text=" PINCE2 Reference: M 22520/7.01" />
</Tool>
</ToolsList>
</Root>

Code C#:

<pre lang="vb">Imports System.IO
Imports System.Xml
Module ParsingUsingXmlDocument
Sub Main()
Try
Dim m_xmld As XmlDocument
Dim m_nodelist As XmlNodeList
Dim m_node As XmlNode
'Create the XML Document
m_xmld = New XmlDocument()
'Load the Xml file
m_xmld.Load("D:\Users\Desktop\Xml to excel chahine\U881A1013_105_A_PREP_1.xml")
m_nodelist = m_xmld.SelectNodes("/Root/ToolsList/PartNumber")
'Loop through the nodes
For Each m_node In m_nodelist
Dim partnumber = m_node.Attributes.GetNamedItem("PartNumber").Value
'Get the firstName Element Value
Dim text1 = m_node.ChildNodes.Item(0).InnerText
Dim text2 = m_node.ChildNodes.Item(1).InnerText
Dim text3 = m_node.ChildNodes.Item(2).InnerText
Dim text4 = m_node.ChildNodes.Item(3).InnerText
Console.Write("partnumber: " & partnumber _
& " text1: " & text1 & " text3: " _
& text3)
Console.Write(vbCrLf)
Next
Catch errorVariable As Exception
'Error trapping
Console.Write(errorVariable.ToString())
End Try
End Sub
End Module

if you have any ideas do not hesitate to help me, thanks in advance

after a question how can I implement this information on an excel file

I have written two simple classes (clsMessage and clsHello). I create an instance of clsMessage and call the Message1 function passing the specific clsHello class that exposes the correct MessagBox to me. When call then Message2 function passing a generic object that expose the correct MessageBox.

these are the classes:

Public Class clsMessage
    Public Function Message1(Of T As {clsHello, IHello})(ByVal value As String) As T
        Return (New clsHello(value))
    End Function
    Public Function Message2(Of T)(ByVal value As String) As T
        Return DirectCast((New clsHello(value)), Object)
    End Function
End Class

Public Class clsHello
     Implements IHello

     Dim _value As String
     Sub New(ByVal value As String)
         _value = value
     End Sub

     Public Sub Hello() Implements IHello.Hello
         Call MsgBox(String.Concat("Hello: ", _value))
     End Sub
End Class

Public Interface IHello
     Sub Hello()
End Interface

these are code that works:

Dim objMessage As New clsMessage
Dim objHelloSpecific As clsHello = objMessage.Message1(Of clsHello)("My name specific")
objHelloSpecific.Hello()
objHelloSpecific = Nothing
Dim objHelloGeneric As Object = objMessage.Message2(Of Object)("My name generic")
objHelloGeneric.Hello
objHelloGeneric = Nothing
objMessage = Nothing

But if using reflection not works and I don't know how to write the invoke method:

Dim typMessage As System.Type = Reflection.Assembly.GetExecutingAssembly.GetType("WindowsApplication1.clsMessage")
Dim typHello As System.Type = Reflection.Assembly.GetExecutingAssembly.GetType("WindowsApplication1.clsHello")
Dim refMessage As Object = typMessage.GetConstructor({}).Invoke({})
Dim funHelloSpcecific As Reflection.MethodInfo = typMessage.GetMethod("Message1")
Dim funHelloGeneric As Reflection.MethodInfo = typMessage.GetMethod("Message2")
Try
    Dim refHelloSpecific As Object = funHelloSpcecific.Invoke(Nothing, {"My name specific"})
    refHelloSpecific.Hello()
    refHelloSpecific = Nothing
Catch ex As Exception
    Call MsgBox(String.Concat("refHelloSpecific: ", ex.Message))
End Try
funHelloSpcecific = Nothing
Try
    Dim refHelloGeneric As Object = funHelloGeneric.Invoke(Nothing, {"My name generic"})
    refHelloGeneric.Hello
    refHelloGeneric = Nothing
Catch ex As Exception
    Call MsgBox(String.Concat("refHelloGeneric: ", ex.Message))
End Try
funHelloGeneric = Nothing
refMessage = Nothing
typHello = Nothing
typMessage = Nothing

The error is: Impossibile eseguire operazioni con associazione tardiva in tipi o metodi per i quali ContainsGenericParameters è true (Late bound operations cannot be performed on types or methods for which ContainsGenericParameters is true)

question: can someone help me to write the invoke method correctly? thank you.
Giorgio