Нарисовать на форме множество прямоугольников произвольного размера - VB
Формулировка задачи:
Нарисовать на форме множество прямоугольников произвольного размера с произвольными координатами закрашенных различными цветами
Решение задачи: «Нарисовать на форме множество прямоугольников произвольного размера»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Dim i As Integer 'номер фигуры
- Dim x1, x2, y1, y2 As Integer 'координаты фигуры
- Randomize Timer
- Picture1.Cls 'очищаем графическое поле
- 'строится 50 закрашенных прямоугольников
- 'координаты и цвет задаются случайным образом
- For i = 1 To 50
- x1 = Picture1.Width * Rnd
- y1 = Picture1.Height * Rnd
- x2 = Picture1.Width * Rnd
- y2 = Picture1.Height * Rnd
- Picture1.Line (x1, y1)-(x2, y2), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
