Discussion :

[DiverSIG]

Je voudrais dessiner sur un composant PictureBox au chargement d'une Form, mais rien ne se dessine.
J'ai mis le code dans une procedure Form_Load. J'ai testé dans une procédure Form_Initialize, ça ne fait rien non plus.

Par contre si je met un bouton sur ma Form, et que je déclenche le dessin sur un click du bouton, ça marche.

voici le code de dessin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
.......
DessinPalette.ScaleMode = 3
DessinPalette.Cls
 
    For i = 0 To DessinPalette.ScaleWidth
        DessinPalette.Line (i, 0)-(i, DessinPalette.ScaleHeight), _
                    RGB(Cdeb.R + Int((Cfin.R - Cdeb.R) * (i / DessinPalette.ScaleWidth)), _
                        Cdeb.V + Int((Cfin.V - Cdeb.V) * (i / DessinPalette.ScaleWidth)), _
                        Cdeb.B + Int((Cfin.B - Cdeb.B) * (i / DessinPalette.ScaleWidth)))
    Next i
    DoEvents

Qu'est ce que j'ai oublié ??

[Delbeke]

Deux solutions :

1°) Mettre la propriété autoredraw de ton picture box à true
2°) Différer le dessin après que la form ait été dessinée completement sur la feuille avec un petit controle timer ( quelques millisecondes suffisent)

[DiverSIG]

Ca marche, merci !