je chercher pour un code à faire le meme que windows, j'y suis parvenu après mainte péripéthie... je n'ai qu'un problème connu, cà consomme du cpu :s... si vous avez une idée pour l'améliorer cà serait simpa.
Sinon vous mettez une image nommé 'pic' ; deux timer avec leur interval à 10
Source / Exemple :
Option Explicit
Dim i 'progress : x
Dim X 'vitesse
Dim tableau() As ColorConstants
Const factmult = 4 'facteur de multiplication
Private Sub Form_Load()
Dim a As Integer, col As Double, val As Boolean
Dim plus As Double
ReDim tableau(4080 * factmult) 'redimensionne: 4080 facteur de 255
plus = 1 'initialisation de la variable
For a = 1 To factmult
plus = plus / 2 'divise le reste par 2 autant de fois qu'il le faut
Next a
For a = 1 To UBound(tableau)
If val = False Then 'test si couleur montante ou descandente
col = col + plus 'fait un step
If col >= 255 Then: val = True 'quand arrive dans le noir demi-tour
Else
col = col - plus 'pas le bon nom de variable lol
If col <= 1 Then: val = False 'quand arrive dans le blanc
End If
tableau(a) = RGB(255 - col, 255 - col, 255) 'crée tableau couleur
Next a
End Sub
Private Sub Timer1_Timer()
X = X + 50 '50 = vitesse
End Sub
Private Sub Timer2_Timer()
For i = 1 To Pic.ScaleWidth
Pic.Line (i, 1)-(i, Pic.ScaleHeight), tableau((i + X) Mod UBound(tableau)) 'crée la ligne de couleur en fonction trouvé dans le tableau
'en fonction de la soustraction (vitesse)
Next i
End Sub
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.