Нарисовать на форме множество прямоугольников произвольного размера - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы