Insérer une image dans une RichTextBox sans utiliser le Presse-Papiers

cs_Berenger Messages postés 35 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 19 juillet 2004 - 26 avril 2003 à 15:22
SkyRocKo Messages postés 174 Date d'inscription samedi 10 mai 2003 Statut Membre Dernière intervention 18 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 ...

2 réponses

cs_FredT Messages postés 65 Date d'inscription mardi 18 février 2003 Statut Membre Dernière intervention 11 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.
0
SkyRocKo Messages postés 174 Date d'inscription samedi 10 mai 2003 Statut Membre Dernière intervention 18 février 2006
24 août 2004 à 21:25
Ca m'intéresserait aussi.

Dommage que ta technique n'affiche pas l'image FredT sinon, bon code.

Si quelqu'un a la réponse sous la main...

@+
0
Rejoignez-nous