Créer un degrader bleu comme dans les installations


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

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