ajouter un dessin sur un picturebox

Version imprimable

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:

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

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:

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

27/05/2014, 17h09
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
27/05/2014, 17h37
tomlev

Il y a une image dans la PictureBox ?
27/05/2014, 18h51
thierry007

Oui, il y a une image

En ajoutant ceci -> ok

Code:

PbDrs.Image = Newbitmap

Code:

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:

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...

27/05/2014, 20h14
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é)
27/05/2014, 20h34
thierry007

Merci Tom

Je teste cela demain matin

Pour l'enregistrement tu as une idée sur le pourquoi de l'erreur ?
27/05/2014, 20h43
tomlev

Dans le code que tu as posté pour l'enregistrement, je vois rien qui puisse causer cette erreur... En tous cas chez moi ça fonctionne. Quel est le format de l'image ?
Par contre il faut pas utiliser GetBuffer, mais ToArray. GetBuffer renvoie le buffer complet, y compris la partie pas utilisée (le MemoryStream alloue plus de mémoire que nécessaire en prévision de ce que tu vas peut-être y écrire après), alors que ToArray renvoie uniquement la partie où tu as effectivement écrit.

Bonjour Tom

En eftet Invalidate est la solution qui résous LES problèmes
car la sauvegarde fonctionne aussi:
en résumé

pour dessiner

Code:

1
2
3
4
5
6
7
 
               Dim PF9Normal As Font = New Font("Arial", 9, FontStyle.Regular, GraphicsUnit.Point)
               Dim gr As Graphics = Graphics.FromImage(PbDrs.Image)
 
            gr.DrawString(TextToInclude.Text, PF9Normal, Brushes.Yellow, PointX, PointY)
 
            PbDrs.Invalidate()

pour sauver

Code:

1
2
3
4
5
6
7
8
9
  Dim ms = New MemoryStream()
            Dim arrImage() As Byte
 
            PbDrs.Image.Save(ms, PbDrs.Image.RawFormat)
            arrImage = ms.ToArray
            ms.Close()
 
            My_ConnexionSQL = New SqlConnection(ConnexionDb)
...

Encore merci a toi Tom