2012-06-03 20 views

回答

2

有了這個功能應該工作:

Public Function GetPicturePart(ByVal SourceImage As Image, ByVal Region As Rectangle) As Bitmap 
    Dim ImagePart As Bitmap = New Bitmap(Region.Width, Region.Height) 
    Using G As Graphics = Graphics.FromImage(ImagePart) 
     Dim TargetRect As Rectangle = New Rectangle(0, 0, Region.Width, Region.Height) 
     Dim SourceRect As Rectangle = Region 
     G.DrawImage(SourceImage, TargetRect, SourceRect, GraphicsUnit.Pixel) 
    End Using 
    Return ImagePart 
End Function 

我覺得這個功能是自我描述。 ;)

來源:Get Picture Part

+0

tnx;)現在我有廣場 –