图层标注、图层控制和电子地图常用工具开发（Layer annotation, layer control and electronic map are developed）.docVIP

图层标注、图层控制和电子地图常用工具开发（Layer annotation, layer control and electronic map are developed） A layer annotation Using object LabelRenderer tagging MO, can automatically add annotation layer object. 1, property marking Method for attribute labeling: Set layer.Renderer = New LabelRenderer set label objects Layer.Renderer.Field = CNTRY_NAME specified fields to display Layer.Renderer.AllowDuplicates = True allows the ability to repeat The statement added to labeling statements in front of Map1.Layers.Add layer: layer. Several point: Renderer is one of the attributes of MapLayer for coloring the object set or read layer. Colored object has a ClassBreaksRenderer object, DotDensityRenderer object, LabelRenderer object and ValueMapRenderer object. Among them, the LabelRenderer object description method is a geographical feature, namely written characters in a geographic feature. The display value from a field value with the geographical features of the characters, the Field property indicates the name of the field. The AllowDuplicates property is a Boolean value that indicates whether to allow many same characters in the annotation annotation, True is allowed, false is not allowed. 2, set the font on the map The above annotation is in accordance with the default way to set the font, you can also use Symbol array label objects, set the font to yourself more suitable. Layer.Renderer.Symbol (0).Font.Name = script Layer.Renderer.Symbol (0).Font.Bold = False Layer.Renderer.Symbol (0).Color = moRed Layer.Renderer.Symbol (0).Font.Size = 20 The above setting font is fixed in size does not change with the size of graphics. Layer.Renderer.Symbol (0).Height = 10 When the Height is provided with priority right, Font.Bold and Font.Size will not work. Two layer control 1, using the check control layer display and text annotation With the program add layer, the system will automatically set the layer object number, the last added to the layer 0, the layer is 1, and so on. Option Explicit Dim DC