1. Accueil
  2. Codes-Sources
  3. Visual Basic

Largeur du trait d'un rectangle arrondi [Résolu]

Signaler
Messages postés
147
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2007
 -
Messages postés
147
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2007
 -
Bonjour,

J'utilise le fonction RoundRect de l'API pour imprimer un rectangle avec les coins arrondis. Mais je ne trouve pas la propriété qui correspond à 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ôtes en mm.
J'ai essayé avec printer.drawwidth mais ça ne marche pas.

Merci pour votre aide.
Afficher la suite

4 réponses

Réponse 1 / 4
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 94
Crée un nouveau projet, et copie ce code là :



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 épaisseur de trait de 5.

DarK Sidious

[Administrateur et responsable VB/API du site ProgOtoP]
Merci
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 262 internautes nous ont dit merci ce mois-ci

Réponse 2 / 4
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 94
Essaye en créant un nouveau crayon par API : CreatePen puis SelectObject

DarK Sidious
Réponse 3 / 4
Messages postés
147
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2007
Bonjour,

Là, je suis largué. Peux-tu me donner un exemple.

Merci
Réponse 4 / 4
Messages postés
147
Date d'inscription
mardi 12 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2007
Ok, parfait pour moi.

Merci encore
Posez votre question