Degrade de couleure style installation

Commenter

Contenu du snippet

C'est tout con: ca fais un degrade de couleure comme dans les setup et tu peux choisir la couleure: bleu, rouche ou vert!!!

mettre dans un timer avec comme interval 1000

Source / Exemple : 


public t as integer

Private Sub Form_Load()
t = 0
End Sub

Private Sub Timer1_Timer()
t = t+1
if t = 1 then
ds = Form1.DrawStyle
dw = Form1.DrawWidth
sm = Form1.ScaleMode
sh = Form1.ScaleHeight

Form1.DrawStyle = vbInsideSolid
Form1.DrawWidth = 5
Form1.ScaleMode = vbPixels
Form1.ScaleHeight = 256
For i = 0 To 254
Form1.Line (0, 1)-(Form1.Width, i + 1), RGB(255 - i, 0, 0), B
' actuellement rouge. Pour vert:RGB(0, 255 - i, 0) et bleu:RGB(0, 0, 255 - i)
Next i
Form1.DrawStyle = ds
Form1.DrawWidth = dw
Form1.ScaleMode = sm
Form1.ScaleHeight = sh
Eimer1.interval = 0
End if
End Sub

Conclusion :


Sais pas pourquoi mais quand tu met ce code dans le Load de la form, ca ne marche pas!!!! zarbi!

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 (e_NeX)