cs_pledoux
Messages postés147Date d'inscriptionmardi 12 octobre 2004StatutMembreDernière intervention 6 mars 2007
-
4 janv. 2005 à 18:34
cs_pledoux
Messages postés147Date d'inscriptionmardi 12 octobre 2004StatutMembreDernière intervention 6 mars 2007
-
5 janv. 2005 à 10:36
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
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 5 janv. 2005 à 10:15
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]