Voilà j'ai un probleme après avoir créer le programme d'éditeur de texte il ne se compile pas y'a un message d'erreur qui me dit que "document" n'est pas déclaré SVP qui peut me donner le code pour le declarer Voilà le code du programme :
Public Class Form1
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim open As New OpenFileDialog()
Dim mystreamreader As System.IO.StreamReader
open.Filter = "text[*.txt*]|.txt|all files[*.*]|*.*"
open.CheckFileExists = True
open.Title = "open file"
open.ShowDialog(Me)
Try
open.OpenFile()
mystreamreader = System.IO.File.OpenText(open.FileName)
document.text = mystreamreader.ReadToEnd
Catch ex As Exception
End Try
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim save As New SaveFileDialog()
Dim mystreamwriter As System.IO.StreamWriter
save.Filter = "text (*.txt*)|.txt|all files(*.*)|*.*"
save.CheckPathExists = True
save.Title = "save file"
save.ShowDialog(Me)
Try
mystreamwriter = System.IO.File.AppendText(save.FileName)
mystreamwriter.Write(Document.Text)
mystreamwriter.Flush()
Catch ex As Exception
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
document.copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
document.paste()
End Sub
Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
document.undo()
End Sub
Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
document.redo()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
document.cut()
End Sub
End Class
