- (petite vise à jour) C'est un petit prog tout simple pour que les gamins fassent du barbouillage.
mais c'est aussi une illustration d'une utilisation possible d'un System.Drawing.Drawing2D.PathGradientBrush du GDI+ pour faire une brosse flou.
c'est vraiment trés simple mais ça mange pas de pain.
Source / Exemple :
Private Sub drawBrosse(x As Integer,y As Integer)
col2=color.FromArgb(0,col.r,col.g,col.b)'couleur de fin du dégradé (on reprend les valeurs r,g,b de la couleur de départ en affectant 0 pour le canal alpha(transparent))
taille=trackbar1.value'taille de la brosse
x=x-taille/2
y=y-taille/2
patho= new GraphicsPath 'creation d'un chemin graphique
patho.AddEllipse(new Rectangle(x,y,taille,taille))'on y ajoute un cercle
Dim nbcoul As Integer=patho.PointCount'donne le nombre de points du chemin graphique
Dim coul(nbcoul-1) As Color'creation d'un tableau de couleur avec le même nombre de couleur que de points du chemin graphique.
For i As Integer=0 To nbcoul-1
coul(i)=col2' affectation de chacune des couleurs(avec la couleur de fin de dégradé)
Next i
brosse= New PathGradientBrush(patho)'on construit une brosse dégradée à partir du chemin graphique.
brosse.SurroundColors=coul' on affecte le tableau de couleur aux point exterieurs de la brosse dégradée
brosse.CenterPoint=New Point(x+taille/2,y+taille/2)'on defini la position du centre du dégradé
brosse.CenterColor=col'on defini la couleur du centre(couleur de depart, choisie dans la palette)
gr.FillPath(brosse,patho)'on dessine avec la brosse
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.