Discussion :

[milki1]

Bonjour,
ca fais un jour la que je cherche un algorithme en VB qui me permet d'afficher un fichier word de 30 page sur soit textbox soit richtextbox tel qu'il est sur format word, genre click sur un lien et le texte qui sera afficher sur la zone texte.
merci de votre aide.
a bientot
:

[zazaraignée]

T'aurais plus de chance avec un contrôle OLE ou un contrôle WebBrowser. Ma préférence allant vers le WebBrowser.

[OhMonBato]

Afficher un fichier Word sans Word ? Si c'est au format txt ou rtf, Ok mais sinon il va bien te falloir Word pour ouvrir un fichier doc.
VB te permet de piloter Word, pas de s'en passer à ma connaissance.

[milki1]

Merci de vos réponse
Oui je pense aussi que le WebBrowser plus pratique par rapport au OLE puisque ce denier utilise q'un fichier a la fois et doit etre prédefinie. sauf que avec le WebBrowser et en utilisant l'instruction suivante par exemple:WebBrowser1.Navigate ("file:///c:\........") il me donne la page web impossible d'affciher la page.
en realité, j'ai 30 doc word et je veux simplifié l'accée a ces doc en cliquant dans mon programme sur chaque non du fichier et le contenue qui s'affiche sur webbrowser ou d'autre.
concernant les formats rft ou doc ou txt c'est pareil, le plus important c'est qu'il affiche le contenu de chaque doc et justement pour que je fait les recherche par mot clé sur ces doc par la suite
merci zazaraigné et ophmonbata
bonne journée
a bientot

[avigeilpro]

Essaye en ne mettant que l'adresse du fichier, pas de "file:///", juste WebBrowser.Navigate "C:\Monfichier.doc", moi j'ai fait comme cela et ca marche impecable

[milki1]

Merci beaucoup ca marche,c'etait efaire un probleme d'extension mais bon enfin.
par contre je voudrais savoir comment faire pour ajouter la petite icone de répertoire ou bien de fichier sur le controle treeview.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set nodx = Tvw.Nodes.Add("n", tvwChild, "n1", "exemple", image(?))

.
enfaite je suis programmeur grand systeme et c'est mon premier projet en VB comme tu le peut imaginer .
Merci de me pousser petit a petit pour ma perfection en VB
a bientot

[milki1]

salut
tant que ta pas repondu encore, je vais me permettre d'ajouter une autre question concernant le webbrowser.
puisque j'afficher plusieurs doc sur le meme objet webbrowser, il me lance a chaque chargement de doc une fenetre genre confirmation et mise a jour en plus l'application s'implante de temps en temps, donc est ce qu'il ya un moyen pour remettre par exemple le webbrowser a 0 avant chaque chargement d'un nouveau doc.

Merci beaucoup

[Vld44]

Merci beaucoup ca marche,c'etait efaire un probleme d'extension mais bon enfin.
par contre je voudrais savoir comment faire pour ajouter la petite icone de répertoire ou bien de fichier sur le controle treeview.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set nodx = Tvw.Nodes.Add("n", tvwChild, "n1", "exemple", image(?))

.
enfaite je suis programmeur grand systeme et c'est mon premier projet en VB comme tu le peut imaginer .
Merci de me pousser petit a petit pour ma perfection en VB
a bientot

Salut,

Pour l'image il faut utiliser un contrôle ImageList intégré à ta form dans lequel tu auras ajouté la ou les images qui t'intéressent. Ensuite il faut associer le treeview à l'imagelist, puis ceci fait il ne te reste plus qu'à associer à chaque noeud l'index de l'image dans l'imagelist :

node.image = 1 'par exemple

Désolé pour le manque d'exemple concret mais j'ai un VB qui tourne là, pas moyen de l'interrompre.

[milki1]

meeci vld44
j'ai rencontré enfaire une erreur lors de l'affectation : Tvw.ImageList = Form1.ImageList1 (erreur 35610 ,objet non valide) sachant que cé les meme objet que j'utilise
a bientot

[Vld44]

c'est curieux, je fais la même chose que toi pourtant.

A quel moment fais-tu cette affectation ? Montre la procédure

[milki1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
A = 10  'nombre de branches supplémentaires
Tvw.LabelEdit = tvwAutomatic    'active le renommage de label
Tvw.LabelEdit = tvwManual       'le désactive
Tvw.Checkboxes = True       'checkboxes activées
Tvw.Checkboxes = False      'checkboxes désactivées
Tvw.HotTracking = True      'active la présence des liens
'******Tvw.ImageList = Form1.ImageList1*******
Tvw.HotTracking = False     'les désactive
Tvw.FullRowSelect = True    'active la sélection large
Tvw.FullRowSelect = False   'la désactive
Tvw.SingleSel = False       'désactive la réduction automatique
Tvw.SingleSel = True        'l'active
 
 
Set nodx = Tvw.Nodes.Add(, , "n", "Document")
**********Tvw.nodes(n).image =i mage1

voila

[OhMonBato]

C'est le fait que ce soit dans Form_Load qui doit provoquer le problème à mon avis.

[milki1]

le probleme cé au niveau de l'association imagelist et treeview. j'ai essayé partout dans le programme
treeview.imagelist = imagelist1

[Vld44]

je suis d'accord avec ohmonbato, mais bon visiblement tu as essayé ailleurs et cela ne fonctionnait pas mieux n'est-ce pas ?

Question : de quel type est ImageList1 ? PS : tu n'es pas obligé de spécifier Form1 ... Et d'ailleurs, ta form s'appelle-t-elle vraiment Form1 ? Pas terrible

[OhMonBato]

Tu as quoi comme message d'erreur ? Je ne le vois pas dans les messages précédents.

[milki1]

comment faire appel a la fenetre rechercher depuis VB je veux dire sans faire ctrl+f pour le doc word
merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tvw.ImageList = ImageList1

35610 'objet non valide'

[OhMonBato]

Dis donc, tu es sûr que tu as mis un controle ImageList et non pas un controle Image ? Je sais pas pourquoi mais j'ai comme un gros doute

[milki1]

oui oui biensur.
je crois aussi que l'emplacement de l'affectation mais jé essayé tous les endrois

[OhMonBato]

C'est étrange parce que si je m'amuse à mettre autre chose qu'un ImageList, j'obtiens l'erreur que tu as, sinon je n'y arrive pas.

[milki1]

ta une idée sur le truc d'appel fenetre recherche mot clé doc au lieu de ctrl+f je veux fournir un bouton qui me permet de faire la meme chose