第5章图形的绘制.docVIP

第5章　图形的绘制 　　MO虽然不是绘图软件，但经常要用到在地图上画点标明位置，画矩形或多边形标明地图查询范围等操作，因此也需要用到一些简单的绘图功能。 MO的绘图就是在Map上产生图形对象的过程。图形对象主要有：Point（点）、Points（点集）、Line（线）、Rectangle（矩形）、Po1ygon（多边形）和Ellipse（椭圆）。 绘图时，先创建一个图形对象，给它赋值（位置和尺寸），再在Symbo1对象中定义显示方式，最后用DrawShape方法在地图上显示这个图形。 定义Symbol对象，不仅可以设置线型、填充方式、尺寸、颜色和字体，还可以画出多种预定义的符号。 除了使用DrawShape方法绘图外，还可以用AddEvent方法在动态图层上画动态图形对象（GeoEvent）。另外，还可以用DrawText方法在地图上写字。 5.1　DrawShape方法 5.1.1　DrawShape定义 DrawShape方法的语法为： object.DrawShape shape, symbol 其中： object：绘图目的对象，一般为Map对象； Shape：绘图内容，是图形对象（Point、Points、Line、Rectangle、Po1ygon or Ellipse）或记录集(Recordset)对象； symbol：是一个Symbol对象，说明绘图方式。 注意；调用DrawShape必须在Layer或TrackingLayer的drawing事件中，即BeforLayerDraw事件、AfterLayerDraw事件、BeforTrackingLayerDraw事件或AfterTrackingLayerDraw事件过程中才有效。 如果指定一个Recordset作为DrawShape的参数，MO从Shape字段的第一个特征值开始，到最后一个结束，然后又指向第一个记录。 5.1.2 画点 可以用Point对象画一个点，也可以用Points对象画多个点。在Form上添加一个Map1，用以下程序就可以在Map1上画2个点： （工程Chapter501一Form01） Option Explicit Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim Pts As MapObjects2.Points Dim p As Point Dim sym As New Symbol Set Pts = New MapObjects2.Points Set p = Map1.ToMapPoint(1000, 1000) Pts.Add p Set p = Map1.ToMapPoint(3000, 2000) Pts.Add p sym.Color = moRed sym.SymbolType = moPointSymbol sym.Size = 3 Map1.DrawShape Pts, sym End Sub 以下程序实现用鼠标点击画点： （工程Chapter501一Form02） Option Explicit Dim Pts As MapObjects2.Points Dim p As Point Dim sym As New Symbol Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) sym.Color = moRed sym.SymbolType = moPointSymbol sym.Size = 5 If Not Pts Is Nothing Then Map1.DrawShape Pts, sym End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set Pts = New MapObjects2.Points Set p = Map1.ToMapPoint(X, Y) Pts.Add p Map1.TrackingLayer.Refresh True End Sub 5.1.3画线 先设置2个点，将它们添加到—个Points对象中，再将Points对象放到一个Line对象中，使用DrawShape方法，就可以画出一条线段来。如果公Points对象中有n个点，则可以产生一条n—l段的折线。 在Form上添加一个Mapl和