1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| 'Declarations
Private Declare Function ExtFloodFill Lib "gdi32" ( _
ByVal hdc As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal crColor As Long, _
ByVal wFillType As Long) _
As Long
Private Const FLOODFILLBORDER = 0
Private Const FLOODFILLSURFACE = 1
'Dans le form load et dans les VScrollbar et HScrollbar
'Chargement du graphique
Picture2.Cls
Picture2.Line (0, 70)-(35, 70), QBColor(1)
For i = 0 To 34
Picture2.DrawWidth = 3
Picture2.FillStyle = 0 'important : remplissage solid
Picture2.FillColor = vbRed 'couleur de remplissage
ExtFloodFill Picture2.hdc, X, Y, Picture2.Point(X, Y), FLOODFILLSURFACE
Picture2.Line (i, (Picture2.ScaleHeight - 30 - S_mono_haut(i)))-(i + 1, (Picture2.ScaleHeight - 30 - S_mono_haut(i + 1))), QBColor(2)
Picture2.Line (i, (Picture2.ScaleHeight - 30 - S_mono_bas(i)))-(i + 1, (Picture2.ScaleHeight - 30 - S_mono_bas(i + 1))), QBColor(2)
Picture2.Line (i, (Picture2.ScaleHeight - 30 - S_mono_haut(i)))-(i + 1, 0), QBColor(2)
Picture2.Line (i, (Picture2.ScaleHeight - 30 - S_mono_bas(i)))-(i + 1, Picture2.ScaleHeight), QBColor(2)
Next i |
Partager