Réponse acceptée !
Re
Oui, possible : il suffit de charger le fichier sous forme d'un tableau de Byte, le convertir en String et l'envoyer dans le RTB avec RTB.RtfText = monFichierSousFormeDeChaine
Pour lire un fichier et le mettre en mémoire dans un tableau de Byte :
Dim monTableauByte() As Byte
monTableauByte = LoadResData(101, "LeNonChoisi")
Pour transformer un tableau de byte en chaine, tu peux le faire sous forme d'une boucle ou avec les apis, tout dépend de la longueur de ton fichier. Le plus simple, mais le plus lent :
Dim MonFichier As String, r As Long
For r = 0 to UBound(monTableauByte)
MonFichier = MonFichier & Chr(monTableauByte(r))
Next r
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
|