谁建个qq群  专门发布代码

我也不知道代码该放在哪里啊？我用AE实现符号选择器

<P>共享AO+AE+C#代码 :)</P>
<P>EMail: <a href="mailtgyangeit@gmail.com" target="_blank" >gyangeit@gmail.com</A></P>
<P>QQ: 527364037</P>
<P>MSN: <a href="mailtgyangstudy@hotmail.com" target="_blank" >gyangstudy@hotmail.com</A></P>

ding

好<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

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

<P>在下也正在学习当中  希望高手们多多指导~~~~~</P>
<P>谢谢 </P>

加载shp文件按钮<BR>'===================================================<BR>Private Sub btnLoadSHP_Click()<BR>        Dim sFilePath As String<BR>        Dim pWorkspaceFactory As IWorkspaceFactory<BR>        Dim pFeatureWorkspace As IFeatureWorkspace<BR>        Dim pFeatureLayer As IFeatureLayer<BR>            CommonDialog1.DialogTitle = "Browse Map Document"<BR>            CommonDialog1.Filter = "Map Documents (*.shp)|*.shp"<BR>            CommonDialog1.CancelError = True<BR>        On Error GoTo error<BR>            CommonDialog1.ShowOpen<BR>            If Len(CommonDialog1.FileName) = 0 Then Exit Sub<BR>error:<BR>            sFilePath = CommonDialog1.FileName<BR>            If sFilePath = "" Then Exit Sub<BR>                fname = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4)<BR>            Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>            Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(CurDir, 0)<BR>            Set pFeatureLayer = New FeatureLayer<BR>            Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass(fname)<BR>            pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName<BR>            Set pMap = MapCon.Map<BR>            pMap.AddLayer pFeatureLayer<BR>                 <BR>                 <BR>            Dim I As Integer<BR>            I = MapCon.LayerCount - 1<BR>            lstLyrName.AddItem (MapCon.Layer(0).Name)           '在下拉框中显示图层名称<BR>End Sub

<P>该方法是死加数据，还有可以直接从access中根据字段读取的，稍候会继续</P>

<P>'按下加载SDE按钮<BR>'==================================================<BR>Private Sub btnConToSde_Click()<BR>Dim I As Integer<BR>Dim pPropset As IPropertySet<BR>    Set pPropset = New PropertySet<BR>        With pPropset<BR>             .SetProperty "Server", "yy-server"<BR>             .SetProperty "Instance", "port:5151"<BR>             .SetProperty "user", "pdrq"<BR>             .SetProperty "password", "pdrq"<BR>        End With<BR>Dim pFact As IWorkspaceFactory<BR>Dim pWorkspace As IWorkspace<BR>    Set pFact = New SdeWorkspaceFactory<BR>    Set pWorkspace = pFact.Open(pPropset, 0)</P>
<P>Dim pFeatureWorkspace As IFeatureWorkspace<BR>    Set pFeatureWorkspace = pWorkspace</P>
<P>'打开地物类<BR>Dim pFeatureClassPipe As IFeatureClass<BR>Dim pFeatureClassDevice As IFeatureClass<BR>Dim pFeatureClassLabelPoint As IFeatureClass<BR>Dim pFeatureClassLabelLine As IFeatureClass</P>
<P>    Set pFeatureClassPipe = pFeatureWorkspace.OpenFeatureClass("PDRQ.管线")<BR>    Set pFeatureClassDevice = pFeatureWorkspace.OpenFeatureClass("PDRQ.设施")<BR>    Set pFeatureClassLabelPoint = pFeatureWorkspace.OpenFeatureClass("PDRQ.设施标注点")<BR>    Set pFeatureClassLabelLine = pFeatureWorkspace.OpenFeatureClass("PDRQ.设施标注线")<BR>        <BR>        Set pEditLayerPipe = New FeatureLayer<BR>        Set pEditLayerDevice = New FeatureLayer<BR>        Set pEditLayerLabelPoint = New FeatureLayer<BR>        Set pEditLayerLabelLine = New FeatureLayer<BR>        <BR>        Set pEditLayerPipe.FeatureClass = pFeatureClassPipe<BR>        Set pEditLayerDevice.FeatureClass = pFeatureClassDevice<BR>        Set pEditLayerLabelPoint.FeatureClass = pFeatureClassLabelPoint<BR>        Set pEditLayerLabelLine.FeatureClass = pFeatureClassLabelLine<BR>        '获取每个层的名字<BR>        pEditLayerPipe.Name = pEditLayerPipe.FeatureClass.AliasName<BR>        pEditLayerDevice.Name = pEditLayerDevice.FeatureClass.AliasName<BR>        pEditLayerLabelPoint.Name = pEditLayerLabelPoint.FeatureClass.AliasName<BR>        pEditLayerLabelLine.Name = pEditLayerLabelLine.FeatureClass.AliasName<BR>        <BR>        Set pMap = MapCon.Map<BR>        pMap.AddLayer pEditLayerPipe<BR>        pMap.AddLayer pEditLayerDevice<BR>        pMap.AddLayer pEditLayerLabelPoint<BR>        pMap.AddLayer pEditLayerLabelLine<BR>        For I = 0 To MapCon.LayerCount - 1<BR>            lstLyrName.AddItem (MapCon.Layer(I).Name)           '在下拉框中显示图层名称<BR>        Next<BR>        Set pActiveView = pMap<BR>End Sub</P>

XX