Insérer une image dans une RichTextBox sans utiliser le Presse-Papiers
cs_Berenger
Messages postés35Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention19 juillet 2004
-
26 avril 2003 à 15:22
SkyRocKo
Messages postés174Date d'inscriptionsamedi 10 mai 2003StatutMembreDernière intervention18 février 2006
-
24 août 2004 à 21:25
Je cherche un moyen d'insérer une image dans une RTB sans utiliser la fonction "Clipboard".
Merci de votre réponse ...
A voir également:
Insérer une image dans une RichTextBox sans utiliser le Presse-Papiers
cs_FredT
Messages postés65Date d'inscriptionmardi 18 février 2003StatutMembreDernière intervention11 avril 2009 27 avril 2003 à 10:17
Pour l'instant j'utilise ça :
With BoiteDialogue
.Filter = "Images (bmp;gif;jpg;jpeg;png;wmf)|*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.wmf"
.FileName = ""
.flags = &H1008 '&H1000 Fichier doit etre existant
.ShowOpen
If Len(.FileName) > 0 Then
Dim objImg As OLEObject
Set objImg = rtfDescription.OLEObjects.Add(, , .FileName)
objImg.DisplayType = rtfDisplayContent
End If
End With
Mais j'ai beaucoup d'erreur, et l'image s'ouvre ensuite avec le prog par défaut je crois que je vais revenir au presse papier.