Richtextbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 653 fois - Téléchargée 58 fois

Contenu du snippet

Voici les bases pour utiliser les RichTextBox(RTB)...

Source / Exemple :


'Le nom du RTB utilisé dans ce tutorial est RichTextBox1

'------------------------------
'INFORMATIONS SUR LA SELECION |
'------------------------------
'Connaitre le texte sélectionné
RichTextBox1.SelText

'Connaitre le point de départ de la sélection
RichTextBox1.SelStart

'Connaitre la longueur de la sélection
RichTextBox1.SelLength

'Combiner les deux pour connaitre le point final de la sélection
Dim SelEnd
SelEnd = RichTextBox1.SelStart + RichTextBox1.SelLength

'------------------
'LA MISE EN FORME |
'------------------
'Voici quelques trucs pour mettre en forme le texte dans un RTB

'Mettre en gras la sélection
'---------------------------
'Si le texte est déjà en gras alors il redevient normal sinon il devient gras
RichTextBox1.SelBold = Not RichTextBox1.SelBold

'Mettre en italique la sélection
'-------------------------------
'Si le texte est déjà en italique alors il redevient normal sinon il devient italique
RichTextBox1.SelItalic = Not RichTextBox1.SelItalic

'Souligner la sélection
'----------------------
RichTextBox1.SelUnderline = Not RichTextBox1.SelUnderline

'Barrer la sélection
'-------------------
RichTextBox1.SelStrikeThru = Not RichTextBox1.SelStrikeThru

'Mettre en couleur la sélection
'------------------------------
RichTextBox1.SelColor = vbRed

'Taille de la sélection
'----------------------
RichTextBox1.SelFontSize = 12

'Changer la police de la sélection
'---------------------------------
RichTextBox1.SelFontName = "Arial"

'L'alignement du text
'--------------------
'Pour l'alignement meme si la sélection ne s'étend pas sur toute une ligne c'est toute la ligne qui est aligné quand même
'Aligner la sélection à gauche
RichTextBox1.SelAlignment = rtfLeft

'Centrer la sélection
RichTextBox1.SelAlignment = rtfCenter

'Aligner la sélection à droite
RichTextBox1.SelAlignment = rtfRight

'----------------------
'RTB et Presse Papier |
'----------------------
'Quelques opération d'échange avec le Presse Papier

'Couper la sélection du RTB
'--------------------------
Clipboard.SetText RichTextBox1.SelRTF
RichTextBox1.SelText = vbNullString

'Copier la sélection du RTB
'--------------------------
Clipboard.SetText RichTextBox1.SelRTF

'Coller le Presse Papier dans le RTB
'-----------------------------------
RichTextBox1.SelRTF = Clipboard.GetText

'----------------------------
'OPERATION SUR DES FICHIERS |
'----------------------------
'Pour des opérations de sauvegarde et d'ouverture de fichiers on peut aussi combiner un RTB et un CommonDialog

'Sauvegarder le contenu d'un RTB dans un fichier
'-----------------------------------------------
RichTextBox1.SaveFile ("c:\Nom_Fichier.txt")

'Ouvrir un fichier et l'afficher dans le RTB
'-------------------------------------------
RichTextBox1.LoadFile ("c:\Nom_Fichier.txt")

Conclusion :


Voila,voila... J'espère que ca aura aidé quelqu'un.

vbtom.

A voir également

Ajouter un commentaire

Commentaires

sandrine_wahiba
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
benjionline
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?!
diablamanshadow
Messages postés
420
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 ?
Manu_12
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 :)
emap
Messages postés
64
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
28 novembre 2008
-
salut,
Et pour selectionner du texte? (equivalent à Box.Select(0, 1) en .NET) c'est comment ?
Merci
|emap|

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.