[VB6] [Graphisme] Floodfill et motif

Maintenant grace à HCATH, je maitrise le floodfill :wink:
J'aimerais savoir si je peux pousser le bouchon un peu plus loin et remplir avec un motif au lieu d'une couleur ??

En fait je cherche à faire un remplissage de type "polystyrène expansé" avec des petites billes ...
Comment puis-je faire car le drawstyle ne me propose en dehors des lignes que des croix verticales ou en biais ....

Salut,

J'ai bien une piste à te suggérer mais ça risque de galérer un peu !
Je pense à l'API CreatePatternBrush. Après quelques tests peu convaincants, je me propose de la regarder plus attentivement ce week-end car je n'y ai pas compris grand chose... :cry:

A+
HCath

Oki HCATH ! je suis en week end ce soir et ne reviens que mardi alors prends ton temps :wink:
Mais rien que le nom de l'API me plait bien !

Salut,

Voici un exemple d'utilisation d'une "Pattern Brush".
Au préalable, il faut créer un fichier BMP de 8 pixels sur 8 et le charger dans une PictureBox invisible ou, de préférence, dans un objet Picture.

Code:

---

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

Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long   Private Sub Form_Click() Dim mBrush As Long Dim FB As String Dim objPic As Picture 'Chargement du bitmap de 8 x 8 pixels FB = App.Path & "\brush.bmp" Set objPic = LoadPicture(FB) 'Création de la brosse mBrush = CreatePatternBrush(objPic) 'Dessin d'une figure quelconque Me.Circle (100, 100), 90, 0 'Activation de la brosse SelectObject Me.hdc, mBrush 'Peinture de la figure FloodFill Me.hdc, 100, 100, 0 'Nettoyage de la brosse au white spirit DeleteObject mBrush 'Présentation du tableau Me.Refresh End Sub

---

:wink:
A+
HCath

Bon ben je vais tester si je peux l'appliquer à mes secteurs ... :roll:

Merci HCATH :wink: