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

更改行：

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

by：

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

矩形指定大小，因此您不必担心奇怪的缩放。您甚至可以让您在变量对象中进行映像，并访问此对象.Height和.Width来修复DrawImage问题。

Answer 2

检查PictureBox图像的图像，分辨率和图像属性如果你想画画。

来自图像文件的VB图形显示大于其原始大小

2 个答案: