A ce stade, où est la difficulté ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 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
Dim pinceau As Long pinceau = CreateSolidBrush(RGB(255, 0, 0)) SelectObject Picture1.hdc, pinceau Picture1.ScaleMode = vbPixels ExtFloodFill Picture1.hdc, (Picture1.ScaleWidth / 2) - 10, 10, GetPixel(Picture1.hdc, (Picture1.ScaleWidth / 2) - 10, 10), 1 DeleteObject pinceau