类

Public Class PicCutOP

    Dim SrcImg As System.Drawing.Image

    Dim DesImg As System.Drawing.Image

    Dim NewGraphics As System.Drawing.Graphics

    Dim SrcRect As New System.Drawing.Rectangle

    Dim DesRect As New System.Drawing.Rectangle

    Dim MyFont As New System.Drawing.Font("Arial", 10)

    Dim MyBrush As New System.Drawing.SolidBrush(System.Drawing.Color.FromArgb(200, 255, 255, 255))

    Public IsMakeWMK As Boolean

    Public WMKstr As String = "Picture Cut&WMK"

    Public Xoffset As Int16 = 115

    Public Yoffset As Int16 = 20

 

    Public Sub PicCutBegin(ByVal FromFile As String, ByVal ToFile As String, ByVal NewX As Int16, ByVal NewY As Int16, ByVal NewWidth As Int16, ByVal NewHeight As Int16)

        SrcImg = System.Drawing.Image.FromFile(FromFile)

        SrcRect.X = NewX

        SrcRect.Y = NewY

        SrcRect.Width = NewWidth

        SrcRect.Height = NewHeight

 

        DesRect.X = 0

        DesRect.Y = 0

        DesRect.Width = NewWidth

        DesRect.Height = NewHeight

 

        DesImg = New System.Drawing.Bitmap(DesRect.Width, DesRect.Height)

        NewGraphics = NewGraphics.FromImage(DesImg)

        NewGraphics.DrawImage(SrcImg, DesRect, SrcRect, System.Drawing.GraphicsUnit.Pixel)

        If IsMakeWMK Then

            NewGraphics.DrawString(WMKstr, MyFont, MyBrush, NewWidth - Xoffset, NewHeight - Yoffset)

        End If

        DesImg.Save(ToFile, System.Drawing.Imaging.ImageFormat.Jpeg)

    End Sub

 

End Class