VB6 - Een enkel concentrish circle tekenen.

[satriano17]

dag

Ik heb deze code om concentrisch circles (in beweging) te tekenen van buiten naar binnen toe.
Het werkt goed, maar ik wou dat niet vele circles maar een enkel circle werd steeds getekent van buiten naar binnen.
Hoe verander ik dat?
dank u

Option Explicit
Private r As Integer
Private richting As Boolean

Private Sub Timer1_Timer()


    r = r - 100
    If r < 0 Then
        Picture1.Cls
        r = 900
    End If
  Picture1.Circle (1100, 1100), r, vbRed
End Sub

 

[edmoor]

Zonder enig voorbeeld, probeer dit eens:

Option Explicit
Private r As Integer
Private richting As Boolean

Private Sub Timer1_Timer()
    Picture1.Cls
    r = r - 100
    If r < 0 Then
          r = 900
    End If
  Picture1.Circle (1100, 1100), r, vbRed
End Sub

 

[satriano17]

Werkt perfect, Edmoor, zoals ik het bedoelde
Fantastisch.
dank u.
Snel opgelost
satriano