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