|
阅读：2405回复：9
基于arcmap，开发一个能够管理多个mxd文件的程序
<P>有多个个人数据库，分别是不同的地图，想给arcmap增加一个下拉列表，打开选中的mxd文件，同时关闭已经打开的mxd文件，请问这个功能是否能实现？？？请高人给予指点迷津！</P>
|
|
|
1楼#
发布于：2006-09-18 13:10
<P>好，我在做mxd的管理</P>
|
|
|
2楼#
发布于：2006-09-01 08:36
怎么没有人回复啊？？？好不容易弄出来结果连个回复都没有，下次不传代码了！
|
|
|
3楼#
发布于：2006-08-25 11:16
<P>搞定了，添加了一个combobox控件，列举目录下的所有的mxd文件，下拉选中哪个mxd就打开哪个（刚入门，大家不要笑啊）</P>
<P>代码如下</P> <P>Private Sub UIComboBoxControl1_GotFocus()<BR>UIComboBoxControl1.RemoveAll<BR>Dim filename As String<BR>filename = Dir("c:\map\kan" ; "\*.mxd")<BR>Do While Len(filename)<BR>filename = Left(filename, Len(filename) - 4)<BR>UIComboBoxControl1.AddItem filename<BR>filename = Dir()<BR>Loop<BR>End Sub<BR>Private Sub UIComboBoxControl1_SelectionChange(ByVal newIndex As Long)<BR>Dim pDoc As IMxDocument<BR>Dim pMap As IMap<BR>Dim pPage As IPageLayout<BR>Set pDoc = Application.Document<BR>Set pMap = pDoc.FocusMap<BR>Set pPage = pDoc.PageLayout<BR>Dim filename As String<BR>filename = UIComboBoxControl1.Item(newIndex)<BR>filename = "c:\map\kan\" + filename + ".mxd"<BR>Application.OpenDocument (filename)<BR>End Sub<BR></P> |
|
|
4楼#
发布于：2006-08-22 17:09
...晕，你打开新的MXD后，先前的会自动关闭的，不需要代码的<img src="images/post/smile/dvbbs/em08.gif" />
|
|
|
|
5楼#
发布于：2006-08-22 15:10
那位有关于打开和关闭mxd文件的vba代码？我已经把控件加上了，就剩打开和关闭的代码了，高人指点一下吧，然后呢等完成了写个文章发表上来
|
|
|
6楼#
发布于：2006-08-19 07:50
<P>应该是能的！！！</P>
|
|
|
7楼#
发布于：2006-08-18 16:20
我觉得一般的思路是先判断是否已经打开了一个mxd文件，如果是就先关闭已经打开的文件，然后再打开一个新的mxd文件，可是从来没有开发过这方面的东西，实在是不知道从什么地方下手，还请大家给予指点。谢谢了
|
|
|
8楼#
发布于：2006-08-15 15:24
斑竹在吗？给个安慰也行啊
|
|
|
9楼#
发布于：2006-08-15 10:04
可能实现吗？高人给点指点吧
|
|
