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