Accueil > Manip’s > Visual Basic 6 > RTF (Rich text Format) > Le Basique du RTF
Le Basique du RTF
mercredi 25 mars 2009, par
Commandes de base du Contrôle RTF.
Le composant RTF fourni par Microsoft se charge par le menu
Projet
- Composant
Raccourci
CTRL+T
COMMENT LIRE UN TEXTE RTF ?
LoadFile
Private Sub mnu_OPEN_Click()
'---
On Error GoTo fin
With CommonDialog1
.DialogTitle = "Ouvrez un Modèle"
.DefaultExt = "RTF"
.Filter = "RTF | (*.rtf) | DOC |(*.doc) |Tous | (*.*)"
.ShowOpen
RichTextBox1.LoadFile .FileName, rtfRTF
End With
fin:
End Sub
COMMENT ENREGISTRER UN TEXTE RTF ?
SaveFile
Private Sub mnu_SAVE_Click()
'---
On Error GoTo fin
With CommonDialog1
.DialogTitle = "Sauvegarder sous "
.FileName = "Sans Nom " & Replace(CStr(Date), "/", "-") & ".rtf"
.ShowSave
RichTextBox1.SaveFile .FileName, rtfRTF
End With
fin:
End Sub
le programme suggère la date du jour comme nom de sauvegarde par défaut
COMMENT ACCÉDER AU CONTENU D’UN RTF ?
Deux 2 Mode d’accès :
-1- LE MODE TEXTE BRUT
TEXT
RichTextBox1.Text
Tous les enrichissements sont supprimés
-Z- LE MODE TEXTE ENRICHI
TEXTRTF
RichTextBox1.TextRTF
COMMENT REMPLACER AUTOMATIQUEMENT UN MOT DANS UN TEXTE ?
REPLACE
RTF = RichTextBox1.TextRTF
RTF = Replace(RTF, Code_Trouve, Remplace_Par, vbTextCompare)
RichTextBox1.TextRTF = RTF
COMMENT INSÉRER MANUELLEMENT UN MOT DANS UN TEXTE ?
SELTEXT
With RichTextBox1
.SelText = " " & MonMot & " "
.SetFocus
End With