彩票走势图

使用GdPicture.NET图形处理控件不仅能将图像扫描成TIFF格式，并能将多页的TIFF文件转换为BMP格式文件，无疑给了图像处理更多的选择。

》》》下载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
        oGdPictureImaging.SetLicenseNumber("XXXX") 'Replace XXXX by a valid or commercial KEY

        Dim InputImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("")
        Dim PageCount As Integer = 1

        If oGdPictureImaging.GetStat = GdPictureStatus.OK Then
            If oGdPictureImaging.TiffIsMultiPage(InputImageID) Then
                PageCount = oGdPictureImaging.TiffGetPageCount(InputImageID)
            End If

            For I As Integer = 1 To PageCount
                If I > 1 Then
                    oGdPictureImaging.TiffSelectPage(InputImageID, I)
                End If
                Dim TmpImageID As Integer = oGdPictureImaging.CreateClonedGdPictureImage(InputImageID)
                If oGdPictureImaging.GetStat = GdPictureStatus.OK Then
                    oGdPictureImaging.Resize(TmpImageID, 1728, 2286, Drawing2D.InterpolationMode.HighQualityBicubic)
                    oGdPictureImaging.SaveAsBMP(TmpImageID, "output" + Str(I) + ".bmp")
                    oGdPictureImaging.ReleaseGdPictureImage(TmpImageID)
                Else
                    MsgBox("Error on page " + Str(I) + ": " + oGdPictureImaging.GetStat.ToString)
                End If
            Next I

            oGdPictureImaging.ReleaseGdPictureImage(InputImageID)
            MsgBox("Done !")
        Else
            MsgBox("Can't open selected file !")
        End If
    End Sub