2012-06-21 3 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

Dim p As New Panel p.BackImageUrl = "bitmap1.bmp", как он используется –

+0

или если панель уже объявлена ​​вами, t нужно dim p в качестве новой части панели .. и замените p на имя вашей панели. –