Discussion :

[thierry007]

Bonjour

Le petit bout de code ci-dessous me permet j'ajouter du texte sur mon image dans le Picturebox, mais lorsque je le sauve, le texte lui ne l'est pas.
PbDrs= Mon PictureBox

je rate quelque chose ?

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
  Private Sub PbDrs_MouseDown(sender As Object, e As MouseEventArgs) Handles PbDrs.MouseDown
 
                  PointX = e.X
                  PointY = e.Y
 
      End Sub
 
      Private Sub PbDrs_MouseUp(sender As Object, e As MouseEventArgs) Handles PbDrs.MouseUp
            Dim gr As Graphics = Me.PbDrs.CreateGraphics
            Dim PF9Normal As Font = New Font("Arial", 9, FontStyle.Regular, GraphicsUnit.Point)
 
           gr.DrawString("TextAjouté", PF9Normal, Brushes.Yellow, PointX, PointY)
 
 
      End Sub

[tomlev]

Il faut dessiner sur l'image, pas sur le PictureBox. Au lieu d'utiliser le Graphics créé pour le contrôle PictureBox, crée-le à partir de l'image.
Et pense à libérer le Graphics après usage, sinon tu vas leaker des handles (le plus simple est d'utiliser un bloc Using)

Code :

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

1
2
3
4
5
6
7
8
      Private Sub PbDrs_MouseUp(sender As Object, e As MouseEventArgs) Handles PbDrs.MouseUp
            Using gr As Graphics = Graphics.FromImage(PbDrs.Image)
                Dim PF9Normal As Font = New Font("Arial", 9, FontStyle.Regular, GraphicsUnit.Point)
 
                gr.DrawString("TextAjouté", PF9Normal, Brushes.Yellow, PointX, PointY)
 
            End Using
      End Sub

[thierry007]

Bonjour et merci de ta collaboration

Lorsque je prend simplement ton code et le coller dans l'éditeur, au lancement de l'appli , il ne se passe rien sur l'image
le but étant comme je crois tu l'as bien compris , c'est de pouvoir ajouter une annotation sur une image , puis de sauvé le tout dans la DB

[tomlev]

Il y a une image dans la PictureBox ?

[thierry007]

Oui, il y a une image

[thierry007]

En ajoutant ceci -> ok

Code :

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

 PbDrs.Image = Newbitmap

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim PF9Normal As Font = New Font("Arial", 9, FontStyle.Regular, GraphicsUnit.Point)
            Dim ImgTemp As Bitmap = New Bitmap(PbDrs.Image)
            Dim gr As Graphics = Graphics.FromImage(ImgTemp)
 
                  PointX = e.X
                  PointY = e.Y
 
             gr.DrawString("TextAjouter", PF9Normal, Brushes.Yellow, PointX, PointY)
 
           PbDrs.Image = ImgTemp

Par contre l'étape suivante est de l'enregistre et sa bloque un peut ici ( sur la ligne RawFormat)

Code :

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

1
2
3
4
5
6
7
8
 Dim ms = New MemoryStream()
            Dim arrImage() As Byte
 
            MsgBox(PbDrs.Image.RawFormat.ToString)
 
            PbDrs.Image.Save(ms, PbDrs.Image.RawFormat)
            arrImage = ms.GetBuffer
            ms.Close()

je reçois le message suivant:

Une exception non gérée du type 'System.ArgumentNullException' s'est produite dans System.Drawing.dll

Informations supplémentaires : La valeur ne peut pas être null.

Pourtant PbDrs n'est pas vide...

[tomlev]

C'est juste parce que l'affichage ne s'était pas rafraichi que ça ne marchait pas ; il faut appeler PbDrs.Invalidate() après avoir dessiné sur l'image (en partant du code que j'avais donné)