[vb.net] rectangle arrondi [Résolu]
malhivertman1
489
Messages postés
mardi 16 novembre 2004Date d'inscription
22 novembre 2007
Dernière intervention
-
24 oct. 2006 à 14:51 - Dernière réponse :
malhivertman1
489
Messages postés
mardi 16 novembre 2004Date d'inscription
22 novembre 2007
Dernière intervention
- 25 oct. 2006 à 11:33
- [vb.net] rectangle arrondi
- Traçage de cercle, rectangle, trait en vb.net » Codes sources - Visual Basic / VB.NET (Graphique)
- Comment tracer un rectangle dans un picturebox en VB.NET » Forum - VB.NET
- Faire un outils Rectangle de selection en VB.net » Forum - Visual Basic
- [VB.Net] Créer rectangle » Forum - VB.NET
- VB.NET - arrondi » Forum - Visual Basic
8 réponses
Répondre au sujet
Salut,
Une petite recherche :
'Merci Badrbadr (http://www.csharpfr.com/codes/ROUNDEDRECTANGLE-CREEZ-RECTANGLES-AVEC-COINS-ARRONDIS_35392.aspx)
Private
Function
GetRoundedRectPath(
ByVal
Rect
As
System.Drawing.Rectangle,
ByVal
Radius
As
Integer
)
As
System.Drawing.Drawing2D.GraphicsPath
Dim
Diameter
As
Integer
= 2 * Radius
Dim
ArcRect
As
New
System.Drawing.Rectangle(Rect.Location,
New
Size(Diameter, Diameter))
Dim
Path
As
New
System.Drawing.Drawing2D.GraphicsPath()
Path.AddArc(ArcRect, 180, 90)
ArcRect.X = Rect.Right - Diameter
Path.AddArc(ArcRect, 270, 90)
ArcRect.Y = Rect.Bottom - Diameter
Path.AddArc(ArcRect, 0, 90)
ArcRect.X = Rect.Left
Path.AddArc(ArcRect, 90, 90)
Path.CloseFigure()
Return
Path
End
Function
Pour l'utilisation :
Dim
MonBitMap
As
New
System.Drawing.Bitmap(Larg, Haut)
'puis je dessine dedans en utilisant un graphics
Dim
MonObjGfx
As
System.Drawing.Graphics = System.Drawing.Graphics.FromImage(MonBitMap)
MonObjGfx.DrawPath(Pens.Red, GetRoundedRectPath(
New
System.Drawing.Rectangle(0, 0, 50, 50), 6))
Kenji
Une petite recherche :
'Merci Badrbadr (http://www.csharpfr.com/codes/ROUNDEDRECTANGLE-CREEZ-RECTANGLES-AVEC-COINS-ARRONDIS_35392.aspx)
Private
Function
GetRoundedRectPath(
ByVal
Rect
As
System.Drawing.Rectangle,
ByVal
Radius
As
Integer
)
As
System.Drawing.Drawing2D.GraphicsPath
Dim
Diameter
As
Integer
= 2 * Radius
Dim
ArcRect
As
New
System.Drawing.Rectangle(Rect.Location,
New
Size(Diameter, Diameter))
Dim
Path
As
New
System.Drawing.Drawing2D.GraphicsPath()
Path.AddArc(ArcRect, 180, 90)
ArcRect.X = Rect.Right - Diameter
Path.AddArc(ArcRect, 270, 90)
ArcRect.Y = Rect.Bottom - Diameter
Path.AddArc(ArcRect, 0, 90)
ArcRect.X = Rect.Left
Path.AddArc(ArcRect, 90, 90)
Path.CloseFigure()
Return
Path
End
Function
Pour l'utilisation :
Dim
MonBitMap
As
New
System.Drawing.Bitmap(Larg, Haut)
'puis je dessine dedans en utilisant un graphics
Dim
MonObjGfx
As
System.Drawing.Graphics = System.Drawing.Graphics.FromImage(MonBitMap)
MonObjGfx.DrawPath(Pens.Red, GetRoundedRectPath(
New
System.Drawing.Rectangle(0, 0, 50, 50), 6))
Kenji
Cette réponse vous a-t-elle aidé ?
ok c'est bon, j'ai pris la source
http://www.vbfrance.com/codes/RECTANGLES-ARRONDIS_38893.aspx
comme modèle et j'ai pu réussir ce que je voulais
++
http://www.vbfrance.com/codes/RECTANGLES-ARRONDIS_38893.aspx
comme modèle et j'ai pu réussir ce que je voulais
++
Cette réponse vous a-t-elle aidé ?
Salut,
De mémoire, (je ne suis pas sur mon pc, je n'ai donc pas testé...) :
Declare Function RoundRect Lib "gdi32" ( _
ByVal hdc As IntPtr, _
ByVal X1 As Integer, _
ByVal Y1 As Integer, _
ByVal X2 As Integer, _
ByVal Y2 As Integer, _
ByVal X3 As Integer, _
ByVal Y3 As Integer) as Integer
dim hdc as IntPtr
hdc = MonObjGfx.GetHdc
RoundRect(hdc, ...)
MonObjGfx.ReleaseHdc(hdc)
Voila !
Sur msdn, y'a un flag avant la fonction indiquant apparement qu'on fait
de l'unmanaged, je ne vois pas pourquoi, si un gourou peut éclairer ma
lanterne ... Si jamais ca marche pas mets-le, regarde dans l'exemple... (http://msdn2.microsoft.com/fr-fr/library/9z5820hw.aspx)
Julien.
De mémoire, (je ne suis pas sur mon pc, je n'ai donc pas testé...) :
Declare Function RoundRect Lib "gdi32" ( _
ByVal hdc As IntPtr, _
ByVal X1 As Integer, _
ByVal Y1 As Integer, _
ByVal X2 As Integer, _
ByVal Y2 As Integer, _
ByVal X3 As Integer, _
ByVal Y3 As Integer) as Integer
dim hdc as IntPtr
hdc = MonObjGfx.GetHdc
RoundRect(hdc, ...)
MonObjGfx.ReleaseHdc(hdc)
Voila !
Sur msdn, y'a un flag avant la fonction indiquant apparement qu'on fait
de l'unmanaged, je ne vois pas pourquoi, si un gourou peut éclairer ma
lanterne ... Si jamais ca marche pas mets-le, regarde dans l'exemple... (http://msdn2.microsoft.com/fr-fr/library/9z5820hw.aspx)
Julien.
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.