Ecrire du texte dans une Picturebox

Je cherche à ecrire du texte dans une picturebox et sauvegarder le tout en BMP ou JPG...
Merci d'avance...

tu peux peut etre essayer la methode print mais, je sais pas si le résultat peut etre imprimé !
@+



-------------------------------
Réponse au message :
-------------------------------

Je cherche à ecrire du texte dans une picturebox et sauvegarder le tout en BMP ou JPG...
Merci d'avance...

Salut , G une solution simple a ton PB:
API :

Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

puis, dans ton code:
DrawText Picture1.hdc, "Texte", Len("Text"),Rect, 0

ou RECT est de type Rect (cadre ou tu ecris)

le 0 permet de definir comment tu ecris :

aligne a gauche, a droit ou au centre....

Bye

Merci ca a l'air de marcher...
mais c'est koi un type Rect ???
j'ai du mal a positionné mon zone de texte ou je veux sur mon BMP...

-------------------------------
Réponse au message :
-------------------------------

Salut , G une solution simple a ton PB:
API :

Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

puis, dans ton code:
DrawText Picture1.hdc, "Texte", Len("Text"),Rect, 0

ou RECT est de type Rect (cadre ou tu ecris)

le 0 permet de definir comment tu ecris :

aligne a gauche, a droit ou au centre....

Bye

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

cela te permet de definir le cadre ou tu ecris; il s'agit de coordonnees.
le (0,0) est le coin haut gauche de ton picturebox

pour la couleur , la police... il faut utiliser les proprietes de ton picturebox...

je ne vois lus quoi te dire si ce n'est qu'il faut perseverer , essayer differentes valeurs , et esperer ;)

as-tu mis l'autoredraw de ton picturebox sur true ? fait gaffe , ca peux te jouer des tours !


BYE

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

cela te permet de definir le cadre ou tu ecris; il s'agit de coordonnees.
le (0,0) est le coin haut gauche de ton picturebox

pour la couleur , la police... il faut utiliser les proprietes de ton picturebox...

je ne vois plus quoi te dire si ce n'est qu'il faut perseverer , essayer differentes valeurs , et esperer ;)

as-tu mis l'autoredraw de ton picturebox sur true ? fait gaffe , ca peux te jouer des tours !


BYE

je mets ca dans mon code :
Picture1.Scale (0, 10)-(10, 0)

Picture1.Line (1, 1)-(9, 9)
Dim MonRect As RECT

MonRect.Bottom = 1
MonRect.Top = 9
MonRect.Left = 1
MonRect.Right = 9

apiDrawText Picture1.hdc, "test", Len("test"), MonRect, 0

ca trace la ligne mais ca ecrit pas le texte .......
je deviens fou... si qq'un voit d'ou vient le pb...

-------------------------------
Réponse au message :
-------------------------------

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

cela te permet de definir le cadre ou tu ecris; il s'agit de coordonnees.
le (0,0) est le coin haut gauche de ton picturebox

pour la couleur , la police... il faut utiliser les proprietes de ton picturebox...

je ne vois lus quoi te dire si ce n'est qu'il faut perseverer , essayer differentes valeurs , et esperer ;)

as-tu mis l'autoredraw de ton picturebox sur true ? fait gaffe , ca peux te jouer des tours !


BYE

Change tes coordonnees
l'aPI s'en fout de ton echelle , il lui faut des pixels...
met des pixels et ca marche



Renfield BYE;)

Tu peux donner un exemple de code qui marche chez toi ou m'envoyer un projet VB ou tu utilise ca ??? n'importe koi que je mettes, ca ecrit pas du tout !!! (mon mail dorian.diot@free.fr)



-------------------------------
Réponse au message :
-------------------------------

Change tes coordonnees
l'aPI s'en fout de ton echelle , il lui faut des pixels...
met des pixels et ca marche



Renfield BYE;)

J'ai trouvé une autre méthode qui permet de se passer des API et celle - ci est toute simple.

image1.AutoRedraw = True
image1.Print Text1.Text
image1.Line -Step(5, 5)

image1 correspond a la picturebox

text1.text correspont a une textebox ou l'on inscrit son texte et
step permet de déterminer le décalage du texte.

a+



-------------------------------
Réponse au message :
-------------------------------

Change tes coordonnees
l'aPI s'en fout de ton echelle , il lui faut des pixels...
met des pixels et ca marche



Renfield BYE;)