彩票走势图

在使用GdPicture.NET控件的时候，如果想旋转页面并保存覆盖原有的PDF文件，就需要用到其中的rasterisation方法，这包括处理所有输入PDF位图的页面，并将这些位图添加到新的PDF文件中。

》》》下载GdPicture.NET最新试用版

代码如下：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oGdPictureImaging As New GdPicture.GdPictureImaging
        Dim oGdViewer As New GdPicture.GdViewer
        Dim RasterizedPage As Integer
        Dim PdfID As Integer
        Dim PdfImageID As Integer
        Dim CurrentPageWidth, CurrentPageHeight As Single

        oGdPictureImaging.SetLicenseNumber("XXX") 'Unlocking GdPicture.NET -> Replace XXX by a commercial or demo license KEY

        If oGdViewer.DisplayFromFile("c:\test.pdf") = GdPictureStatus.OK Then
            PdfID = oGdPictureImaging.PdfNewPdf("c:\newpdf.pdf", True) 'PDF/A
            'Adding all rasterized pages of first to output PDF
            For i As Integer = 1 To oGdViewer.PageCount
                RasterizedPage = oGdViewer.PdfRenderPageToGdPictureImage(200, i)
                If i = 2 Then 'page to rotate !!
                    oGdPictureImaging.Rotate(RasterizedPage, RotateFlipType.Rotate90FlipNone)
                End If
                PdfImageID = oGdPictureImaging.PdfAddImageFromGdPictureImage(PdfID, RasterizedPage)
                oGdPictureImaging.ReleaseGdPictureImage(RasterizedPage)
                'Drawing the image into a PDF page
                CurrentPageWidth = oGdPictureImaging.PdfGetImageWidth(PdfID, PdfImageID)
                CurrentPageHeight = oGdPictureImaging.PdfGetImageHeight(PdfID, PdfImageID)
                oGdPictureImaging.PdfNewPage(PdfID, CurrentPageWidth, CurrentPageHeight)
                oGdPictureImaging.PdfDrawImage(PdfID, PdfImageID, 0, 0, CurrentPageWidth, CurrentPageHeight)
            Next
            oGdViewer.CloseDocument()
            oGdPictureImaging.PdfEndPdf(PdfID)
        End If
    End Sub