Largeur du trait d'un rectangle arrondiRésolu

Question

Bonjour,

J'utilise le fonction RoundRect de l'API pour imprimer un rectangle avec les coins arrondis. Mais je ne trouve pas la propri&#233;t&#233; qui correspond &#224; la largeure du trait 

Voici mon code :
RoundRect Printer.hdc, 100, 100, 40 * 26, 25 * 26, 100, 100

le *26 me permet de rentrer des c&#244;tes en mm.
J'ai essay&#233; avec printer.drawwidth mais &#231;a ne marche pas.

Merci pour votre aide.

cs_DARKSIDIOUS · Accepted Answer

Cr&#233;e un nouveau projet, et copie ce code l&#224; :



Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor 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 RoundRect Lib "gdi32" (ByVal hdc As Long,
ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long,
ByVal X3 As Long, ByVal Y3 As Long) As Long



Private Const PS_SOLID = 0



Private Sub Form_Click()



Dim lPen As Long



    Let lPen = CreatePen(PS_SOLID, 5, vbRed)

    Call SelectObject(Me.hdc, lPen)

    Call RoundRect(Me.hdc, 0, 0, 100, 100, 50, 50)

    Call DeleteObject(lPen)



End Sub



Dans cet exemple, lorsque tu clique sur la feuille, cela trace un roundrect avec une &#233;paisseur de trait de 5.

DarK Sidious

[Administrateur et responsable VB/API du site  ProgOtoP]

cs_DARKSIDIOUS · Answer

Essaye en cr&#233;ant un nouveau crayon par API : CreatePen puis SelectObject

DarK Sidious

cs_pledoux · Answer

Bonjour,

L&#224;, je suis largu&#233;. Peux-tu me donner un exemple.

Merci

cs_pledoux · Answer

Ok, parfait pour moi.

Merci encore