Discussion :

[SpaceFrog]

Maintenant grace à HCATH, je maitrise le floodfill
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 ....

[HCath]

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...

A+
HCath

[SpaceFrog]

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

[HCath]

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 :

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

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

A+
HCath

[SpaceFrog]

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

Merci HCATH