Inserer une image dans une richtextbox

Soyez le premier à donner votre avis sur cette source.

Vue 7 552 fois - Téléchargée 1 050 fois

Description

Voici un ptit bout de code simple permettant d'inserer une image contenu dans une PictureBox, dans une RichTextBox...

Source / Exemple :


'Voici l'API et ca constante qui permette de la faire

'Declaration de l'API et de la constante necessaire
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 WM_PASTE = &H302

Conclusion :


J'espere que ce code en aidera plus d'un....
Bonne prog a tous..
A++

DeAtH_-_CrAsH

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
5
Date d'inscription
dimanche 16 novembre 2003
Statut
Membre
Dernière intervention
28 décembre 2004

voila un lien pour VB.net qui peut vous aider a bien comprendre comment richtextbox ne supporte que les images :metafiles de windows (parmi eux *.bmp)
http://www.thecodeproject.com/cs/miscctrl/csexrichtextbox.asp
aussi je vous conseille de consulter le support de Microsoft pour les bugs de richextbox....
il ya aussi un controle activex plus developpé : TX Text : http://www.textcontrol.com (mais c'est payant...) .
bon chance a tous....
Messages postés
5
Date d'inscription
dimanche 16 novembre 2003
Statut
Membre
Dernière intervention
28 décembre 2004

bien, je pense que pour ajouter des gifs animés ou transparents d'abord il ne faut pas utiliser les picturebox car elles ne supporte pas l'animation gif ou la transparence de ce type d'images .
pour richtextbox elle ne prend pas en charge les gifs animes ou transparents , tu peux experementez ça à la main : creer une richbox dans une form , puis executer la et essayer de coller un gif dans le controls richtextbox , tu vas avoir une rectangle avec le nom du gif la dedans , et rien de plus !!merci pour le code .
Messages postés
12
Date d'inscription
lundi 16 août 2004
Statut
Membre
Dernière intervention
26 septembre 2006

pour ceux que ça intéresserait pour permettre le choix de l'image on peut écrire ce bout de code

Private Sub Command1_Click()
' Copie l'image dans le presse-papier
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub

Select Case Right(CommonDialog1.FileName, 4)
Case ".bmp", ".wmf", ".gif", ".jpg"

Case Else
MsgBox ("Certains formats ne sont pas compatibles avec le programme")
Exit Sub
End Select

Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Clipboard.Clear
Clipboard.SetData Picture1.Picture
'Insertion de l'image dans la RichTextBox
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub

Remarque: il faut créer un control de boite de dialogue commune (commondialog) avec le composant Microsoft Common Dialog Control 6.0
Messages postés
212
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
6 avril 2006

But... It's perfect !!!!!!!
Messages postés
22
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
26 février 2003

cool est simple ! tout ce que j'aime .
merci
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.