VB6 - Een enkel concentrish circle tekenen.

satriano17 · 14 okt 2017

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

Code:

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 · 14 okt 2017

Zonder enig voorbeeld, probeer dit eens:

Code:

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 · 14 okt 2017

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

VB6 - Een enkel concentrish circle tekenen.

satriano17

Gebruiker

edmoor

Inventaris

satriano17

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy