Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
'View available attributes for a given shape file Chart.Type = ChartType.Map Chart.TempDirectory = "temp" Chart.ChartArea.Background.Color = Color.FromArgb(255,243,249,255) Dim layer As MapLayer = MapDataEngine.LoadLayer("../../images/MapFiles/canada.shp") Dim line As Integer = 0 For Each attributename As String In layer.AttributeNames If line = 3 Then attributes.Text += attributename & "<br>" line = 0 Else attributes.Text += attributename & ", " line += 1 End If
Previous