.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 px 线）