RICHTEXTBOX

Signaler
-
Messages postés
2
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
10 mars 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1341-richtextbox

Messages postés
2
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
10 mars 2010

merci beaucoup poue ce code
il est trés trés util pour moi
bonne chance
Messages postés
14
Date d'inscription
mercredi 27 décembre 2006
Statut
Membre
Dernière intervention
11 mai 2008

Mais il n'y a pas un moyen plus pratique :p pour selectionner du texte?!
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008

moi j'aimerais un ptit truc ses que sa detecte les url qui a dans un richtectbox au milieu du texte normale et qu'il me le souligne et le mette en bleu (un lien koi) et que quand on click sur l'url du richtextbox sa l'ouvre dans une new page j'ai beau chercher sur le fofo etc je trouve pas tu ne saurais pas ?
Messages postés
11
Date d'inscription
vendredi 2 janvier 2004
Statut
Membre
Dernière intervention
22 octobre 2007

petite sub pour aérer ou faire ressortir des éléments.
ici exemple pour faire apparaitre en couleur et gras une question et sa réponse existant dans une meme 'string'

Private Sub Scindetxt(txt As String)
Dim Question As String, answer As String, pos As Long
'recherche l'existence d'un "?" dans la chaîne
pos = InStr(txt, "?")
If pos > 0 Then 'si "?" trouvé
Question = Mid(txt, 1, pos) 'récupere du début de texte
'jusqu'au "?"
answer = Mid(txt, pos + 1) '..du "?" jusqu'a la fin
'passe a la fonction de Sultar la question a afficher en
' bleu et gras
AddText RTF, Question, True, , , 10, vbBlue
'passe la réponse en noir s'affichant en dessous de la
'question
AddText RTF, answer, False, , , 10, vbBlack
Else
AddText RTF, txt, False, , , 12, vbBlack
End If

End Sub

Vous pouvez par exemple l'utiliser dans un feuille astuce du jour généré par "ajout feuille :astuce..." dans VB et remplacer le contrôle libellé par un RTB et appeler la fonction dans la méthode 'DisplayCurrentTip' généré par VB..c'est plus sympa :)
Afficher les 10 commentaires