Picturebox的大小不对

Question

我正在尝试在运行时将一个图片框添加到我的表单上，但每次，图片框都会显示为15 x 15像素，即使我已经改变了大小。这是在图片框中添加的方法。它位于一个类中，Img属性指的是已添加的PNG文件。

Public Sub Draw(_Position As Point)
    Dim pb As New PictureBox()
    pb.SizeMode = PictureBoxSizeMode.AutoSize
    pb.Width = 240
    pb.Height = 336
    pb.Top = 10
    pb.Left = 10
    pb.Image = Img
    CardProgram.Controls.Add(pb)
End Sub

然而，当我运行该程序时，它会出现如下：

编辑2：我已将尺寸更改为原始图像尺寸，但仍然是低分辨率：

如何才能正确显示此图片？

Answer 1

改变你的代码如下，我希望它能奏效。您先设置PB然后再设置

Public Sub Draw(_Position As Point)
        Dim pb As New PictureBox()
        CardProgram.Controls.Add(pb)
        pb.SizeMode =        PictureBoxSizeMode.AutoSize
        pb.Width = 240
        pb.Height = 336
        pb.Top = 10
        pb.Left = 10
        pb.Image = Img

    End Sub

Answer 2

现在它正在运作。出于某种原因，当我将图像上传到ImageList时，它们被存储为16x16图像。所以我删除并重新上传它们，然后将ImageList的ImageSize属性更改为正确的尺寸。代码现在看起来像这样：

Public Sub Draw(_Position As Point)
    Dim pb As New PictureBox()
    CardProgram.Controls.Add(pb)
    pb.Top = 10
    pb.Left = 10
    pb.Image = Img
    pb.SizeMode = PictureBoxSizeMode.StretchImage
    pb.Size = pb.Image.Size
End Sub

感谢您的帮助！