Positionnement Date en utilisant Graphics.FromImage(img)

Version imprimable

21/12/2017, 21h37
JLuc01

Positionnement Date en utilisant Graphics.FromImage(img)
Bonjour,

J'utilise le code suivant pour mettre une date (annee seulement) sur une image (1200x800px):
Code:

1 2 3 4 Using g As Graphics = Graphics.FromImage(img) g.DrawString(txtSelectedYear.Text, New Font("Times New Roman", 120, FontStyle.Bold), New SolidBrush(Color.Black), 800, 600) End Using
Suivant le font que j'utilise, la date peut se trouver partiellement en dehors de l'image. Pas de probleme ici avec Font("Times New Roman", 120, FontStyle.Bold).
Les coordonnees (800,600) correspondent a (top, left).

Est-il possible par code de positionner la date par rapport a (bottom, right) de facon a supprimer ce probleme?
Ou doit-on considerer la taille de chaque caractere du Font, ce qui augmente considerablement le defi?
Ou utiliser une langue ou on ecrit de droite a gauche (changement de repere), mais je delire peut-etre?

Bref, je cherche une idee simple, si toutefois cela existe.

Merci...
A+
21/12/2017, 22h56
Pol63

drawstring a plein de surcharges
l'une d'elle demande un stringformat il me semble, qui permet de spécifier dans un rectangle où se trouve le string (horizontal+vertical alignment)

de plus il est possible de mesurer avant drawstring pour savoir si ca va passer (graphics.measurestring / controlrenderer.measuretext)
sinon tu peux alors baisser la font (while)

rappel au cas où :
une surcharge est une méthode avec le même nom mais une signature différente
la signature d'une méthode est définie par ses paramètres en nombre et en type
22/12/2017, 12h13
JLuc01

OK. Merci.
Je vais regarder dans cette direction (drawstring surcharge) ce soir.

A+

bonjour

Come dit par Pol63 ,la solution se trouve dans Graphics.MeasureString et un peu de calcul et un bout de papier....

exemple code vb qui décale le rectangle de présentation de la chaine("layout"):

code .vb du form exemple(un panel scrollable est utilisé pour dessiner un image factice):

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Public Class Form1
    Private img As Bitmap = Nothing
    Private topleft As Point
    Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.AutoScroll = True 'assure le defilement du panel
 
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        topleft = New Point(800, 600)
        Dim txtYear As String = Date.Now.Year.ToString()
 
        Dim rect As New Rectangle(0, 0, 1200, 800)
        img = New Bitmap(rect.Width, rect.Height)
        Me.Panel1.Size = img.Size 'panel est ajuste pour afficher la totalité de l'image
 
        Using grfx As Graphics = Graphics.FromImage(img)
            Using fnt As New Font("Times New Roman", 240, FontStyle.Bold)
                Dim sizeString As SizeF = grfx.MeasureString(txtYear, fnt)
 
                'rectangle de presentation
                Dim layout As New Rectangle(topleft, Size.Ceiling(sizeString))
 
                ' on decale l'img quelque soit la taille du string
                If layout.Right > img.Width Then
                    layout.X -= layout.Right - img.Width
                End If
                If layout.Bottom > img.Height Then
                    layout.Y -= layout.Bottom - img.Height
                End If
 
 
                grfx.FillRectangle(Brushes.Aquamarine, rect)
                grfx.DrawString(
                    txtYear,
                    New Font("Times New Roman", 240, FontStyle.Bold),
                    New SolidBrush(Color.Black),
                    layout)
                'dessin du rectangle de presentation
                Using thepen As New Pen(Brushes.Red, 2.0)
                    grfx.DrawRectangle(thepen, layout)
                End Using
            End Using
        End Using
 
 
        Me.Panel1.Invalidate()
 
    End Sub
    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        Dim gr As Graphics = e.Graphics
        If img Is Nothing Then Return
 
        gr.DrawImage(img, 0, 0)
    End Sub
End Class

bon code...

24/12/2017, 17h29
JLuc01

Bonjour,

CA MARCHE! Le code fourni par Mabrouki m'a beaucoup aide.
J'ai juste ajoute une messageBox pour avertir quand le string sort de l'image a gauche (ou moins probablement en haut), car j'ai l'intention de faire varier le text et le font.

J'avoue que la direction de Pol63 est certainement la bonne, mais j'aurais rame un peu plus avant d'arriver a mon but.
Interessant aussi de comparer (via infos sur internet) graphics.measurestring et controlrenderer.measuretext.

Bref, merci encore pour votre aide.

A+
JLuc01