MapObejcts组件应用设计(地图数据符号化).docVIP

2.3.1 Symbol对象 Symbol对象是图层中的图元的显示符号，，在跟踪层中，每个几何对象用一个Symbol对象描述，在Map1.Layers的图层中，每个图层一个Symbol属性，全图层的图元共用一个Symbol对象。 1 Symbol.SymbolType属性 Map1.LayersSymbol.SymbolType的值标识，可用如下程序判断矢量图层中图元的类型： Private Sub Command1_Click() Dim l As Object Dim ftype As String For Each l In Map1.Layers If l.LayerType = moMapLayer Then Select Case l.Symbol.SymbolType Case moFillSymbol ‘2 ftype = “面” Case moLineSymbol ‘1 ftype = “线” Case moPointSymbol ‘0 ftype = “点” End Select End If Next l End Sub 2 Symbol.Style属性 Symbol.Style的值按矢量图层的类型(点、线、面)分成三组，用于点图层，指定点的绘制符号；用于线图层，指定线的类型；用于面图层，指定填充图案。各组的义如下： Symbol.symbolType = 0 （点） 符号常量 值 符号 moCircleMarker 0 圆 moSquareMarker 1 长方形 moTriangleMarker 2 三角形 moCrossMarker 3 十字线 moTrueTypeMarker 4 文字 Symbol.SymbolType = 2 （面） 符号常量 值 填充方法 moSolidFill 0 Solid moTransparentFill 1 Transparent moHorizontalFill 2 Horizontal moVerticalFill 3 Vertical moUpwardDiagonalFill 4 Upward Diagonal moDownwardDiagonalFill 5 Downward Diagonal moCrossFill 6 Cross moDiagonalCrossFill 7 Diagonal Cross moLightGrayFill 8 Light Gray Fill moGrayFill 9 Gray Fill moDarkGrayFill 10 DarkGray Fill 请在MapObjects2的帮助中索引 FillStyle Constants LineStyle Constants MarkerStyle Constants查看三组图案 4 Symbol. Color 属性 Color As OLE_COLOR 用Color指定的颜色绘制Symbol.Style指定的符号(线、填充图案)。 例 为点图层、线图层、面图层设置显示风格及颜色.(参见光盘中的Symbol目录中的程序) Dim sym As MapObjects2.Symbol Private Sub Form_Load() Dim strDataPath As String Dim dc As New MapObjects2.DataConnection Dim lyr As New MapObjects2.MapLayer 　创建图层对象 strDataPath = ReturnDataPath(world) 数据库目录名 dc.Database = d:/mobook/sample/data/world dc.Database = strDataPath If Not dc.Connect Then End Set lyr.GeoDataset = dc.FindGeoDataset(Country) 　　面图层 Set sym = lyr.Symbol sym.Style = moVerticalFill sym.Color = 255 Map1.Layers.Add lyr 在地图窗口中添加Country图层 Set lyr = New MapLayer Set lyr.GeoDataset = dc.FindGeoDataset(rivers) 线图层 lyr.Symbol.Style = moSolid lyr.Symbol.Color = moBlue Map1.Layers.Add lyr Set lyr = New MapLayer Set lyr.GeoDataset = dc.FindGeoDataset(Citi