Наложение графики друг на друга - VB
Формулировка задачи:
Всем привет)
Подскажите плиз студенту
В общем задача:
Есть белый круг в picturebox нарисован методом Circle. Нарисован на черном фоне.
Черный круг должен пройти над белым кругом. Т.е. не по верху его, а как бы по переднему слою. Тем самым создав эффект как будто луна закрывается и открывается
Спасибо за советы
ЗЫ Если не сложно, прошу описать подробнее, ибо в ВБ знаю только самые азы и не углублялся Спасибо)
Решение задачи: «Наложение графики друг на друга»
textual
Листинг программы
Option Explicit Dim WithEvents tmr As Timer Private Sub Form_Load() AutoRedraw = True: ScaleMode = vbPixels: FillStyle = vbSolid: DrawStyle = vbInvisible: BackColor = vbBlack Set tmr = Controls.Add("VB.Timer", "tmr"): tmr.Interval = 32 End Sub Private Sub tmr_Timer() Static m As Long Cls FillColor = vbWhite: Circle (ScaleWidth \ 2, ScaleHeight \ 2), 100 FillColor = vbBlack: Circle (Abs((m Mod (ScaleWidth * 2)) - ScaleWidth), ScaleHeight \ 2), 100 m = m + 6 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д