vb.net - 画像ファイルの VB グラフィックスが元のサイズより大きく表示される

Question

私はこれを vb.net に持っています:

Public Class Form1
    Dim output As New Bitmap(300, 300)
    Dim gfx As Graphics = Graphics.FromImage(output)
    Sub refreshScreen() Handles Timer1.Tick
        gfx.DrawImage(Image.FromFile("wheel.png"), New Point(50, 50))
        gfx.FillRectangle(Brushes.Blue, 100, 100, 25, 25) 'Some other drawings on top
        PictureBox1.Image = output
    End Sub
End Class

問題は、PictureBox1 で "wheel.png" が元の解像度よりも大きく表示され、スケーリングされてぼやけて見えることです。どうすればこれを修正できますか?

Answer 1

行を変更します:

gfx.DrawImage(Image.FromFile("wheel.png"), New Point(50, 50))

に ：

gfx.DrawImage(Image.FromFile("wheel.png"), New Rectangle(0, 0, 225, 70))

長方形でサイズを指定するので変なスケーリングは気にならない。変数オブジェクトでイメージを作成し、このオブジェクト .Height と .Width にアクセスして、DrawImage の問題を修正することもできます。