Text editor with HTML & VB.Net functions - Still in development

This is a text editor im still working on, you can program VB.Net and HTML in it there is preview for the HTML so you can easier make websites

I just wanted to share this program with you, but remember the program is still in early state and will probaly be updated on the site, the program itself dont have an updater (yet)



4 comments

Are you sharing your source code Here ?

Reply

Public Class Form1

Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
WebBrowser1.DocumentText = RichTextBox1.Text
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 UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RichTextBox1.Undo()
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 ClearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearToolStripMenuItem.Click
RichTextBox1.SelectAll()
RichTextBox1.Clear()
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 FindToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindToolStripMenuItem.Click
Find.Show()
End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim dlg As New SaveFileDialog
dlg.Filter = "Html Documents (*.htm) |*.htm"
If dlg.ShowDialog = DialogResult.Yes Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.PlainText)
Else
' Do Nothing
End If
End Sub

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim open As New OpenFileDialog
open.Filter = "Html Documents (*.htm)|*.htm"
If open.ShowDialog = DialogResult.Yes Then
RichTextBox1.LoadFile(open.FileName)
Else
' Do Nothing
End If
End Sub



All you need is Web-browser and Richtextbox and button then you all go :-)

Reply
This comment has been removed by the author.

Post a Comment