Les programmes qui contiennent des "RichTextBox"
doivent être distribués avec le "Richtx.ocx"
Avec une TextBox c'est pas la peine et en plus on peut faire la même chose (même si c'est un peu plus compliqué)
Sur votre feuille:
-TextBox (Text1)
-CommonDialogBox (cd1)
-Bouton (Open)
Source / Exemple :
Private Sub Open_Click()
Text1.Text = "" 'initialise la zone de texte
Dim TextFile As String 'Contenu du fichier a ouvrir
Dim File As String 'Nom du Fichier a ouvrir
On Error GoTo Error_Handle 'si il y a erreur (facultatif)
'Filtre les types de fichiers
cd1.Filter = "Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*"
'Ouvre la boîte de dialogue
cd1.ShowOpen
File = cd1.filename 'attribut le chemin du fichier
'a la variable File
Open File For Input As 1 'ouvre le fichier
Do While Not EOF(1) 'End Of File (numero du fichier)
'met le contenu du fichier dans TextFile
Input #1, TextFile
'Met le contenu dans la zone de texte
Text1.Text = TExt1.Text & TextFile _
+ Chr(13) + Chr(10)
Loop
Close #1 'ferme le fichier
Error_Handle: (facultatif)
If Err.Number = 75 Then
MsgBox "Le chemin ou le nom du fichier n'est pas valide", _
vbCritical + vbOKOnly, "ERREUR"
Exit Sub
End If
End Sub
Conclusion :
N'hésitez pas à m'écrire si vous trouvez une erreur ou autre chose...
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.