Imports ThinkGeo.MapSuite.Core Imports ThinkGeo.MapSuite.DesktopEdition Imports System Imports System.Globalization Imports System.Windows.Forms Imports System.Collections.ObjectModel Imports ThinkGeo.MapSuite.Core.LineDashStyle Public Class Form1 Dim longitude As Double Dim latitude As Double Dim str_county As String Dim str_town As String Dim str_road As String Dim cross_all As String Dim str_countyid As String Dim startTimeToDraw As Date Dim startTimeToQuery As Date Public Sub New() InitializeComponent() AddHandler WinformsMap1.OverlaysDrawing, AddressOf winformsMap1_OverlaysDrawing AddHandler WinformsMap1.OverlaysDrawn, AddressOf winformsMap1_OverlaysDrawn 'WinformsMap1.DrawingQuality = DrawingQuality.HighSpeed End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load WinformsMap1.MapUnit = GeographyUnit.DecimalDegree WinformsMap1.BackgroundOverlay.BackgroundBrush = New GeoSolidBrush(GeoColor.GeographicColors.ShallowOcean) Dim all_county As New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\twn_county.shp") all_county.ZoomLevelSet.ZoomLevel15.DefaultAreaStyle = AreaStyles.CreateSimpleAreaStyle(GeoColor.StandardColors.PaleGreen, GeoColor.StandardColors.Yellow, 4) all_county.ZoomLevelSet.ZoomLevel15.DefaultAreaStyle.OutlinePen.DashStyle = Dot all_county.ZoomLevelSet.ZoomLevel15.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 all_county.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.CreateSimpleAreaStyle(GeoColor.StandardColors.PaleGreen, GeoColor.StandardColors.Yellow, 2) all_county.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle.OutlinePen.DashStyle = Dot all_county.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level14 Dim all_town As New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\twn_town.shp") all_town.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level01 Dim road_09007 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_09007.shp") road_09007.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09007.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_09007.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_09007.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09007.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_09007.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_09007.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09007.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_09007.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_09007.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09007.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_09007.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_09020 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_09020.shp") road_09020.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09020.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_09020.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_09020.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09020.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_09020.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_09020.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09020.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_09020.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_09020.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_09020.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_09020.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10001 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10001.shp") road_10001.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10001.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10001.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10001.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10001.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10001.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10001.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10001.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10001.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10001.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10001.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10001.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10002 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10002.shp") road_10002.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10002.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10002.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10002.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10002.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10002.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10002.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10002.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10002.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10002.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10002.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10002.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10003 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10003.shp") road_10003.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10003.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10003.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10003.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10003.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10003.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10003.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10003.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10003.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10003.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10003.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10003.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10004 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10004.shp") road_10004.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10004.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10004.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10004.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10004.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10004.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10004.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10004.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10004.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10004.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10004.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10004.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10005 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10005.shp") road_10005.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10005.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10005.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10005.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10005.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10005.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10005.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10005.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10005.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10005.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10005.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10005.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10006 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10006.shp") road_10006.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10006.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10006.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10006.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10006.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10006.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10006.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10006.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10006.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10006.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10006.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10006.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10007 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10007.shp") road_10007.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10007.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10007.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10007.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10007.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10007.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10007.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10007.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10007.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10007.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10007.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10007.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10008 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10008.shp") road_10008.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10008.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10008.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10008.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10008.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10008.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10008.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10008.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10008.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10008.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10008.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10008.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10009 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10009.shp") road_10009.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10009.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10009.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10009.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10009.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10009.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10009.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10009.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10009.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10009.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10009.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10009.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10010 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10010.shp") road_10010.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10010.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10010.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10010.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10010.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10010.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10010.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10010.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10010.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10010.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10010.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10010.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10011 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10011.shp") road_10011.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10011.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10011.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10011.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10011.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10011.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10011.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10011.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10011.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10011.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10011.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10011.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10012 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10012.shp") road_10012.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10012.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10012.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10012.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10012.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10012.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10012.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10012.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10012.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10012.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10012.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10012.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10013 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10013.shp") road_10013.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10013.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10013.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10013.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10013.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10013.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10013.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10013.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10013.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10013.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10013.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10013.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10014 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10014.shp") road_10014.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10014.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10014.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10014.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10014.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10014.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10014.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10014.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10014.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10014.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10014.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10014.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10015 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10015.shp") road_10015.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10015.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10015.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10015.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10015.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10015.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10015.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10015.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10015.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10015.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10015.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10015.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10016 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10016.shp") road_10016.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10016.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10016.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10016.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10016.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10016.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10016.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10016.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10016.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10016.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10016.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10016.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10017 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10017.shp") road_10017.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10017.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10017.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10017.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10017.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10017.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10017.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10017.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10017.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10017.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10017.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10017.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10018 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10018.shp") road_10018.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10018.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10018.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10018.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10018.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10018.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10018.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10018.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10018.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10018.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10018.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10018.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10019 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10019.shp") road_10019.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10019.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10019.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10019.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10019.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10019.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10019.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10019.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10019.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10019.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10019.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10019.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10020 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10020.shp") road_10020.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10020.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10020.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10020.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10020.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10020.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10020.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10020.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10020.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10020.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10020.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10020.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_10021 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_10021.shp") road_10021.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10021.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_10021.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_10021.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10021.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_10021.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_10021.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10021.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_10021.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_10021.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_10021.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_10021.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_63000 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_63000.shp") road_63000.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_63000.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_63000.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_63000.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_63000.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_63000.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_63000.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_63000.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_63000.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_63000.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_63000.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_63000.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim road_64000 As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Road_DivideByCounty\road_64000.shp") road_64000.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_64000.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle()) road_64000.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 road_64000.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_64000.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle()) road_64000.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17 road_64000.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_64000.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle()) road_64000.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16 road_64000.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3)) road_64000.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle()) road_64000.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 Dim T_hsrail As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Twn_hsrail.shp") T_hsrail.ZoomLevelSet.ZoomLevel01.DefaultLineStyle = LineStyles.Railway1 'T_hsrail.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(New LineStyle(New GeoPen(GeoColor.SimpleColors.Black, 2), New GeoPen(GeoColor.StandardColors.Yellow, 1))) T_hsrail.ZoomLevelSet.ZoomLevel01.DefaultTextStyle = TextStyles.CreateSimpleTextStyle("HSRAILCODE", "新細明體", 10, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Transparent, 0.1, 0, 3) T_hsrail.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 Dim T_rail As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Twn_rail.shp") T_rail.ZoomLevelSet.ZoomLevel01.DefaultLineStyle = LineStyles.Railway3 T_rail.ZoomLevelSet.ZoomLevel01.DefaultTextStyle = TextStyles.CreateSimpleTextStyle("RAILCODE", "新細明體", 10, DrawingFontStyles.Bold, GeoColor.StandardColors.Green, GeoColor.StandardColors.Transparent, 0, 0, 3) 'T_rail.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(New LineStyle(New GeoPen(GeoColor.SimpleColors.Green, 2), New GeoPen(GeoColor.StandardColors.Green, 1))) 'T_rail.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("RAILCODE", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Green, GeoColor.StandardColors.Green, 1, 0, 3)) T_rail.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 Dim T_mrt As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Twn_mrt.shp") T_mrt.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(New LineStyle(New GeoPen(GeoColor.SimpleColors.Black, 3), New GeoPen(GeoColor.StandardColors.Chocolate, 2))) T_mrt.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("MRTCODE", "新細明體", 9, DrawingFontStyles.Bold, GeoColor.StandardColors.DarkRed, GeoColor.StandardColors.Transparent, 0, 0, 3)) T_mrt.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 Dim T_landmark As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Twn_landmark.shp") 'T_landmark.ZoomLevelSet.ZoomLevel16.DefaultPointStyle = PointStyles.City1 T_landmark.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("LANDMARKNA", "新細明體", 10, DrawingFontStyles.Bold, GeoColor.StandardColors.Blue, GeoColor.StandardColors.Transparent, 1, 0, 3)) T_landmark.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLandmarkStyle()) T_landmark.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 Dim T_bridge As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Twn_bridge.shp") ' T_bridge.ZoomLevel16.GeoStyle = GeoPointStyles.GetSimpleCircleStyle(GeoColor.FromArgb(150, GeoColor.KnownColors.Gray), 8, GeoColor.KnownColors.GreenYellow, 1) T_bridge.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("RName", "新細明體", 12, DrawingFontStyles.Regular, GeoColor.StandardColors.Red, GeoColor.StandardColors.Red, 0, 0, 3)) T_bridge.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 Dim T_node As New ShapeFileFeatureLayer("D:\GIS\TWD97\v3_shp\Twn_node.shp") T_node.ZoomLevelSet.ZoomLevel01.DefaultPointStyle = PointStyles.City2 T_node.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20 Dim worldOverlay As New LayerOverlay() worldOverlay.Layers.Add("all_county", all_county) worldOverlay.Layers.Add("all_town", all_town) worldOverlay.Layers.Add("T_node", T_node) worldOverlay.Layers.Add(T_landmark) worldOverlay.Layers.Add(T_hsrail) worldOverlay.Layers.Add(T_rail) worldOverlay.Layers.Add(T_mrt) worldOverlay.Layers.Add(T_bridge) worldOverlay.Layers.Add("road_09007", road_09007) worldOverlay.Layers.Add("road_09020", road_09020) worldOverlay.Layers.Add("road_10001", road_10001) worldOverlay.Layers.Add("road_10002", road_10002) worldOverlay.Layers.Add("road_10003", road_10003) worldOverlay.Layers.Add("road_10004", road_10004) worldOverlay.Layers.Add("road_10005", road_10005) worldOverlay.Layers.Add("road_10006", road_10006) worldOverlay.Layers.Add("road_10007", road_10007) worldOverlay.Layers.Add("road_10008", road_10008) worldOverlay.Layers.Add("road_10009", road_10009) worldOverlay.Layers.Add("road_10010", road_10010) worldOverlay.Layers.Add("road_10011", road_10011) worldOverlay.Layers.Add("road_10012", road_10012) worldOverlay.Layers.Add("road_10013", road_10013) worldOverlay.Layers.Add("road_10014", road_10014) worldOverlay.Layers.Add("road_10015", road_10015) worldOverlay.Layers.Add("road_10016", road_10016) worldOverlay.Layers.Add("road_10017", road_10017) worldOverlay.Layers.Add("road_10018", road_10018) worldOverlay.Layers.Add("road_10019", road_10019) worldOverlay.Layers.Add("road_10020", road_10020) worldOverlay.Layers.Add("road_10021", road_10021) worldOverlay.Layers.Add("road_63000", road_63000) worldOverlay.Layers.Add("road_64000", road_64000) WinformsMap1.Overlays.Add(worldOverlay) WinformsMap1.CurrentExtent = New RectangleShape(121, 25.5, 122, 21.5) WinformsMap1.Refresh() End Sub