Vous savez déjà comment attribuer une
couleur à la feuille de travail que vous utilisez. Vous savez
aussi comment utiliser une image comme arrière-plan sur une
feuille. Ce premier petite exercice va vous enseigner la
façon d'effectuer un fondu de couleurs sur une feuille.
- Créez d'abord un nouveau projet que vous appelez EX_1xx.vbp.
Respectez les règles énoncées dans Visual Basic
débutant pour le nom de la feuille. Inscrivez Fondu
pour les propriétés NAME et CAPTION de la feuille. Réglez
aussi WINDOWSTATE à Maximized.
- Double-cliquez sur le feuille et sélectionnez PAINT
dans la liste des événements possibles (liste de
droite).
- Entrez le script suivant.
Private Sub Form_Paint()
Dim V_Y, V_largeur, V_hauteur As Long
'Déclaration des variables
Dim V_R, V_V, V_B As Integer
ScaleMode = vbPixels
'Permet de calculer les dimensions exactes
V_hauteur = ScaleHeight
V_largeur = ScaleWidth
DrawStyle = vbInvisible
'Empêche le tracé d'une bordure noire
FillStyle = vbFSSolid
V_R = 212
'Initialisation du rouge, du vert et du bleu
V_V = 132
V_B = 255
For V_Y = 0 To V_hauteur
'Boucle allant de 0 à la hauteur de la page
FillColor = RGB(V_R, V_V, (V_B - (V_Y * 255) / V_hauteur))
'Choix de couleur
Line (-1, V_Y - 1)-(V_largeur, V_Y + 1), , B
'Dessin de la ligne
Next V_Y
End Sub
On utilise la propriété SCALEMODE
pour déterminer l'unité de
mesure qui sera utilisée (dans le cas présent, les pixels)
et on empêche l'affichage d'une bordure noire autour de
chaque ligne à l'aide de la propriété DRAWSYLE. Une
petite remarque très importante pour ce qui va suivre: le
chiffre utilisé pour multiplier V_Y correspont au dernier
chiffre RGB.
- Faites exécuter le programme et
voyez le résultat.
Applications:
- Changez la couleur de
départ pour créer un fondu différent. Enregistrez le
résultat sous le nom Ex_1bxx.vbp.
- Changez l'orientation du
dégradé de façon à ce qu'il se fasse horizontalement.
Pensez qu'il s'agit d'inverser le programme afin qu'il
dessine les lignes de haut en bas. Sauvegardez le
résultat sous le nom Ex_1cxx.vbg.
|
