VB.NET绘制图像（设置像素）

假设我想创建宽度和高度为64的图像，并将所有像素设置为黑色

dim b as bitmap

b.width = 64
b.height = 64

for y = 0 to 64
    for x = 0 to 64
        b.setpixel(x,y ,color.black)
    next
next

dim p as new panel

p.width = b.width
p.hieght = b.height
p.backgroundimage(b)

---

代码不起作用

它怎么可能起作用？它甚至不编译。您的宽度和高度为64，但您的循环有65个迭代dim p作为新面板p。BackImageUrl=“bitmap1.bmp”是如何使用的。如果面板已声明您不需要dim p作为新面板部件。。我认为正确的答案是“对于y=0到63”和“对于x=0到63”，否则它会抛出异常提示，你可能是对的。。我并没有把它放在一个测试环境中来确定。

    Dim b As Bitmap = New Bitmap(64, 64)

    For y = 0 To 64

        For x = 0 To 64

            b.SetPixel(x, y, Color.Black)

        Next

    Next

    b.Save("bitmap1.bmp")