Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic openfile

openfile

7 réponses
Avatar
lSteph
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un peu
perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je compile
(execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans un
messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles
OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers
(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK)
Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lSteph
Bonjour,

Finalement j'ai trouvé un moyen de contournement mais ce n'est pas vraiment
satisfaisant,
puisque la boîte de dialogue me permet déjà de déterminer FileName en tant
que string,
il ne me manquerait que le nom d'une classe directement d'objet pour
désigner fichier et une
méthode pour lui dire ouvrir, (après je chercherais une autre pour
enregistrer..etc..)
putôt que devoir ajouter et alimenter un richtextbox avec un flux (stream):
Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)

RichTextBox1.AppendText(sr.ReadToEnd)

Merci pour toute aide

Stéphane

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un peu
perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je compile
(execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans un
messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles
OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers
(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK)
Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -




Avatar
Chris
Dim pt1 As New Process
pt1.StartInfo.FileName = "le fichier .txt"
pt1.StartInfo.CreateNoWindow = True ou False
pt1.Start()

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un peu
perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je compile
(execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans un
messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles
OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers
(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK)
Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -




Avatar
lSteph
Bonsoir Chris,

Cela fonctionne mais ouvre à part le bloc note au lieu de s'ouvrir dans mon
appli.
Cela dit c'est toujours bon à connaître.
Si j'ai bien compris on récupère en fait le process associé au type de
fichier
Autrement pour CreateNoWindow , il n'apparaît pas de différence flagrante
entre true et false

Merci pour ton aide.

Stéphane.

"Chris" a écrit dans le message de news:
%
Dim pt1 As New Process
pt1.StartInfo.FileName = "le fichier .txt"
pt1.StartInfo.CreateNoWindow = True ou False
pt1.Start()

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un peu
perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je
compile (execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans un
messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers
(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK)
Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -








Avatar
Thierry HUGUET [MS]
CreateNoWindow: true pour démarrer le processus sans créer de nouvelle
fenêtre destinée à le contenir ; sinon, false. La valeur par défaut est
false.
La différence est donc la création ou non d'une nouvelle fenêtre... mais en
dehors des fenêtres de votre propre application car l'instruction
ProcessStart() est à utiliser pour lancer une autre appli hors context de
votre propre appli.

Thierry HUGUET
Microsoft

"lSteph" a écrit dans le message de news:
u%
Bonsoir Chris,

Cela fonctionne mais ouvre à part le bloc note au lieu de s'ouvrir dans
mon appli.
Cela dit c'est toujours bon à connaître.
Si j'ai bien compris on récupère en fait le process associé au type de
fichier
Autrement pour CreateNoWindow , il n'apparaît pas de différence flagrante
entre true et false

Merci pour ton aide.

Stéphane.

"Chris" a écrit dans le message de news:
%
Dim pt1 As New Process
pt1.StartInfo.FileName = "le fichier .txt"
pt1.StartInfo.CreateNoWindow = True ou False
pt1.Start()

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un peu
perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je
compile (execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans un
messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers
(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) =
System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -












Avatar
lSteph
Bonjour,

et merci pour l'aide, j'ai bien compris.
Au demeurant je maintiens donc ma question initiale car c'est bien cela...
ProcessStart() est à utiliser pour lancer une autre appli hors context


suite à la boîte de dialogue permettant de sélectionner le nom de fichier,
j'aimerais l'ouvrir , mais effectivement dans ma fenêtre (parent MDI) .
A cet fin j'ai trouvé ceci mais je suppose qu'il y a plus directement moyen
d'appeler un fichier:

Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
RichTextBox1.AppendText(sr.ReadToEnd)

Encore merci.

Stéphane

"Thierry HUGUET [MS]" a écrit dans le
message de news: %23Qp6e%23$
CreateNoWindow: true pour démarrer le processus sans créer de nouvelle
fenêtre destinée à le contenir ; sinon, false. La valeur par défaut est
false.
La différence est donc la création ou non d'une nouvelle fenêtre... mais
en dehors des fenêtres de votre propre application car l'instruction
ProcessStart() est à utiliser pour lancer une autre appli hors context de
votre propre appli.

Thierry HUGUET
Microsoft

"lSteph" a écrit dans le message de news:
u%
Bonsoir Chris,

Cela fonctionne mais ouvre à part le bloc note au lieu de s'ouvrir dans
mon appli.
Cela dit c'est toujours bon à connaître.
Si j'ai bien compris on récupère en fait le process associé au type de
fichier
Autrement pour CreateNoWindow , il n'apparaît pas de différence flagrante
entre true et false

Merci pour ton aide.

Stéphane.

"Chris" a écrit dans le message de news:
%
Dim pt1 As New Process
pt1.StartInfo.FileName = "le fichier .txt"
pt1.StartInfo.CreateNoWindow = True ou False
pt1.Start()

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un
peu perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je
compile (execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans
un messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers
(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) =
System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -
















Avatar
Thierry HUGUET [MS]
Il suffit d'utiliser la méthode LoadFile du contrôle RichTextBox.

Par exemple
RichTextBox1.LoadFile ( OpenFileDialog.FileName )

Thierry HUGUET
Microsoft

"lSteph" a écrit dans le message de news:

Bonjour,

et merci pour l'aide, j'ai bien compris.
Au demeurant je maintiens donc ma question initiale car c'est bien cela...
ProcessStart() est à utiliser pour lancer une autre appli hors context


suite à la boîte de dialogue permettant de sélectionner le nom de fichier,
j'aimerais l'ouvrir , mais effectivement dans ma fenêtre (parent MDI) .
A cet fin j'ai trouvé ceci mais je suppose qu'il y a plus directement
moyen d'appeler un fichier:

Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
RichTextBox1.AppendText(sr.ReadToEnd)

Encore merci.

Stéphane

"Thierry HUGUET [MS]" a écrit dans
le message de news: %23Qp6e%23$
CreateNoWindow: true pour démarrer le processus sans créer de nouvelle
fenêtre destinée à le contenir ; sinon, false. La valeur par défaut est
false.
La différence est donc la création ou non d'une nouvelle fenêtre... mais
en dehors des fenêtres de votre propre application car l'instruction
ProcessStart() est à utiliser pour lancer une autre appli hors context de
votre propre appli.

Thierry HUGUET
Microsoft

"lSteph" a écrit dans le message de news:
u%
Bonsoir Chris,

Cela fonctionne mais ouvre à part le bloc note au lieu de s'ouvrir dans
mon appli.
Cela dit c'est toujours bon à connaître.
Si j'ai bien compris on récupère en fait le process associé au type de
fichier
Autrement pour CreateNoWindow , il n'apparaît pas de différence
flagrante entre true et false

Merci pour ton aide.

Stéphane.

"Chris" a écrit dans le message de news:
%
Dim pt1 As New Process
pt1.StartInfo.FileName = "le fichier .txt"
pt1.StartInfo.CreateNoWindow = True ou False
pt1.Start()

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un
peu perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je
compile (execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans
un messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les
fichiers (*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) =
System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -




















Avatar
lSteph
Merci beaucoup!

"Thierry HUGUET [MS]" a écrit dans le
message de news: %
Il suffit d'utiliser la méthode LoadFile du contrôle RichTextBox.

Par exemple
RichTextBox1.LoadFile ( OpenFileDialog.FileName )

Thierry HUGUET
Microsoft

"lSteph" a écrit dans le message de news:

Bonjour,

et merci pour l'aide, j'ai bien compris.
Au demeurant je maintiens donc ma question initiale car c'est bien
cela...
ProcessStart() est à utiliser pour lancer une autre appli hors context


suite à la boîte de dialogue permettant de sélectionner le nom de
fichier,
j'aimerais l'ouvrir , mais effectivement dans ma fenêtre (parent MDI) .
A cet fin j'ai trouvé ceci mais je suppose qu'il y a plus directement
moyen d'appeler un fichier:

Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
RichTextBox1.AppendText(sr.ReadToEnd)

Encore merci.

Stéphane

"Thierry HUGUET [MS]" a écrit dans
le message de news: %23Qp6e%23$
CreateNoWindow: true pour démarrer le processus sans créer de nouvelle
fenêtre destinée à le contenir ; sinon, false. La valeur par défaut est
false.
La différence est donc la création ou non d'une nouvelle fenêtre... mais
en dehors des fenêtres de votre propre application car l'instruction
ProcessStart() est à utiliser pour lancer une autre appli hors context
de votre propre appli.

Thierry HUGUET
Microsoft

"lSteph" a écrit dans le message de news:
u%
Bonsoir Chris,

Cela fonctionne mais ouvre à part le bloc note au lieu de s'ouvrir
dans mon appli.
Cela dit c'est toujours bon à connaître.
Si j'ai bien compris on récupère en fait le process associé au type de
fichier
Autrement pour CreateNoWindow , il n'apparaît pas de différence
flagrante entre true et false

Merci pour ton aide.

Stéphane.

"Chris" a écrit dans le message de news:
%
Dim pt1 As New Process
pt1.StartInfo.FileName = "le fichier .txt"
pt1.StartInfo.CreateNoWindow = True ou False
pt1.Start()

"lSteph" a écrit dans le message de news:
%23$
Bonjour,

Mes débuts avec Vb 2005 Edition express (habitué à vba là je suis un
peu perdu)
Dans une fenêtre myApp (parent MDI) j'aimerais simplement quand je
compile (execute)
par clic dans mon menu ou outil ouvrir un fichier autrement que dans
un messagebox ou webbrowser,
juste ouvrir un fichier txt par exemple dans mon appli et pouvoir le
modifier comme dans un quelconque editeur...

Merci d'avance.

Stephane
- - -
Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory =
My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les
fichiers (*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) =
System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

'Dim sr As New System.IO.StreamReader(OpenFileDialog.FileName)
'MessageBox.Show(sr.ReadToEnd)

WebBrowser1.Navigate(FileName)


End If

End Sub

- - -