[求助]菜鸟求助画点问题

<P>各位大侠：</P>
<P>我想新建一个图层文件并在上面画任意多个点，然后保存该图层文件，请问我该如何实现？（在VB中实现，最好能给我一个实例！）</P>
<img src="images/post/smile/dvbbs/em02.gif" />

<img src="images/post/smile/dvbbs/em05.gif" />

<img src="images/post/smile/dvbbs/em05.gif" />

<P>下面这个函数，可以建立三种类型的图层，并添加要素，你可以看看参数的设置</P><P>Private Function MakeShape(ByVal yCol As Long, _
                           ByVal xRow As Long, _
                           ByVal iShapeType As Integer) _
                           As Object
                          
Dim pt As MapObjects2.Point
Dim pts As New MapObjects2.Points
Dim shp As Object</P><P>Select Case iShapeType
  Case moShapeTypePoint
    Set shp = New MapObjects2.Point
'    shp.Set xRow, yCol
    shp.X = xRow
    shp.Y = yCol
    
  Case moShapeTypeLine
    Set shp = New MapObjects2.Line
    Set pt = New MapObjects2.Point
    pt.X = xRow
    pt.Y = yCol
    pts.Add pt
    Set pt = New MapObjects2.Point
    pt.X = xRow + 0.75
    pt.Y = yCol + 0.75
    pts.Add pt
    shp.Parts.Add pts
    
  Case moShapeTypePolygon
    Set shp = New MapObjects2.Polygon
    Set pt = New MapObjects2.Point
    pt.X = xRow
    pt.Y = yCol
    pts.Add pt
    Set pt = New MapObjects2.Point
    pt.X = xRow
    pt.Y = yCol + 0.75
    pts.Add pt
    Set pt = New MapObjects2.Point
    pt.X = xRow + 0.75
    pt.Y = yCol + 0.75
    pts.Add pt
    Set pt = New MapObjects2.Point
    pt.X = xRow + 0.75
    pt.Y = yCol
    pts.Add pt
    shp.Parts.Add pts
End Select</P><P>Set MakeShape = shp</P><P>End Function
</P>

<P>楼上的朋友，能不能给一个VB中的实例程序？</P><P>能的话，请给小弟一个吧！</P><P>辛苦！辛苦！</P><img src="images/post/smile/dvbbs/em02.gif" />

<a href="http://gisempire.com/bbs/dispbbs.asp?BoardID=39;ID=5028" target="_blank" >http://gisempire.com/bbs/dispbbs.asp?BoardID=39;ID=5028</A>