Import d'image dans un RichTextBox

Signaler
Messages postés
107
Date d'inscription
mardi 20 août 2002
Statut
Membre
Dernière intervention
15 octobre 2004
-
Messages postés
63
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
6 janvier 2009
-
J'aimerais savoir comment faire pour importer une image dans un RichTextBox, merci.

*******Sébastien VALAT*********
*****Mon site : TI-NET : http://perso.wanadoo.fr/sebastien.valat/*****

2 réponses

Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
23
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

Sub InsertPicture (RTB As RichTextBox, Picture As StdPicture)
' Copie la picture ds le clipboard.
Clipboard.Clear
Clipboard.SetData Picture
' paste ds le RichTextBox
SendMessage RTB.hwnd, WM_PASTE, 0, 0
End Sub

InsertPicture RichTextBox1, _
LoadPicture("c:\monimage.bmp")

::|The S@ib|::
0
Messages postés
63
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
6 janvier 2009

Sans passer pas le clipbord, est-co possible ?

Pepsi
0