Наложение графики друг на друга - 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

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


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

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

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