浪花闪闪
路人甲
路人甲
  • 注册日期2005-10-12
  • 发帖数28
  • QQ
  • 铜币244枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1547回复:1

在ArcEngine开发中,Scenecontrol里怎样实现保存和另存?

楼主#
更多 发布于:2006-02-28 12:46
<P>找半天没发现scenecontrol里没有Save方法,也没有类似在Mapcontrol里的Mapdocument东东!</P><P>在这里可以学到不少东西,欢迎大家讨论!</P><P>下面是Mapcontrol的saveAS,供大家参考!</P><P>    Public Overrides Sub OnClick()<br>        Dim pMapControl As IMapControl3<br>        pMapControl = m_pHookHelper.Hook</P><P>        Dim pActiveView As IActiveView<br>        pActiveView = m_pHookHelper.ActiveView<br>        Dim pMap As IMap<br>        pMap = pActiveView.FocusMap<br>        Dim pMxdC As IMxdContents<br>        pMxdC = pMap<br>        Dim pMapDocument As New MapDocumentClass<br>        Dim pSaveFileDialog As New SaveFileDialog<br>        pSaveFileDialog.Title = "另存为文件"<br>        pSaveFileDialog.Filter = "文件类型 (*.mxd)|*.mxd"<br>        pSaveFileDialog.FileName = pMapControl.DocumentFilename<br>        pSaveFileDialog.ShowDialog()</P><P>        'Exit if no map document is selected<br>        Dim sFilePath As String<br>        sFilePath = pSaveFileDialog.FileName<br>        If sFilePath = "" Then Exit Sub<br>        pMapDocument.[New](sFilePath)<br>        pMapDocument.ReplaceContents(pMxdC)<br>        pMapDocument.Save(True, True)<br>    End Sub</P>
[此贴子已经被作者于2006-2-28 12:49:53编辑过]
喜欢0 评分0
浪花闪闪
路人甲
路人甲
  • 注册日期2005-10-12
  • 发帖数28
  • QQ
  • 铜币244枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2006-03-01 11:06
<P>大家怎么不帮忙顶啊!</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部