Remplacer un texte par une image dans un richtextbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 278 fois - Téléchargée 47 fois

Contenu du snippet

Mettant kc la tete a trouver un moyen de remplacer des smiley texte par leur homologue graphique g reussi a faire un ptit code.
je vous le passe car cela vous sera peut etre utile ...

Il fo minimum un control picturebox (picture1, ....) sur une form avec une image prechargée et un richtextbox (richtextbox1)

Source / Exemple :


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 sub remplace(texte as string)
    dim remp as string
    remp = " le texte a remplacer par l'image "       ' /!\  le premier charactere doit etre identhique a toutes les chaines a remplacer
    Dim dep As Long
    Dim l
    Dim temp
    dep = 0
    For l = 1 To Len(texte)
        temp = Mid$(texte, l, 1)
        If temp = mid$(remp,1,1) Then
            Clipboard.Clear
            
            If Mid$(texte, l, len(remp)) = remp Then
                Clipboard.SetData Picture1.Picture
                SendMessage RichTextBox1.hWnd, &H302, 0, 0
                dep = len(remp) - 1
            End If
            ' otan de comparaison ke necessaire
            ...
            ...
        Else
            If dep = 0 Then
                RichTextBox1.SelText = temp
            Else
                dep = dep - 1
            End If
        End If
    Next l
end sub  

' pour appeler le sub: remplace " votre texte a analiser "

Conclusion :


bon si vous avez d bugz signalé les car g adapté le code a celui ke g fait ! pr kil soit utilisable par tous !

il est pas super rapide donc si vs avez dotre soluce faite les moi parvenir a toflem@free.fr svp.
merci par avance

A voir également

Ajouter un commentaire

Commentaires

Messages postés
71
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
5 août 2012
1
Te casse pas la tete , j'ai trouver autre solution plus simple!
Merci quand meme
Messages postés
4
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
18 juin 2003

tata faut ke le premier caractère soit identique
Messages postés
71
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
5 août 2012
1
je voudrais remplacer plusieur sgne par des images dans un texte avec ton code comme ex: salut :) grand chef , sa marche pas }:(
Voila , pourrais tu m'aider ?
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

quel est ton probleme ?
Messages postés
71
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
5 août 2012
1
J'ai des problemes pour afficher different smiley avec ton prog
aurez tu une solution
Oh grand chef !
Afficher les 9 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.