[求助]AO+VB图层怎样添加，急

AO+VB图层怎样添加阿，急，请高手指点一下，加我QQ57094453

<P>什么格式的图层？</P>
<P>给出两个函数，一个是添加shapefile，一个是添加coverage</P>
<P>Public Function OpenShapeFile(dir As String, name As String) As IFeatureClass<BR>  Dim pWSFact As IWorkspaceFactory<BR>  Dim connectionProperties As IPropertySet<BR>  Dim pShapeWS As IFeatureWorkspace<BR>  Dim isShapeWS As Boolean</P>
<P>  Set OpenShapeFile = Nothing<BR>  <BR>  Set pWSFact = New ShapefileWorkspaceFactory<BR>  isShapeWS = pWSFact.IsWorkspace(dir)<BR>  If (isShapeWS) Then<BR>    On Error GoTo errhandler<BR>    Set connectionProperties = New PropertySet<BR>    connectionProperties.SetProperty "DATABASE", dir<BR>    Set pShapeWS = pWSFact.Open(connectionProperties, 0)<BR>    Dim pFClass As IFeatureClass<BR>    Set pFClass = pShapeWS.OpenFeatureClass(name)<BR>    Set OpenShapeFile = pFClass<BR>  End If<BR>errhandler:<BR>End Function</P>
<P>' sFCType can be POINT, ARC, POLYGON, ..and/or others depending on coverage<BR>Public Function OpenCoverage(sDir As String, sName As String, sFCType As String) As IFeatureClass<BR>  Dim pWSFact As IWorkspaceFactory<BR>  Dim connectionProperties As IPropertySet<BR>  Dim pArcWS As IFeatureWorkspace<BR>  Dim isArcWS As Boolean<BR>  <BR>  Set pWSFact = New ArcInfoWorkspaceFactory<BR>  isArcWS = pWSFact.IsWorkspace(sDir)<BR>  If (isArcWS) Then<BR>    On Error GoTo errhandler<BR>    Set connectionProperties = New PropertySet<BR>    connectionProperties.SetProperty "DATABASE", sDir<BR>    Set pArcWS = pWSFact.Open(connectionProperties, 0)</P>
<P>    Dim pFD As IFeatureDataset<BR>    Set pFD = pArcWS.OpenFeatureDataset(sName)<BR>    <BR>    Dim pFCContainer As IFeatureClassContainer<BR>    Set pFCContainer = pFD<BR>        <BR>    Dim pFClass As IFeatureClass<BR>    Set pFClass = pFCContainer.ClassByName(sFCType)<BR>    Set OpenCoverage = pFClass<BR>  End If<BR>errhandler:<BR>End Function</P>

<P>好东西啊！新手上路，很有帮助！</P>
<P>感谢！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<P>今天刚开始学ＡＯ，很用帮助谢了。</P>