圖像縮放像素化

Question

我在圖像框中使用此代碼在軌跡欄上縮放圖像。

Private Sub tbrZoomLevel_Scroll(sender As System.Object, e As System.EventArgs) Handles tbrZoomLevel.Scroll 
    With pbImage 
     .SuspendLayout() 
     .Width = actualSize.Width * tbrZoomLevel.Value 
     .Height = actualSize.Height * tbrZoomLevel.Value 
     .ResumeLayout() 
    End With 
End Sub 

pbImage是一個PictureBox控件，sizemode作爲縮放。 actualSize是pbImage中的原始圖像大小。

當我放大時，我得到沒有像素化的圖像。但我希望它完全像素化並顯示縮放時的MS Paint中顯示的圖像。任何幫助表示讚賞。 VB.Net代碼，C＃代碼或任何算法都是受歡迎的。

Answer 1

在你的PictureBox漆：

Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint 

    e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor 
    'Draw the image 
End Sub 

編輯：試試這個

Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint 
    Dim srcRect As RectangleF = New Rectangle(0, 0, PictureBox1.Width/8, PictureBox1.Height/8) 
    Dim dstRect As RectangleF = New RectangleF(0, 0, PictureBox1.Width, PictureBox1.Height) 

    e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor 
    e.Graphics.DrawImage(pctBoxImage, dstRect, srcRect, GraphicsUnit.Pixel) 
End Sub 

pctBoxImage是bitmap這將是800% zoomed

或

Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint 
    e.Graphics.ScaleTransform(8, 8) 
    e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor 
    e.Graphics.DrawImage(pctBoxImage, 0, 0) 
End Sub 

0,0是位圖上左上角位置的座標。

valter