Label ou texte sur une photo

Existe'il un moyen pour insérer du texte ou un label de taille et de position variable sur une photo format Jpeg puis de sauvegarder celle-ci ?
L'idée serai de faire une appli du style Geneanote :
www.geneanote.com/francais/

Si quelqu'un à une idée ou une adresse.

peut etre mettre la photo dans une PictureBox
ensuite essayé de dessiné dedans , ms déssiné de facon a ecrire quelque chose.

Enfin j'ai po trop d'idée :s

ou dernier solution, dois y avoir un dll ou ocx qui permet cela.


J'espere que tu aura une réponse car sa serais pas mal sa ^^
Golog

je c pas si g bien compris ta question, mais essai sa :

tu a besoin de mettre sur ta form1 :
-> un bouton = Command1
-> une textbox = Text1
-> une picturebox = Picture1 (elle servira a mettre ton image et a acueillir les autre picturebox)
-> une autre pictutrebox = Picture2 que tu metre a l'interieur de la 1er et a la proprieter index tu met 0 (c tres important)

et apres voila la source ta plus cas faire un copier coller :

Option Explicit Private Declare Function ReleaseCapture Lib "user32" () As Long ' et de la relacher Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const HTCAPTION = 2 Private Const WM_NCLBUTTONDOWN = &HA1 Private Sub Command1_Click() Load Picture2(Picture2.UBound + 1) Picture2(Picture2.UBound).Print Text1.Text Picture2(Picture2.UBound).Width = Picture2(Picture2.UBound).TextWidth(Text1.Text) Picture2(Picture2.UBound).Visible = True Picture2(Picture2.UBound).ZOrder 0 End Sub Private Sub Form_Load() Picture2(0).Print Text1.Text Picture2(0).Width = Picture2(0).TextWidth(Text1.Text) End Sub Private Sub Picture2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Call ReleaseCapture Call SendMessage(Picture2(Index).hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End Sub

en esperant que sa t'aide (bien sur c a pofiner) ++

j'vien d'essayé

sa marche po sa donne sa :

quand j'ecris lol par exemple ds la text box
sa me cré un picturebox en plus dedans, ms elle son vide tt les deux.

j'imagine que ton code fais cela :

cré un picture box a chaque lettre et ensuite on les place comme on vx no?

sinon, dis ns l'erreur(peu etre les propriété de la picture box2 no?


Golog

Il faut charger ton image dans un picturebox :

Picture1.AutoRedraw = True
Picture1.autosize=true
Picture1.Picture = LoadPicture("c:\image.jpg")

Ensuite il faut ecrire le texte avec paintpicture dans ta picturebox

Picture1.CurrentX = 100 'Position axe x
Picture1.CurrentY = 200 'Position axe Y
Picture1.FontSize = 22 'Taille, etc...
Picture1.Print "Ceci est un texte" 'Le texte

Ensuite il faut sauvegarder l'image :

SavePicture Picture1, "c:\Image Modifié.bmp"

Ps: si tu veu sauver l'image en jpg, il fazut utiliser une dll, c'est un peu plus complexe, mais il y a des src sur vbfrance expliquant cela!!!

++

oki sa marche merci (pr sauver en jpg sa va j'ai un tit module et un dll qui le fais tres bien ^^)
Golog

j'vien de poster une source , j'espere qu'ellle satisefera samot
Golog