[VB] PictureBox SizeMode - Hilfe

Private Function resizeImage(ByVal img As Image, ByVal size As Size) As Image
	Dim sourceWidth As Integer = img.Width
	Dim sourceHeight As Integer = img.Height

	Dim nPercent As Single = 0
	Dim nPercentW As Single = 0
	Dim nPercentH As Single = 0

	nPercentW = CSng(size.Width / sourceWidth)
	nPercentH = CSng(size.Height / sourceHeight)

	If nPercentH < nPercentW Then
		nPercent = nPercentH
	Else
		nPercent = nPercentW
	End If

	Dim destWidth As Integer = CInt(sourceWidth * nPercent)
	Dim destHeight As Integer = CInt(sourceHeight * nPercent)

	Dim b As Bitmap = New Bitmap(destWidth, destHeight)
	Dim g As Graphics = Graphics.FromImage(b)
	g.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor

	g.DrawImage(img, 0, 0, destWidth, destHeight)
	g.Dispose()

	Return b
End Function

'Dim resizedImage as Image = resizeImage(smallImage, new Size(width, height))

private static Image resizeImage(Image img, Size size)
{
	int sourceWidth = img.Width;
	int sourceHeight = img.Height;

	float nPercent = 0;
	float nPercentW = 0;
	float nPercentH = 0;

	nPercentW = ((float)size.Width / (float)sourceWidth);
	nPercentH = ((float)size.Height / (float)sourceHeight);

	if (nPercentH < nPercentW)
		nPercent = nPercentH;
	else
		nPercent = nPercentW;

	int destWidth = (int)(sourceWidth * nPercent);
	int destHeight = (int)(sourceHeight * nPercent);

	Bitmap b = new Bitmap(destWidth, destHeight);
	Graphics g = Graphics.FromImage((Image)b);
	g.InterpolationMode = InterpolationMode.NearestNeighbor;

	g.DrawImage(img, 0, 0, destWidth, destHeight);
	g.Dispose();

	return (Image)b;
}

// Image resizedImage = resizeImage(smallImage, new Size(width, height));