Шахматная доска

[Daz]

Привет всем !

Рисую шахматную доску на PictureBox, но код получается слишком
длинным.Подскажите,пожалуйста,есть ли более короткий вариант ?

Вот мой код:
На форме PictureBox - Pic1

Код: Выделить всё

Pic1.Scale (0, 0)-(8, 8)
For i = 1 To 7 Step 2
Pic1.Line (i, 0)-(i + 1, 1), vbBlack, BF
Next
For i = 0 To 7 Step 2
Pic1.Line (i, 1)-(i + 1, 2), vbBlack, BF
Next
For i = 1 To 7 Step 2
Pic1.Line (i, 2)-(i + 1, 3), vbBlack, BF
Next
For i = 0 To 7 Step 2
Pic1.Line (i, 3)-(i + 1, 4), vbBlack, BF
Next
For i = 1 To 7 Step 2
Pic1.Line (i, 4)-(i + 1, 5), vbBlack, BF
Next
For i = 0 To 7 Step 2
Pic1.Line (i, 5)-(i + 1, 6), vbBlack, BF
Next
For i = 1 To 7 Step 2
Pic1.Line (i, 6)-(i + 1, 7), vbBlack, BF
Next
For i = 0 To 7 Step 2
Pic1.Line (i, 7)-(i + 1, 8), vbBlack, BF
Next



[GSerg]

Код: Выделить всё

Dim i As Long, j As Long

Pic1.Scale (0, 0)-(8, 8)

For i = 1 To 8
  For j = i Mod 2 To 7 Step 2
    Pic1.Line (j, i - 1)-(j + 1, i), vbBlack, BF
  Next
Next

[Daz]

Код: Выделить всё

Dim i As Long, j As Long

Pic1.Scale (0, 0)-(8, 8)

For i = 1 To 8
  For j = i Mod 2 To 7 Step 2
    Pic1.Line (j, i - 1)-(j + 1, i), vbBlack, BF
  Next
Next

Grand merci

[Zer]

Хе-хе