[下载]代码征集！(不断增加中)

<P>
代码征集，这次只涉及VBA和VB，里面的大类和小类划分有欠缺！请大家请宝贵意见！</P>
<P>还有就是主要的：请大家把代码贴上来！说明代码属于哪一类（包括小类和大类）</P>
<P>代码要求：具体功能和具体实现，当然我采纳后肯定会挂上您的大名^_^</P>
<P>请大家多多支持！</P>
<P>盼回帖</P><a href="attachment/2004-7/20047713394455.rar">2004-7/20047713394455.rar</a>

<P>下载文件中只有一两个简单例子！</P><P>我希望大家不要保留，不遗余力</P><P>我才能有继续努力做下去的信心！</P><P>目的只有一个：取之于大家，用之于大家</P>

<P>to lilysunny:</P><P>VB+AO 那一块中，应该把Mapcontrol分哪些小类呢</P>

<P>to fenye:</P><P>好建议！我们一步一步来呵呵，先整理一下VBA＋AO的代码，看看能整理出来多少！我想要是这个都没做好，就没必要往下做了!</P><P>thank  you ,anyway!</P>

<P>好吧！我稍微详细点的说一下，先征集哪方面的代码：</P><P>打开ArcMap/Tools/Customize/commands标签页：</P><P>左面的列表是 工具栏的各个大类；右边是每个大类包括的具体按钮</P><P>在ArcMap定制中，我们试着先实现下面几个大类：Zoom/Pan,Selection,File,Edit,View,Layer,Label中常用的几个具体按钮的功能，比如Zoom/Pan下有Zoomin等（Zoom/Pan我基本都已经做了）</P><P>所以，如果大家已经有定制其它几个工具条的代码，现在就可以贴出来^_^</P>

<P>我是想过ExploringAO，可能有这些例子，但是可能大家都不了解我的出发点：就是大家要某个简单功能的代码时，不用去翻1300多页的ExploringAo，举个简单的例子：ADDData这个工具，我们怎么去把AddData这个窗体调出来，我不相信你一下子在ExploringAo中能找到！</P><P>而且，可能有些人会有疑问说：向上面这个工具，两三句代码就搞定了</P><P>Dim pStdBar As ICommandBar
Dim pCmdItem As ICommandItem
Set pStdBar= Application.Document.CommandBars.Find(ArcID.Standard_Toolbar)
Set pCmdItem = pStdBar.Find(ArcID.File_AddData)</P><P>没错，这样可以调用Arcmap中所有工具按钮；</P><P>但是，我不这样做原因就是：第一，这样很不灵活，而且还不如直接用人家做好的，还要你自己定制干嘛？</P><P>第二，也是重要的，就是如果你这样写，转到VB中就有麻烦了。据我所知，在VB中Esri提供的Dll就只有：</P><P>我可以列举一下（可以节省大家开发的时间）</P><P>DLL文件            实现的工具或按钮</P><P>File.dll                AddData print export</P><P>Layer.dll            Layers</P><P>Panzoom.dll           zoomin    zoomout  pan panup pandown panleft panright                                               </P><P>                         fullextent  GoBackToPreviousExtent GoToNextExtent   (这个比较全）</P><P>selection.dll          ClearSelection  Select  Identify  Query  Measure</P><P>ReportObject.dll         AttributeReport</P><P>Tools.dll                  RefreshView</P><P>所以我说这些提供的都是很基本的，我要实现一个Arcmap中常用的功能：Zoomtofeature,就要自己写了（虽然很简单）。</P><P>目的就是：快速查找，代码重用</P>

<P>to kuanghu16:</P><P>arcexe83\ArcObjects Developer Kit\Samples\Controls\Commands</P>

楼上的建议不错啊

<P>好长时间没来了,前段时间参加关于那个Arcgis竞赛的编程,具体的程序,以后我会贴出来,这里可以跟大家讨论一下关于在Mapcontrol中添加图例的问题,虽然问题有点老,而且相应的控件已经快出来了,不过我们的目的还是:通过自己动手写,增加自己的"经验值"呵呵</P><P>那么首先可以讨论一下如何实现Renderer为:ClassBreaksRenderer(说明:Renderer为SimpleRenderer的实现过程,已有相关贴子),过几天,我会把我的实现过程发上来.</P>

<P>好啊,期待继续呵呵</P>