Richtextbox
Contenu du snippet
Voici les bases pour utiliser les RichTextBox(RTB)...
Voila,voila... J'espère que ca aura aidé quelqu'un.
vbtom.
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.
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.