Visualiser le fichier dans WebBrowser [Résolu]

Messages postés
2
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
15 août 2011
- - Dernière réponse :  Utilisateur anonyme - 15 août 2011 à 12:44
bonsoir

"Visualiser le fichier dans WebBrowser"

Je suis débutant en VB et je m'entraine à créer un petit Navigateur et j'ai besoin de votre aide.

Ma question est: Comment visualiser n'importe qu'elle fichiers sélectionner (texte, html...) dans WebBrowser ?

J'ai déjà crée la boite de dialogue et je peux allé cherchez les fichier sur le disque dur.

j'aimerai donc que le fichier sélectionnée soit visualiser dans webBrowser.

j'ai cherché sur le forum, je n'ai rien trouvé

Je vous remercie d'avance
Afficher la suite 

3 réponses

Meilleure réponse
3
Merci
Salut, alors d'abord, un webbrowser n'est pas un éditeur texte, pour tes fichiers en html il n'y a aucun probleme, tu fais: WebBrowser1.Navigate("file:///C:/ ... fichier.html")

Mais en réfléchissant à ton problème tu peux faire ça:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Au démarrage je fabrique un fichier texte dans le répertoire de ton application (Fichier.txt)
'Et j'inscris deux lignes de texte dedans:
FileOpen(1, Application.StartupPath & "\Fichier.txt", OpenMode.Append)
Print(1, "Le texte de ton fichier" & vbCrLf)
Print(1, "Encore Le texte de ton fichier" & vbCrLf)
FileClose()

'On crée deux constantes 'string'
Dim Str As String = ""
Dim St As String
'Ensuite on lit le fichier et on le transforme en html:
FileOpen(1, Application.StartupPath & "\Fichier.txt", OpenMode.Input)
'on fait une boucle pour lire toutes les lignes du fichier:
Do While Not EOF(1)
St = LineInput(1)
Str &= St & "
"
Loop
FileClose()
'On tranforme tout en html:
Str = "<html><style>h1{color=blue;}</style><title>Fichiet.txt</title><center> " & Str & "
</object></center>
</html>"
'On crée un fichier html pour pouvoir etre affiché dans ton webbrowser
FileOpen(1, Application.StartupPath & "\Fichier.html", OpenMode.Append)
Print(1, Str)
FileClose()
WebBrowser1.Navigate(Application.StartupPath & "\Fichier.html")
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'En quittant on efface les fichiers s'ils ne servent plus
Kill(Application.StartupPath & "\Fichier.html")
Kill(Application.StartupPath & "\Fichier.txt")
End Sub

End Class

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 191 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
Messages postés
2
Date d'inscription
mardi 14 octobre 2008
Statut
Membre
Dernière intervention
15 août 2011
0
Merci
Salut acive

désolé pour le retard

et Merci beaucoup, en effet ça l'aire simple mais come je suis débutant; je pige absolument rien

Merci encore
Commenter la réponse de cs_koubi31
0
Merci
Salut koubi,
C'est une idée que j'ai eu comme ça, de transformer tes fichiers texte en html.
Sinon tu as une multitude d'autres façons pour les afficher sans le webbbrowser.

A+


CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme