ArcGlobe 三维图片输出

社区公告

ESRI社区近期管理规则！！（关于注册、发帖等事项）

[资源共享] ArcGlobe 三维图片输出

With SaveFileDialog1
            SaveFileDialog1.Title = "保存三维图片"
            .DefaultExt = "jpg"
            .Filter = "JPG格式(*.jpg)|*.jpg|BMP格式(*.bmp)|*.bmp"
            .FilterIndex = 1
            .OverwritePrompt = True
            .Title = ""
            .ShowDialog()
        End With
        If Trim(SaveFileDialog1.FileName <> "") Then
            If SaveFileDialog1.FilterIndex = 1 Then
                AxGlobeControl1.GlobeDisplay.ActiveViewer.GetScreenShot(esri3DOutputImageType.JPEG, SaveFileDialog1.FileName)
            Else
                AxGlobeControl1.GlobeDisplay.ActiveViewer.GetScreenShot(esri3DOutputImageType.BMP, SaveFileDialog1.FileName)
            End If
            MsgBox("图片导出成功!", vbOKOnly, "信息提示!")
        End If

来自http://bbs.esrichina-bj.cn/ESRI/viewthread.php?tid=27683&highlight=%C8%FD%CE%AC