0

幅と高さが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)

コードが機能しない

4

1 に答える 1

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")
于 2012-06-21T18:24:54.943 に答える