Grosse galère !!!!

Question

Bonjour à tous.
Bon, c mon premier msg en newsgroup. J'espère avoir LA 
solution à mon pb ;)))
Voilà : j'essai d'insérer tout simplement une image à un 
RichTextBox, en insérant le fichier directement dans lma 
chaine rtf. G repéré les balises utilisées 
( "{\pict	ypefichier ...}") mais le problème, c que je ne 
sais pas quel est le type de chaine à insérer. Je pensais 
que c'était le code hexa du fichier, mais quand j'ouvre un 
fichier en binaire, que je transforme la chaine en hexa, 
et que je balance le tout dans un rtf ... rien !! 
Donc ma question : à part en passant par le presse-papier 
ou les OLE, comment je peux insérer une image dans un rtf 
en code ? ou alors, où est-ce que je peux trouver de la 
doc à ce sujet ?
Merci et bon dev !

YOYO2B ... un Nom, mais pas seulement ... un prénom aussi !!

econs · Answer

Salut,

une simple recherche des mots 'richtextbox' et 'image' sur ce site te donne, par exemple, le code suivant :

------------------------------------------------------------

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")

--------------------------------------------------

Manu

Grosse galère !!!!

1 réponse

Discussions similaires