satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
Dag
Ik had, een tijdje geleden deze routine gedaan.
Die toont een circle die beweegt vanuit het centrum naar buiten toe.
Ik wou echter andersom doen: de circle van buiten naar binnen.
Het wil mij niet lukken. Dank u
Ik had, een tijdje geleden deze routine gedaan.
Die toont een circle die beweegt vanuit het centrum naar buiten toe.
Ik wou echter andersom doen: de circle van buiten naar binnen.
Het wil mij niet lukken. Dank u
Code:
Private Sub Timer1_Timer()
Picture1.Cls
r = r + 100 ' tussen circles
If r = 3200 Then ' max breedte circles
'Picture1.Cls
r = 100 ' breedte eertste circle
End If
kleur = CommonDialog1.Color
'Picture1.Cls
Picture1.Circle (3300, 3100), r, kleur
End Sub