Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Daz
-
- Новичок
-
-
- Сообщения: 27
- Зарегистрирован: 27.12.2003 (Сб) 23:22
Daz » 16.01.2005 (Вс) 17:53
Привет всем !
Рисую шахматную доску на 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
-
- Шаман
-
-
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 16.01.2005 (Вс) 18:00
- Код: Выделить всё
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
-
- Новичок
-
-
- Сообщения: 27
- Зарегистрирован: 27.12.2003 (Сб) 23:22
Daz » 16.01.2005 (Вс) 18:12
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
Grand merci
Автор благодарит алфавит за любезно предоставленные буквы.
-
Zer
-
- Постоялец
-
-
- Сообщения: 460
- Зарегистрирован: 26.09.2003 (Пт) 13:08
- Откуда: Нижний Новгород
-
Zer » 16.01.2005 (Вс) 19:34
Microsoft DirectX - Маломягкий Прямой Х...
Не откладывай на завтра то, что можно выпить сегодня...
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, PetalBot, SemrushBot и гости: 5