A voir également:
- [Equivalent .NET]
- Net framework 2.0 - Télécharger - Divers Utilitaires
- Équivalent coco - Accueil - Réseaux sociaux
- Paint net - Télécharger - Dessin & Illustration
- Equivalent coco - Accueil - Réseaux sociaux
- Logo .net - Télécharger - Études & Formations
9 réponses
ok merci beaucoup et est-ce que tu sais comment placer le contenu d'une Richtextbox dans un fichier texte ? (en utilisant une savefiledialog) ?
Ben tu as déjà ouvert ton fichier (en utilisant le savedialog), tu prends la propriété text de ta richtextbox et tu la colles dans le fichier non?
J'ai l'impression que avec l'intelisense de studio tu devrais savoir faire ça tout seul non?
J'ai l'impression que avec l'intelisense de studio tu devrais savoir faire ça tout seul non?
Et bien écoute j'ai bien peur que non lol. En fait j'ai un problème avec les savefiledialog: j'arrive à créer le fichier texte dans un répertoire voulu mais le problème c'est que ce fichier est totalement vièrge. Moi, je souhaite que dans ce fameux fichier le texte de ma RichTextBox soit enregistré. Tiens mon code actuel:
Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
On Error Resume Next
Dim s As String
Dim myStream As IO.Stream
Dim saveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.InitialDirectory = "c:\Programmes CN\" & SaveFileDialog1.FileName
SaveFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.RestoreDirectory = True
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = SaveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
'Il manque cette partie je pense
myStream.Close()
End If
End If
End Sub
Tu peux m'aider s'il te plait.
Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
On Error Resume Next
Dim s As String
Dim myStream As IO.Stream
Dim saveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.InitialDirectory = "c:\Programmes CN\" & SaveFileDialog1.FileName
SaveFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.RestoreDirectory = True
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = SaveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
'Il manque cette partie je pense
myStream.Close()
End If
End If
End Sub
Tu peux m'aider s'il te plait.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai un problème si je change la ligne:
Dim myStream As IO.StreamWriter
alors j'ai une erreur sur la ligne:
myStream = saveFileDialog1.OpenFile
avec l'erreur: Value of type 'System.IO.Stream' cannot be converted to 'System.IO.TextWriter'.
Dim myStream As IO.StreamWriter
alors j'ai une erreur sur la ligne:
myStream = saveFileDialog1.OpenFile
avec l'erreur: Value of type 'System.IO.Stream' cannot be converted to 'System.IO.TextWriter'.
Ca fait partie des petits changements dont je parlais, il faut que tu dises:
(Note générale, je ne connais pas VB.Net, seulement C# donc j'essaye de mettre la bonne syntaxe mais c'est sans garantie, par contre les fonctions sont les bonnes :) )
myStream=new IO.StreamWriter(saveFileDialog1.FileName)
(Note générale, je ne connais pas VB.Net, seulement C# donc j'essaye de mettre la bonne syntaxe mais c'est sans garantie, par contre les fonctions sont les bonnes :) )
Ok merci beaucoup ca marche sans problème.
Par contre je souhaiterais également programmer un OpenFileDialog; voici mon code jusqu'à maintenant:
On Error Resume Next
Dim s As String
Dim myStream As IO.TextReader
Dim OpenFileDialog1 As New OpenFileDialog()
OpenFileDialog1.InitialDirectory = "c:\Programmes CN\" & OpenFileDialog1.FileName
OpenFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = New IO.StreamReader(OpenFileDialog1.FileName)
If Not (myStream Is Nothing) Then
'myStream.Read(SaveFileDialog1.Text) ERREUR ICI
myStream.Close()
End If
End If
Tu sais comment résoudre le problème parce que la boîte s'ouvre mais quand je sélectionne le fichier le contenu n'apparait pas dans ma richtextbox
Par contre je souhaiterais également programmer un OpenFileDialog; voici mon code jusqu'à maintenant:
On Error Resume Next
Dim s As String
Dim myStream As IO.TextReader
Dim OpenFileDialog1 As New OpenFileDialog()
OpenFileDialog1.InitialDirectory = "c:\Programmes CN\" & OpenFileDialog1.FileName
OpenFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = New IO.StreamReader(OpenFileDialog1.FileName)
If Not (myStream Is Nothing) Then
'myStream.Read(SaveFileDialog1.Text) ERREUR ICI
myStream.Close()
End If
End If
Tu sais comment résoudre le problème parce que la boîte s'ouvre mais quand je sélectionne le fichier le contenu n'apparait pas dans ma richtextbox
Il faut que tu utilises:
http://tinyurl.com/8xv2k (MSDN)
cette fonction...
Il faut aussi que tu aprennes à utiliser MSDN, soit la version internet, soit la version locale si tu en as une.
http://tinyurl.com/8xv2k (MSDN)
cette fonction...
Il faut aussi que tu aprennes à utiliser MSDN, soit la version internet, soit la version locale si tu en as une.
Désolé mais ca ne fait pas très mlogtemps que j'utilise VB.NET j'ai encore du mal. Tiens mon code:
On Error Resume Next
Dim myStream As IO.StreamReader
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\Programmes CN\"
openFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = New IO.StreamReader(SaveFileDialog1.FileName)
If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
myStream.Close()
End If
End If
Encore une instruction manquante au même endroit.
On Error Resume Next
Dim myStream As IO.StreamReader
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\Programmes CN\"
openFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = New IO.StreamReader(SaveFileDialog1.FileName)
If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
myStream.Close()
End If
End If
Encore une instruction manquante au même endroit.