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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы