基于AE输出JPG等格式的图片

基于AE输出JPEG等格式的图片  

以下是vb.net代码  

Public Sub exportJPG(ByVal mapView As IActiveView)  
        Try  
            Dim strFilter As String = "JPEG文件(*.jpeg)|*.jpeg|BMP文件(*.bmp)|*.bmp"  
            Dim pdlg As SaveFileDialog = New SaveFileDialog  
            pdlg.Title = "地图另存为"  
            pdlg.Filter = strFilter  
            pdlg.OverwritePrompt = True  
            pdlg.ShowDialog()  
                      If Not pdlg.FileName.Equals("") Then  
                Dim rectOut As tagRECT  
                rectOut = mapView.ExportFrame  
                Dim pExporter As IExport = New ExportJPEG  

                '根据输出格式的不同实例化不同的Export对象  
                If pdlg.FileName.ToLower.EndsWith("jpeg") Then  
                    pExporter = New ExportJPEG  
                ElseIf pdlg.FileName.ToLower.EndsWith("bmp") Then  
                    pExporter = New ExportBMP  
                End If  

                Dim pEnv As IEnvelope = New Envelope  
                pEnv.PutCoords(rectOut.left, rectOut.top, rectOut.right, rectOut.bottom)  

                pExporter.PixelBounds = pEnv  
                pExporter.ExportFileName = pdlg.FileName  
                Dim DPI As Int64 = pExporter.Resolution