2012-06-21 59 views
-1

可以說,我想創建一個寬度和高度64和圖像的所有像素設置爲黑色VB.NET繪製圖像(組像素)

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) 

代碼不工作

+0

如何它可能工作?它甚至沒有編譯。 –

+0

你的寬度和高度是64,但你的循環有65次迭代 – Jesse

回答

0
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") 
+0

panel1.backgroundimage = b不工作 – AoTw

+0

昏暗的p作爲新的面板p.BackImageUrl =「bitmap1.bmp」是如何使用 –

+0

或者如果面板已經聲明你不' t需要將暗淡的p作爲新的面板部件..並將p替換爲面板的名稱。 –