Нарисовать на форме множество прямоугольников произвольного размера - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д