彩票走势图

在使用GdPicture.NET的时候，用户可以选择一个treenode页面（表示多页TIFF文件其中的一页），并把保存的页面保存到一个新的多页TIFF文件中。

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

Dim ogdViewer As New GdPicture.GdViewer
        Dim oGdPictureImaging As New GdPicture.GdPictureImaging
        Dim intSourceDocID As Integer
        Dim intDestDocID As Integer
        Dim intPageCount As Integer = 0
        Dim nP As TreeNode

        'delete our temp file if we have one on disk
        If System.IO.File.Exists("c:\NodeTest.tif") Then
            System.IO.File.Delete("c:\NodeTest.tif")
        End If

        ogdViewer.SetLicenseNumber("XXXX")

        'get original file
        intSourceDocID = oGdPictureImaging.CreateGdPictureImageFromFile(strLastFileDownloadedToTempPath)

        'attach pages
        For Each nP In tvPages.Nodes
            'attach page
            intPageCount = intPageCount + 1
            'display page
            Call oGdPictureImaging.TiffSelectPage(intSourceDocID, GetPageNumberFromNode(nP.Text))
            'append pages
            If intPageCount = 1 Then
                 'first page
                intDestDocID = oGdPictureImaging.CreateClonedGdPictureImageI(intSourceDocID)
                oGdPictureImaging.TiffSaveAsMultiPageFile(intDestDocID, "c:\NodeTest.tif", GdPicture.TiffCompression.TiffCompressionCCITT4)
            Else
                'attach page
                oGdPictureImaging.TiffAddToMultiPageFile(intDestDocID, intSourceDocID)
            End If
        Next

        oGdPictureImaging.TiffCloseMultiPageFile(intDestDocID)
        oGdPictureImaging.ReleaseGdPictureImage(intSourceDocID)
        oGdPictureImaging.ReleaseGdPictureImage(intDestDocID)