0

フォーム全体に1pxのポイントを描きたい

例:

1pxBlack 1pxwhite 1pxBlack 1pxwhite 1pxBlack 1pxwhite 
1pxBlack 1pxwhite 1pxBlack 1pxwhite 1pxBlack 1pxwhite 
1pxBlack 1pxwhite 1pxBlack 1pxwhite 1pxBlack 1pxwhite 
4

1 に答える 1

1

あなたが使用することができますsetPixel

例:

    Dim bmp As New Bitmap(Me.Width, Me.Height)
    For y = 0 To Me.Height - 1
        For x = 0 To Me.Width - 1
            If x Mod 2 = 0 And y Mod 2 = 0 Then
                bmp.SetPixel(x, y, Color.Black)
            Else
                bmp.SetPixel(x, y, Color.White)
            End If
        Next
    Next
    Me.BackgroundImage = bmp
于 2012-11-13T04:14:10.600 に答える