Dessin d'un rectangle arrondi dans une picturebox

**iclic** · 15/11/2010, 14h12

Bonjour,

J'ai pu trouver dans le forum la dll et l'appel à celle-ci (merci à Babaotes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
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
 
...
 
Set q = Picture2
'exemple de position bien sûr les paramètres peuvent changer
q.ScaleMode = vbCentimeters
q.ScaleTop = 100
q.ScaleLeft = 27
q.CurrentX = 120
q.CurrentY = 120
ep = 10
q.ScaleWidth = 150
q.ScaleHeight = 50
 
lq = q.ScaleWidth: hq = q.ScaleHeight: tcoul = q.Point(2, 2): q.DrawWidth = 2 'grosseur du trait
 
 RoundRect q.hdc, (ep / 2) + 1, (ep / 2) + 1, lq - (ep / 2) - 1, _
                      hq - (ep / 2) - 1, (lq + hq) / 6, (lq + hq) / 6
 
...

J'ai modifié les paramètres pour obtenir le dessin désiré, mais en
changeant les valeurs servant à positionner la figure, rien n'y fait,
celle-ci se positionne toujours dans le coin supérieur gauche de la picturebox.

Comment la positionner à l'endroit désiré?

Merci.

**OhMonBato** · 15/11/2010, 14h41

Bonjour,

c'est étonnant car en prenant des valeurs numériques,j'ai bien 3 rectangles différents, en taille, position, rayon de courbure.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
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 Sub Command1_Click()
Set q = Picture1
'exemple de position bien sûr les paramètres peuvent changer
q.ScaleMode = vbCentimeters
q.ScaleTop = 100
q.ScaleLeft = 27
q.CurrentX = 120
q.CurrentY = 120
ep = 100
q.ScaleWidth = 150
q.ScaleHeight = 50
 
q.Cls
q.ForeColor = vbRed
RoundRect q.hdc, 10, 10, 100, 100, 20, 20
q.ForeColor = vbBlue
RoundRect q.hdc, 50, 50, 120, 120, 20, 20
q.ForeColor = vbGreen
RoundRect q.hdc, 90, 90, 140, 140, 10, 10
End Sub

**babaothe** · 15/11/2010, 14h43

salut

ton problème commence ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

q.ScaleMode = vbCentimeters

Cette fonction fonctionne en pixels
Si tu veux utiliser une autre échelle, il te faut alors convertir toutes tes valeurs
(et c'est du thé, que je mets dans mon baba

)

**iclic** · 15/11/2010, 15h28

Bonjour,

D'accord OhMonBato,ça je sais.

Mais ce que je veux c'est garder la même forme (de rectangle arrondi) et la positionner à l'endroit de coordonnées x,y sur la picturebox.

Le but est par exemple d'encadrer du texte pour une impression, la picturebox ne servant qu'à formater une impression avec l'objet printer.
(plus facile de préparer sur une picture pour d'abord visualiser le résultat)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
q.ScaleMode = vbCentimeters

babaothe, ceci intervient surtout quand je change l'objet picturebox en objet Printer

A+

**babaothe** · 15/11/2010, 15h33

Envoyé par iclic

babaothe, ceci intervient surtout quand je change l'objet picturebox en objet Printer

l'objet Printer se traite exactement comme une picturebox et possède également une propriété scalemode.

**OhMonBato** · 15/11/2010, 15h39

Envoyé par iclic

Bonjour,

D'accord OhMonBato,ça je sais.

Je suis content que tu le saches déjà mais je continue de m'étonner parce que si je fais ça, j'ai 2 rectangles pareils à 2 endroits différents (en reprenant auparavant bien sur le reste du code déjà présent dans les messages précédents) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
q.Cls
q.ForeColor = vbRed
RoundRect q.hdc, 10, 10, 100, 100, 20, 20
q.ForeColor = vbBlue
RoundRect q.hdc, 50, 50, 140, 140, 20, 20

**iclic** · 15/11/2010, 15h40

l'objet Printer se traite exactement comme une picturebox et possède également une propriété scalemode.

C'est pour cette raison que je travaille d'abord sur l'objet Picturebox...

**babaothe** · 15/11/2010, 15h46

relis ce que je t'ai déjà exposé plus haut :
Cette fonction (RoundRect) calcule en pixels.
Si tu utilises une autre échelle, il te faudra transposer toutes tes valeurs (utilisation de Scalex et Scaley)

**iclic** · 15/11/2010, 15h57

Donc OhMonBato (j'ai essayé tes valeurs),il faut augmenter proportionnellement les 4 premiers paramètres pour déplacer le rectangle?

NB:Ma picturebox a une dimension A4 et sert d'abord à préparer l'impression

**OhMonBato** · 15/11/2010, 16h33

Effectivement c'est bien ça. J'utilise l'utilitaire API-Guide (que tu peux télécharger ici) et dans les paramètres on peut y lire :

· hdc
Identifies the device context.
· nLeftRect
Specifies the x-coordinate of the upper-left corner of the rectangle.
· nTopRect
Specifies the y-coordinate of the upper-left corner of the rectangle.
· nRightRect
Specifies the x-coordinate of the lower-right corner of the rectangle.
· nBottomRect
Specifies the y-coordinate of the lower-right corner of the rectangle.
· nWidth
Specifies the width of the ellipse used to draw the rounded corners.
· nHeight
Specifies the height of the ellipse used to draw the rounded corners.

C'est en anglais, désolé, mais cela veut dire qu'on définit d'abord les coordonnées du coin haut gauche, puis du coin bas droit, puis la largeur de l'axe horizontal de l'ellipse qui trace le coin, puis la hauteur de l'ellipse (on peut donc faire un angle "ovalisé").

Ensuite, question coordonnées, n'oublie pas la remarque de Babaothe.

**iclic** · 15/11/2010, 22h40

Merci OhMonBato pour les renseignements qui me manquaient.

de babaothe
relis ce que je t'ai déjà exposé plus haut :
Cette fonction (RoundRect) calcule en pixels.
Si tu utilises une autre échelle, il te faudra transposer toutes tes valeurs (utilisation de Scalex et Scaley)

Celà ,je sais ce n'est pas le problème, mais quelle est la différence entre pixels et twips car dans la MSDN ( où l'on peut apprendre beaucoup et malheureusement les apprentis vb ne vont pas assez voir) 567 twips=1 cm
mais rien sur les pixels .

Et grand merci pour les remarques et renseignements.
A+

**ProgElecT** · 15/11/2010, 23h30

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim MsG As String
MsG = "1 pixel = " & ScaleX(1, vbPixels, vbTwips) & " twips" & vbCrLf
MsG = MsG & "1 pixel = " & ScaleX(1, vbPixels, vbCentimeters) & " Centimetres" & vbCrLf
MsG = MsG & "1 centimetre = " & ScaleX(1, vbCentimeters, vbMillimeters) & " Millimetres" & vbCrLf
MsgBox MsG

F2

ScaleModeConstants

**iclic** · 16/11/2010, 11h21

Bonjour,

Donc si

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Picture1.ScaleMode = vbMillimeters

1cm = 567/15*10 pixels

Merci ProgElecT

**iclic** · 16/11/2010, 14h56

Remarques

1.D'abord correction bien sûr: 1mm = 567/15*10 pixels

2.L'objet printer ne fonctionne quand même pas exactement comme l'objet Picture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
...
' Mult = 1 - Posval1 =132 / pour l'objet Picturebox 
 Mult = 6 :Posval1 =156  'pour l'objet printer
 
xx1 = q.ScaleX(q.CurrentX, vbMillimeters, vbPixels) + Posval1 'coin supérieur gauche
yy1 = q.ScaleY(q.CurrentY, vbMillimeters, vbPixels)  'coin supérieur gauche
xx2 = q.ScaleX(q.CurrentX, vbMillimeters, vbPixels) + Posval1 'coin inférieur droit
yy2 = q.ScaleY(q.CurrentY, vbMillimeters, vbPixels)  'coin inférieur droit
 
RoundRect q.hdc, 6 * Mult + xx1, 6 * Mult + yy1, 144 * Mult + xx2, 44 * Mult + yy2, 20 * Mult, 20 * Mult
...

J'ai du ajouter un multiplicateur pour l'objet Printer (autrement le rectangle était tout petit alors que dans la picturebox la taille était normale) et une
variable pour positionner le rectangle au même endroit .(suivant que l'objet était Printer ou Picture).

**babaothe** · 16/11/2010, 15h19

salut

et postval1 : il est exprimé en quoi ?

**iclic** · 17/11/2010, 11h30

Bonjour,

et postval1 : il est exprimé en quoi ?

Je suppose certainement en pixel: il sert à positionner exactement le rectangle autour du texte car je dois rectifier la valeur du currentX.
( sa valeur est trouvée par essai )
L'mpression du rectangle se fait à la ligne en-dessous du texte.

Pour information, le texte est l'impression d'une facture:le formatage est enregistré dans un fichier texte qui est si on veut la photocopie de l'impression A4 (avec espaces,retour à la ligne etc..) sauf que dans un fichier texte on ne sait pas faire du graphisme.
Le fichier texte est relu et chaque ligne est mise dans l'objet printer avec la propriété Print.

**ProgElecT** · 17/11/2010, 13h33

Salut
Bien que déjà signalé par d'autre intervenant.
Tu as assurément un problème d'unité différente (ScaleMode) entre ton objet Printer et la fonction RoundRect.
Mets ton objet Printer.ScalMode = VBpixels puisque RoundRect ne sait travailler qu'avec cette unité.

Envoyé par MSDN

CurrentX, CurrentY, propriétés

Renvoient ou définissent les coordonnées horizontales (CurrentX) ou verticales (CurrentY) de la méthode d'impression ou de dessin suivante.
.................
Les coordonnées sont exprimées en twips ou dans l'unité de mesure en cours définie par les propriétés ScaleHeight, ScaleWidth, ScaleLeft, ScaleTop et ScaleMode.

**iclic** · 18/11/2010, 12h56

Bonjour,

Ce qui est bizarre Progelec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
...
Set q = Picture2
 'Set q = Printer
...
 
xx1 = q.ScaleX(q.CurrentX, vbMillimeters, vbPixels)  'coin supérieur gauche
yy1 = q.ScaleY(q.CurrentY, vbMillimeters, vbPixels)  'coin supérieur gauche
xx2 = q.ScaleX(q.CurrentX, vbMillimeters, vbPixels)   'coin inférieur droit
yy2 = q.ScaleY(q.CurrentY, vbMillimeters, vbPixels)  'coin inférieur droit
 
RoundRect q.hdc, 6 * Mult + xx1, 6 * Mult + yy1, 144 * Mult + xx2, 44 * Mult + yy2, 20 * Mul

Avec l'objet Picture les valeurs de :
CurrentX = 90,51468
CurrentY = 8,00897
xx1 = 30
yy1= 353
xx2 = 30
yy2 = 353

Si je fais uniquement ceci,sans rien changer d'autre dans le code ,ni dans les paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 'Set q = Picture2  mise en rem de l'objet Picture
 Set q = Printer    'enlever le rem de l'objet Printer

Avec l'objet Printer les valeurs changent
ici peu de changements
CurrentX = 90,25829
CurrentY = 9,008315

par contre ici
xx1 = 213
yy1= 2085
xx2 = 213
yy2 = 2085

Et voilà les paramètres définis pour les 2 objets avant l'impression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
     q.ScaleMode = vbMillimeters 
      q.ScaleTop = 0
      q.ScaleLeft = 27
      q.Font = "courier new"
      q.FontSize = 11
       q.CurrentX = 0
      q.CurrentY = 19
       q.DrawWidth = 2
      q.FillColor = 16
       q.FillStyle = 1

Maintenant la picturebox à la dimension d'une feuille A4, mais ...
définie en twips ( bien sûr une scrollbar permet de la visualiser entièrement)
Serait-ce la raison d'une différence dans les valeurs?

**ProgElecT** · 18/11/2010, 14h25

Salut
Ma dernière intervention puisque la discussion est taguée RESOLU.
Pour mémo :
A quelques exceptions prêtes,
Left, Right, Top et Width ont pour unités celles définis suivant le ScaleMode du Parent conteneur du composant.
ScaleLeft, ScaleRight, ScaleTop et ScaleWidth, Currentx et CurrerntY ont pour unités suivant le ScaleMode du composant.

Maintenant la picturebox à la dimension d'une feuille A4, mais ...
définie en twips

Personnellement, je donnerai ScaleMode du Picture = vbMillimeters Idem pour l’objet Printer.
Je convertirai (de vbMillimeters en VBPixels) toutes les dimensions et coordonnées à destination de la fonction RoundRect, comme tu le fais avec XX1, YY1, XX2 et YY2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RoundRect q.hdc, 6 * Mult + xx1, 6 * Mult + yy1, 144 * Mult + xx2, 44 * Mult + yy2, 20 * Mult

Je ne comprends pas l’usage et à quoi te sert Mult, pas plus que 6*, 144*, 44* et 20*.

**iclic** · 19/11/2010, 12h27

Bonjour,

De ProgelEct

Tu as assurément un problème d'unité différente (ScaleMode) entre ton objet Printer et la fonction RoundRect.

Tu as raison, c'était un problème d'unité différente,il suffisait de faire ceci,
d'insérer toutes les valeurs à transmettre à l'api dans des variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
...
xx1 = q.ScaleX(1 + q.CurrentX, vbMillimeters, vbPixels)  'coin supérieur gauche
yy1 = q.ScaleY(1 + q.CurrentY, vbMillimeters, vbPixels) 'coin supérieur gauche
xx2 = q.ScaleX(40 + q.CurrentX, vbMillimeters, vbPixels) 'coin inférieur droit
yy2 = q.ScaleY(12 + q.CurrentY, vbMillimeters, vbPixels) 'coin inférieur droit
rd1 = q.ScaleX(4, vbMillimeters, vbPixels)
rd2 = q.ScaleX(4, vbMillimeters, vbPixels)
 
RoundRect q.hdc, xx1, yy1, xx2, yy2, rd1, rd2
...

pour que l'objet Picture et l'objet Printer correspondent.

A+

Dessin d'un rectangle arrondi dans une picturebox

VB 6 et antérieur

Discussions similaires

Partager

Partager