读取xml

读取xml

<?xml version="1.0"?>
<polylines>
<polyline lng="-95.4559164321882" lat="29.7509523707259" />
<polyline lng="-95.4591338344543" lat="29.73721761506" />
<polyline lng="-95.4607425355874" lat="29.7295346432502" />
<polyline lng="-95.4514925040723" lat="29.7303495317912" />
<polyline lng="-95.442376530985" lat="29.7294182300612" />
<polyline lng="-95.4313837399091" lat="29.7300002946555" />
<polyline lng="-95.4215974746831" lat="29.7312808248763" />
<polyline lng="-95.4037677037917" lat="29.7310480024154" />
<polyline lng="-95.3774922519519" lat="29.7329105669729" />
<polyline lng="-95.3707893305642" lat="29.7340746522604" />
<polyline lng="-95.3636842338932" lat="29.7443180202594" />
<polyline lng="-95.3733364406915" lat="29.7506032053308" />
<polyline lng="-95.4559164321882" lat="29.7509523707259" />
</polylines>

Private Sub load_Polygon(ByVal strPolygon As String)
        Dim xmlDoc As New XmlDocument()
        xmlDoc.LoadXml(strPolygon)
        Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("polylines").ChildNodes
        Dim element As XmlElement = Nothing
        Dim lat As Double = 0.0
        Dim lng As Double = 0.0
        Dim iLocation As Microsoft.Maps.MapControl.WPF.Location = Nothing
        oldPolygon.Locations = New LocationCollection()
        For Each node As XmlNode In nodeList
            element = CType(node, XmlElement)
            If String.Equals(element.Name, "polyline") Then
                lat = CDbl(element.GetAttribute("lat"))
                lng = CDbl(element.GetAttribute("lng"))
                iLocation = New Microsoft.Maps.MapControl.WPF.Location(lat, lng)
                oldPolygon.Locations.Add(iLocation)
            End If
        Next
        If iLocation IsNot Nothing Then
            BingMap1.myMap.Center = iLocation
        End If
        oldPolygon.Fill = New SolidColorBrush(Colors.Green)
        oldPolygon.Stroke = New SolidColorBrush(Colors.Black)
        oldPolygon.StrokeThickness = 1
        oldPolygon.Opacity = 0.5
        BingMap1.myMap.Children.Add(oldPolygon)
    End Sub