Ressource et fichier RTF
Résolu
cs_FatJoe
Messages postés
11
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
22 octobre 2005
-
9 août 2005 à 15:38
cs_FatJoe Messages postés 11 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 22 octobre 2005 - 9 août 2005 à 19:10
cs_FatJoe Messages postés 11 Date d'inscription vendredi 22 novembre 2002 Statut Membre Dernière intervention 22 octobre 2005 - 9 août 2005 à 19:10
4 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
9 août 2005 à 18:03
9 août 2005 à 18:03
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
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
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
9 août 2005 à 16:31
9 août 2005 à 16:31
Salut
Une fois que tu as recréé ton fichier à partir de la ressource, il te suffit de faire
RTB.LoadFile "C:\Chemin\LeFichier.rtf", rtfRTF
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
Une fois que tu as recréé ton fichier à partir de la ressource, il te suffit de faire
RTB.LoadFile "C:\Chemin\LeFichier.rtf", rtfRTF
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
cs_FatJoe
Messages postés
11
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
22 octobre 2005
9 août 2005 à 17:19
9 août 2005 à 17:19
Bonjour,
C'est une solution
sauvegarder mon fichier ressource rtf dans un répertoire temp puis le recharger dans le RichTextBox
j'aurais préféré puisqu'il est dans mon ressource.res, le charger et l'afficher directement
dans le RichTextBox comme par exemple une image BMP ou une icone
du style RTB=loadresdata (ID, "RTF")
mais cela ne fonctionne pas ! (? )
FatJoe
the only one
C'est une solution
sauvegarder mon fichier ressource rtf dans un répertoire temp puis le recharger dans le RichTextBox
j'aurais préféré puisqu'il est dans mon ressource.res, le charger et l'afficher directement
dans le RichTextBox comme par exemple une image BMP ou une icone
du style RTB=loadresdata (ID, "RTF")
mais cela ne fonctionne pas ! (? )
FatJoe
the only one
cs_FatJoe
Messages postés
11
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
22 octobre 2005
9 août 2005 à 19:10
9 août 2005 à 19:10
OK,merci Jack
c'est Super je m'y colle .....
FatJoe
the only one
c'est Super je m'y colle .....
FatJoe
the only one
