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