Движение квадратов по форме - VB

Узнай цену своей работы

Формулировка задачи:

Как сделать, чтобы компактный набор треугольников одного цвета и квадратов другого цвета произвольно двигались по форме, изменяя размеры только квадратов и общие цвета?

Решение задачи: «Движение квадратов по форме»

textual
Листинг программы
Option Explicit
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type
Dim P1(4) As POINTAPI, P2(4) As POINTAPI, P3(4) As POINTAPI
 
 
Private Sub Form_Click()
    Me.FillColor = vbYellow
    Polygon Me.hdc, P1(0), 4
    
    Me.FillColor = vbBlue
    Polygon Me.hdc, P2(0), 4
    
    Me.FillColor = vbRed
    Polygon Me.hdc, P3(0), 4
    
    Me.Refresh
 
End Sub
 
Private Sub Form_Load()
    
    Me.ScaleMode = vbPixels
    Me.FillStyle = 0
    Me.AutoRedraw = True
    
    P1(0).x = 10
    P1(0).y = 10
    P1(1).x = 100
    P1(1).y = 10
    P1(2).x = 150
    P1(2).y = 100
    P1(3).x = 10
    P1(3).y = 10
 
    P2(0).x = 150
    P2(0).y = 50
    P2(1).x = 300
    P2(1).y = 30
    P2(2).x = 250
    P2(2).y = 100
    P2(3).x = 150
    P2(3).y = 50
 
    P3(0).x = 350
    P3(0).y = 50
    P3(1).x = 500
    P3(1).y = 30
    P3(2).x = 450
    P3(2).y = 200
    P3(3).x = 350
    P3(3).y = 50
    
End Sub

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


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

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

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