cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 2013
-
20 avril 2007 à 17:44
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 2013
-
21 avril 2007 à 19:06
Salut, euh, c'est une question que je repose, savez-vous comment faire pour insèrer une ligne de texte dan un picturebox. J'aimerai vraiment le savoir, c'est vachement utile dans le logiciel que je développe.
Comme je le disis, tu n'avais pas mis d(image dans ta picturebox
Donc, met ca a l'ouverture de ton application :
PictureBox1.Image = Image.FromFile("MonImage.bmp")
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 20132 20 avril 2007 à 18:20
Salut, de la manière dont je pense m'y prendre dans ce cas et de ce que je veux en faire, c'est impossible. Le but que je cherche, c'est d'afficher une image dans le picturebox, y rajouté un ligne de texte, et enregistrer l'image, je croit pas qu'on peut enregistrer un image avec l'aparence (donc le texte) d'un contrôle qui est aux alentour (donc, le label).
Voila
Merci quand même... Au secours!!! j'aimerais bien finir cette partit de mon prog!!! lol
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 20 avril 2007 à 18:31
Bonsoir,
Ce serait bien le diable si tu n'avais pas dans VB.Net l'équivalent du Print de VB !
Si non : tu as la fonction Textout de l'Api de Windows, qui fait la même chose !
Dans les 2 cas, ce n'est pas du texte, qui est mis dans ta pictureBox, mais bien l'image du texte. Et le tout (texte + image) est également une image !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Private Sub AddTextToImage(ByRef Img As System.Drawing.Image, ByVal Text As String, ByVal x As Integer, ByVal y As Integer)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Img)
g.DrawString(Text, System.Drawing.SystemFonts.DefaultFont, System.Drawing.SystemBrushes.WindowText, x, y)
End Sub
Private Sub UnButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnButton.Click
Dim Rnd As New System.Random()
Call AddTextToImage(TaPictureBox.Image, "Kikoo", Rnd.Next(0, TaPictureBox.Width), Rnd.Next(0, TaPictureBox.Height))
End Sub,
----
(Coloration syntaxique automatique par Kenji)
Tu peux améliorer en passant la couleurs, la police, ... du texte à la fonction.
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 20132 20 avril 2007 à 18:50
Re, pti problême, dans la ligne:
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Img)
Il e dit que Img ne peut avoir de valeur nul. Que faut-il que je donne come valeur, une image?
mais y a de nouveau un truc, y a plus de message d'erreur, à parament, tous va bien, mais le truc, c'est qu'il se passe rien, auccun texte n'apparaît. Doit, y avoir une autre erreur quelque par, avez-vous une idées...
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 20132 21 avril 2007 à 18:53
Ba, en fait, y en avait une, mais je l'avait mise grace à l'outil "propriété" de visual basic 2005 express... en tous cas, merci, sa fonctionne, chui trop content, jvais chialé et pissé par-terre... lol... Merci encore.