insérer image dans une richtextbox

bonjour a tousse
j'ai fait un petit programme et dedans il y a une richtextbox1
et un bouton et quand je clique dessus c'est pour sélectionner une image et la mettre dans la richtextbox
voila mon code en vb:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim odlg As OpenFileDialog Try odlg = New OpenFileDialog If odlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then Dim img As Image = Image.FromFile("") Dim orgData = Clipboard.GetDataObject Clipboard.SetImage(img) RichTextBox1.Paste()   Clipboard.SetDataObject(orgData) End If Catch End Try End Sub End Class

---

le probleme c'est quand je clique sur l'image et puis je fait ouvrir et bien rien ne se passe l'image ne se colle pas dans la richtextbox
je ne comprend pas pourquoi pourriez m'aidez svp
si possible est ce que aussi je vais pouvoir redimensionné l'image ?

Est ce que tu es sur que c'est possible?

Parce que dans RichTextBox, il y a Text...

Dans "RichTextBox" il y a "Text".

En anglais "Text" veut dire texte, donc une RichTextBox se remplit avec du texte "enrichi", c'est à dire police spécifique, gras, italique, souligné barré etc ...

Dans "PictureBox"il y a "Picture".

En anglais "Picture" veut dire image, donc une PictureBox se remplit avec une image.

Et à moins erreur de ma part, je doute fort que la "RichTextBox" de base puisse contenir une image.

Remarque tu peut sans dout en utilisant GDI+, donc en dessinant ton image dans le contrôle "RichtextBox".

Code qui devrait marcher :

Après à toi d'adapter la taille

Code:

---

1 2 3 4 5

Dim g = RichTextBox1.CreateGraphics Dim pinceau As New Pen(Color.Black)   img = Image.FromFile("C:\Documents and Settings\aufrancois\Bureau\link.jpg") g.DrawImage(img, 0, 0, RichTextBox1.Width, RichTextBox1.Height)

---

Voir la pièce jointe pour rendu.

merci pour vos rapide réponse

j'y avait pas penser
je vais plutot placer une picturebox dans ma richtextbox
et quand je clique sur mon bouton sa ouvre l'image dans ma picturebox

http://www.codeproject.com/KB/edit/csexrichtextbox.aspx

Citation:

---

Envoyé par Morpheus500

merci pour vos rapide réponse

j'y avait pas penser
je vais plutot placer une picturebox dans ma richtextbox
et quand je clique sur mon bouton sa ouvre l'image dans ma picturebox

---

La solution que je t'ai donné est plus efficace qu'une picturebox, vu que tu ne rajoute pas de contrôle.

Quand au lien de Meziantou, le souci va être de l'adapter, car c'est pas du vb, mais sinon c'est pas mal aussi.

j'ai trouvé c'est tout bon
voila mon code qui marche

Code:

---

1 2 3 4 5 6 7

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click OpenFileDialog1.Filter = "Fichiers bmp(bmp)|*.bmp|Fichiers jpg (*.JPG)|*.jpg|Fichiers gif (*.GIF)|*.gif" If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)   End If End Sub

---

le seul probleme c'est que j'arrive pas a dire a mon picturebox de pouvoir le déplacer et le redimensionner quand je lance mon programme
dans les propriété de picturebox j'ai éssayer de changer locked dans design et le mettre en true mais sa marche pas

tu veut déplacer ta pictureBox? *cherche par la*

Code:

---

MaPictureBox.Location

---

Aprés tu parle de redimentionner...

tu veut adapter ta pictureBox a la taille de ton image ?

Code:

---

MaPictureBox.SizeMode = AutoSize

---

ou réduire l'image a la taille de la PictureBox?
*le code demain ^^*

J'ais mis le code de téte :oops:
sa doit pas étre exactement sa mais sa s'en approche ;)

Bonjour, la solution pour afficher une image dans le richtextbox :

Code:

---

1 2 3 4

Dim g = RichTextBox1.CreateGraphics   img = Image.FromFile("C:\Documents and Settings\aufrancois\Bureau\link.jpg") g.DrawImage(img, 0, 0, RichTextBox1.Width, RichTextBox1.Height)

---

Fonctionne bien, moi je cherche le moyen de positionner cette image et de le prendre en compte avec le texte du contrôle.

En effet, si je positionne l'image a coté du texte en "trichant" et que je rajoute du texte, le texte se met par dessus l'image...

(Je souhaite développer une appli de discussion et changer du texte en image)

Si une personne pourrai m'aider ;)

Bon, j'ai trouver 95% de la solution moi même,

Code:

---

1 2 3 4 5 6 7 8 9 10

'je defini img en tant qu'image Dim img As Image = Image.FromFile("image\happy.gif") 'je copie cette image dans le presse papier Clipboard.SetImage(img) 'je rend modifiable le contrôle RichTextBox1.ReadOnly = False 'je colle cette image dans le contrôle RichTextBox1.Paste() ' je re rend le contrôle non modifiable vue que c'est un tchat RichTextBox1.ReadOnly = True

---

Le seul probleme est que si l'utilisateur clique sur l'image il peut modifier la taille avec la souris se qui est trés désagréable