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

问题是“wheel.png”在 PictureBox1 中的显示比原始分辨率大，并且像缩放和模糊一样。我怎样才能解决这个问题 ？

Answer 1

检查您的图像、PictureBox 图像的分辨率和图像属性以及是否要在图片上绘制。

Answer 2

换行：

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 问题。