Ajoutez le code de programme suivant à Form_Load
Sous-Formulaire_Load()
Form1.AutoRedraw=Vrai
'Activer le redessinage automatique de l'objet Form
Form1.DrawStyle=6
'Le style de la ligne droite est une ligne continue intérieure (6-vbInsideSolid)
Form1.DrawMode=13
'copyPen - la couleur spécifiée par la propriété ForeColor. (13-vbCopyPen)
Form1.DrawWidth=2
'La largeur de la ligne de sortie est de 2 pixels (Pixel)
'Créer une échelle de coordonnées personnalisée pour le traçage ou l'impression
« Le pixel graphique est la plus petite unité de résolution d'un moniteur ou d'une imprimante.
Form1.ScaleMode=3
'Définissez l'unité de mesure des coordonnées de l'objet en pixels (3-VbPixels)
Form1.ScaleHeight=(256*2)
'Réglez la valeur de l'unité de mesure verticale sur 512
Fori=0To255
Form1.Line(0,Y)-(Form1.Width,Y 2),RVB(0,0,i),BF
Oui = Oui 2
Suivant
'RVB (rouge, vert, bleu)
'B : Dessinez un carré en utilisant les coordonnées du coin opposé du carré spécifié
'F : Spécifie que ce carré est rempli de la couleur utilisée pour dessiner le carré (F ne peut être utilisé que si B est présent)
FinSub->