Простой пример Winforms, который рисует масштабированное изображение, добавленное как ресурс с именем «SmallImage» с интерполяцией ближайшего соседа:
Public Class Form1
Public Sub New()
InitializeComponent()
Me.SetStyle(ControlStyles.ResizeRedraw, True)
Me.DoubleBuffered = True
Me.bmp = My.Resources.SmallImage
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor
e.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.Half
Dim h = Me.ClientSize.Width * bmp.Height / bmp.Width
e.Graphics.DrawImage(bmp, New Rectangle(0, 0, Me.ClientSize.Width, h))
End Sub
Private bmp As Bitmap
End Class