Effect sur votre form :-p

Commenter

Contenu du snippet

ba sa fait un effect pas mal sur la form (merci a skyraider qui ma donner lider et je lé ameliorer)

Source / Exemple : 


Dim r, g, b
Dim baisse

Private Sub Timer1_Timer()
'Stop
If baisse = False Then
If r <> 255 Then r = r + 5: GoTo yy
If g <> 255 Then g = g + 5:  r = r: GoTo yy
If b <> 255 Then b = b + 5: r = r: g = g: GoTo yy
yy:
Else
If r <> 0 Then r = r - 5: GoTo yyr
If g <> 0 Then g = g - 5:  r = r: GoTo yyr
If b <> 0 Then b = b - 5: r = r: g = g: GoTo yyr
yyr:
End If
BackColor = RGB(r, g, b)
If r = 255 And g = 255 And b = 255 Then
baisse = True
ElseIf r = 0 And g = 0 And b = 0 Then
baisse = False
End If
End Sub

Conclusion :


metter le timer a la vitesse voulu pour que le changement soit rapide ou moin (je vous conseil 1)
merci de laisser vos commentaires

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (intello2001)