Recently Featured | Most Discussed | Most Recent | Most Responded | Most Viewed | Top Favorites | Top Rated | TV Serials | Trailers | Recently Watched
Visual Basic 2008 html editor
This ad will close in 15 seconds
Rate:

1 ratings
Views:
147
From : SimonsTechShow
Added: Nov 6, 2009
code :Public Class Form1 Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click Dim SaveFile As New SaveFileDialog SaveFile.FileName = "" SaveFile.Filter = "Text Files (*.html)|*.html" SaveFile.Title = "Save" SaveFile.ShowDialog() Try Dim Write As New System.IO.StreamWriter(SaveFile.FileName) Write.Write(RichTextBox1.Text) Write.Close() Catch ex As Exception End Try End Sub Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click Dim OpenFile As New OpenFileDialog OpenFile.FileName = "" OpenFile.Filter = "Text Files (*.html)|*.html" OpenFile.Title = "HTML" OpenFile.ShowDialog() Try Dim Read As New System.IO.StreamReader(OpenFile.FileName) RichTextBox1.Text = Read.ReadToEnd Read.Close() Catch ex As Exception End Try End Sub Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click Dim bob As New Form1 bob.Show() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click RichTextBox1.Undo() End Sub Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click RichTextBox1.Redo() End Sub Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click RichTextBox1.SelectAll() End Sub End Class
Category : Education
Added: Nov 6, 2009
code :Public Class Form1 Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click Dim SaveFile As New SaveFileDialog SaveFile.FileName = "" SaveFile.Filter = "Text Files (*.html)|*.html" SaveFile.Title = "Save" SaveFile.ShowDialog() Try Dim Write As New System.IO.StreamWriter(SaveFile.FileName) Write.Write(RichTextBox1.Text) Write.Close() Catch ex As Exception End Try End Sub Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click Dim OpenFile As New OpenFileDialog OpenFile.FileName = "" OpenFile.Filter = "Text Files (*.html)|*.html" OpenFile.Title = "HTML" OpenFile.ShowDialog() Try Dim Read As New System.IO.StreamReader(OpenFile.FileName) RichTextBox1.Text = Read.ReadToEnd Read.Close() Catch ex As Exception End Try End Sub Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click Dim bob As New Form1 bob.Show() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click RichTextBox1.Undo() End Sub Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click RichTextBox1.Redo() End Sub Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click RichTextBox1.SelectAll() End Sub End Class
Category : Education
Related Videos

Video Categories:
Also Try:










