|
阅读：2334回复：5
用ArcMap进行定制应用程序的问题
<P>我用ArcMap定制了一个应用软件，当打开一个地图文档，应用程序上面的标题显示的是 “文档名.mxd-ArcMap-ArcInfo，怎么样改变ArcMap上面的标题呢？ 谢谢！</P>
|
|
|
1楼#
发布于：2004-08-19 15:39
<P> Dim pApp As IMxApplication Dim pMxDocument As IMxDocument Dim pdoc As IDocument Set pApp = Application Set pMxDocument = ThisDocument Set pdoc = pMxDocument pdoc.Parent.Caption = "hi"</P> [此贴子已经被作者于2004-8-19 15:40:15编辑过]
|
|
|
|
2楼#
发布于：2004-08-19 15:55
Application.Caption = "My Custom Application"
|
|
|
|
3楼#
发布于：2004-08-20 00:20
<P>可以分两种情况，如果你是要在打开MXD文件后改变的话就如一。如果你想打开ARCMAP就改变的话，用二</P><P>一</P><P>Private Function MxDocument_OpenDocument() As Boolean
Application.Caption = "我的程序" End Function</P><P>二</P><P>Private Function MxDocument_NewDocument() As Boolean Application.Caption = "我的程序" End Function</P> |
|
|
4楼#
发布于：2004-09-23 10:29
<P>请问：</P><P>Application.Caption = "我的程序"这样的方法和二楼：pdoc.Parent.Caption = "hi"这样的方法有什么不同？我在MAP的VBA环境下做，效果是一样的。</P><P>是不是二楼的方法更接近于AO的方法？
</P> |
|
|
|
5楼#
发布于：2004-10-22 11:20
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
