Public Function ResizePicture(ByVal sourceImage As Bitmap, _
ByVal newSize As Size) As Bitmap '调整图片大小(图片源,新尺寸)
Dim Result_image As New Bitmap(sourceImage, newSize.Width, newSize.Height)
Dim Gr As Graphics
Gr = Graphics.FromImage(Result_image)
...
阅读全文>>