.net - Vb.netは水平ゼブララインを描画します

Question

フォーム全体に水平ゼブララインを描画するにはどうすればよいですか？

1px Black
1px White
1px Black
1px White
1px Black
1px White
1px Black
1px White

Answer 1

あなたはこのようにそれを行うことができます：

Dim Zebra As New Bitmap(Me.Width, Me.Height)
For y = 0 To Zebra.Height - 1
    For x = 0 To Zebra.Width - 1
        If y Mod 2 <> 0 Then
            Zebra.SetPixel(x, y, Color.Black)
        Else
            Zebra.SetPixel(x, y, Color.White)
        End If
    Next
Next
Me.BackgroundImage = Zebra

（1ピクセル行）