PictureBox et *.bmpRésolu

Question

Bonjour,
Dans un PictureBox j'ai affiché un code-barre qui a été calculé et dessiné ( et non chargé à partir d'une image)
Je voudrais que ce PictureBox soit converti en image BMP
Je ne trouve pas la solution pour arriver à ce résultat.
Merci pour vos réponses
Didier HEROUX

jmfmarques · Accepted Answer

J'ai une question, moi, bien que je ne sois pas un utilisateur de VB.Net

Un codebarre est pour moi un texte écrit dans une police de caractères. Et c'est cette police, que l'on crée, pas un dessin à chaque fois.

Tout le reste est à partir de là somple : on écrit sur la pictureBox en se référant à cette Police.

mortalino · Answer

Salut, il faut utiliser l'instruction SavePicture : Private Sub Picture1_Click() SavePicture Me.Picture1, "C:\documents and settings\mortalino\bureau est.bmp" End Sub ~ [code.aspx?ID=39466 Mortalino] ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

dheroux · Answer

Merci d'avoir répondu, mais cela ne fonctionne pas.
J'ai oublié de dire que je travaille sous VB5 Express
SavePicture n'est pas reconnu !
Didier HEROUX

nbaduraux · Answer

Essayes :
PictureBox1.Image.Save("C:	est.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

cs_casy · Answer

"...sous VB5 Express..."   NON

VB5 Express n'existe pas. Sous tu travaille sous VB5 soit tu es sous VB2005 Express

On va garder la seconde solution.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

dheroux · Answer

Merci à nbaduraux, mais ....
Si j'implante la ligne (en VB2005)
PictureBox1.Image.Save("C:	est.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

alors j'ai le message d'erreur:
"La référence d'objet n'est pas définie à une instance d'un objet."   ??????

Didier HEROUX

mortalino · Answer

Je fais pas de DotNet mais regarde du côté du nom de ta PictureBox :
PictureBox1.Image.Save...

(à remplacer par le bon nom)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

nbaduraux · Answer

Tu dis : "Dans un PictureBox j'ai affiché un code-barre qui a été calculé et dessiné ( et non chargé à partir d'une image)"
Est-ce la propriété Image de ton PictureBox qui n'est pas instancié ? Comment remplis-tu ton PictureBox ? Il faut peut-être commencer par là ...

dheroux · Answer

Merci du suivi de ma demande.

Private





Sub

 ToolStripLabel1_Click(


ByVal

 sender 


As

 System.Object, 


ByVal

 e 


As

 System.EventArgs) 


Handles

 ToolStripLabel1.Click


PictureBox2.Image.Save(





"C:	est.bmp"

, System.Drawing.Imaging.ImageFormat.Bmp)
end sub

Lors du click sur le boutton pour éxécuter la routine ci-dessus, j'obtiens le message : "La référence d'objet n'est pas définie à une instance d'un objet."
Mais comment instancié la propriété image si le problème est là ?

Merci
Didier HEROUX

nbaduraux · Answer

Ma question était : quelle méthode utilises-tu pour afficher ton code-barre dans le picturebox ? Au chargement, avant son utilisation !

dheroux · Answer

Ci-dessous le code qui affiche l'image du code-barres dans le PictureBox2

--------------------------------------------------------------------------------------
Sub




 echellereduite(


ByVal

 abscisseX, 


ByVal

 ordonneeY, 


ByVal

 valeur)



Dim

 h 


As

 Graphics = PictureBox2.CreateGraphics



Dim

 code2 


As





String

 = code.Text



Dim

 i, hauteur 


As





Integer


abscisseX = 





50

 : ordonneeY = 


25








If

 code.Text = 


""





Then





Exit





Sub








For

 i = 


0





To

 CodeBinaire.Length - 


1








If

 CodeBinaire.Substring(i, 


1

) = 


"1"





Then








If

 i = 


0





Or

 i = 


2





Or

 i = 


46





Or

 i = 


48





Or

 i = 


92





Or

 i = 


94





Then

 hauteur = 


60

 + valeur * 


2





Else

 hauteur = 


55

 + valeur * 


2


abscisseX += 





1


h.DrawLine(Pens.Black, abscisseX, ordonneeY, abscisseX, hauteur)








Else


abscisseX += 





1


h.DrawLine(Pens.White, abscisseX, ordonneeY, abscisseX, hauteur)








End





If








Next


PictureBox2.Image.Save(





"c:\codebarre.bmp"

)    '.................... VOICI LA LIGNE DE MON PROBLEME POUR ENREGISTRER L'IMAGE DU CODE-BARRES

end sub

Didier HEROUX

dheroux · Answer

Voici la procédure qui affiche le code-barres dans le PictureBox2:

Sub

 echellereduite(


ByVal

 abscisseX, 


ByVal

 ordonneeY, 


ByVal

 valeur)



Dim

 h 


As

 Graphics = PictureBox2.CreateGraphics



Dim

 code2 


As





String

 = code.Text



Dim

 i, hauteur 


As





Integer


abscisseX = 


50

 : ordonneeY = 


25



If

 code.Text = 


""





Then





Exit





Sub



For

 i = 


0





To

 CodeBinaire.Length - 


1



If

 CodeBinaire.Substring(i, 


1

) = 


"1"





Then



If

 i = 


0





Or

 i = 


2





Or

 i = 


46





Or

 i = 


48





Or

 i = 


92





Or

 i = 


94





Then

 hauteur = 


60

 + valeur * 


2





Else

 hauteur = 


55

 + valeur * 


2


abscisseX += 


1


h.DrawLine(Pens.Black, abscisseX, ordonneeY, abscisseX, hauteur)



Else


abscisseX += 


1


h.DrawLine(Pens.White, abscisseX, ordonneeY, abscisseX, hauteur)



End





If



Next


PictureBox2.Image.Save(





"c:\codebarre.bmp"

)         la ligne qui me pose problème
Merci

Didier HEROUX

nbaduraux · Answer

Voilà qui m'a donné du fil à retordre mais j'ai fini par trouver !!

Le principe est d'instancier d'abord l'image du picturebox en créant une image vide, de récupérer l'objet Graphics de l'image (et non du picturebox directement). Tu dessines ton code barre ensuite comme tu veux et tu disposes de l'objet image pour l'enregistrement dans un fichier bmp.

Voila ce que ça donne :

'création de 'instance de l'image du picturebox
PictureBox2.Image = New System.Drawing.Bitmap(PictureBox2.Width, PictureBox2.Height)
'extraction du Graphics de l'image (et non directement du picturebox !)
Dim h As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(PictureBox2.Image)
'couleur de fond de l'image (sinon c noir !!)
h.Clear(System.Drawing.Color.White)



'Dessin du code-barre ... 

h.DrawLine(System.Drawing.Pens.Black, 10, 10, 100, 100)



'Enregistrement de l'image

PictureBox2.Image.Save("c:\codebarre.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

Et merci pour ton casse-tête ;-))

dheroux · Answer

Un grand merci pour ce travail !
J'ai bien compris la méthode à adopter. 
Bonne soirée.

Didier HEROUX

PictureBox et *.bmp

14 réponses

Votre réponse

Discussions similaires