EFFET AMUSANT AVEC API
flint_infecté
-
23 avril 2001 à 23:00
cs_yannickt Messages postés 64 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 22 novembre 2011 - 17 juil. 2004 à 23:52
cs_yannickt Messages postés 64 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 22 novembre 2011 - 17 juil. 2004 à 23:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/987-effet-amusant-avec-api
https://codes-sources.commentcamarche.net/source/987-effet-amusant-avec-api
17 juil. 2004 à 23:52
24 avril 2001 à 22:15
@+
f=abs
24 avril 2001 à 21:20
bye @+
24 avril 2001 à 20:32
mais je vois pas pk tu utilise une api, alors ke circle fait très bien un cercle ;-)
@+
fabs
24 avril 2001 à 19:54
24 avril 2001 à 19:54
24 avril 2001 à 17:15
trop cool!
24 avril 2001 à 13:35
24 avril 2001 à 09:00
Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Dim a, i As Long
Private Sub Timer1_Timer()
a = a + 1
Arc Me.hdc, 10, 10, a, a, 150, 150, 450, 450
End Sub
et un autre :
Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Dim a, i As Long
Private Sub Timer1_Timer()
a = a + 10
Arc Me.hdc, 10, 10, a, a, 150, 150, 450, 450
End Sub
23 avril 2001 à 23:56
ya til une chose kon doit faire dans les propriétés de form1 ?
23 avril 2001 à 23:00