Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[mactwist69]

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

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

[methylene]

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.

[methylene]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

[meziantou]

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

[methylene]

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.

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hunteshiva]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaPictureBox.Location

Aprés tu parle de redimentionner...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
sa doit pas étre exactement sa mais sa s'en approche

[guigui41]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guigui41]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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