Créer un degrader bleu comme dans les installations

Soyez le premier à donner votre avis sur cette source.

Vue 6 578 fois - Téléchargée 547 fois

Description

Comment puis-je faire pour avoir un dégrader Bleu comme dans les installations de logiciels ?

Mettez ce code dans un Module :

Source / Exemple :


Public Sub DegradeBleu(MonForm As Form)
    Dim BoucleInt As Integer

    MonForm.DrawWidth = 2
    MonForm.ScaleHeight = 256
    MonForm.DrawStyle = vbInsideSolid
    MonForm.DrawMode = vbCopyPen
    MonForm.ScaleMode = vbPixels

    For BoucleInt = 0 To 255
        MonForm.Line (0, BoucleInt)-(Screen.Width, BoucleInt - 1), RGB(0, 0, 255 - BoucleInt), B
    Next BoucleInt
End Sub

' N.B : pour faire un dégrader Vert, MonForm.Line (0, BoucleInt)-(Screen.Width, BoucleInt - 1), RGB(0, 255 - BoucleInt, 0), B
' pour faire un dégrader Rouge, MonForm.Line (0, BoucleInt)-(Screen.Width, BoucleInt - 1), RGB(255 - BoucleInt, 0, 0), B

' Créez un Formulaire (Form1) et Paramètré AutoRedraw comme Vrai.
' Puis dans votre Formulaire, mettez ce code :

Private Sub Form_Activate()
    DegradeBleu Form1
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004

Merci! c'est vraiment utile!

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.