From 4dc8c65daf3f2d17d32d2ad1bc2ee60108e3094b Mon Sep 17 00:00:00 2001
From: Andrew Lee <alee14498@protonmail.com>
Date: Fri, 14 Feb 2020 20:42:43 -0500
Subject: Added files

---
 HTML Editor/Form1.vb | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 HTML Editor/Form1.vb

(limited to 'HTML Editor/Form1.vb')

diff --git a/HTML Editor/Form1.vb b/HTML Editor/Form1.vb
new file mode 100644
index 0000000..c932856
--- /dev/null
+++ b/HTML Editor/Form1.vb	
@@ -0,0 +1,35 @@
+Public Class Form1
+    Private dlg As Object
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click, Button1.Click
+        Dim open As New OpenFileDialog
+        open.Filter = "Website Files|*.htm;*.html"
+        If open.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+            RichTextBox1.LoadFile(open.FileName)
+        Else
+            'Do Nothing
+        End If
+    End Sub
+
+    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click, Button2.Click
+        dlg.Filter = "Website Files|*.htm;*.html"
+        If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
+            RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
+        End If
+    End Sub
+
+    Private Sub PreviewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PreviewToolStripMenuItem.Click, Button3.Click
+        WebBrowser1.DocumentText = RichTextBox1.Text
+    End Sub
+
+    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
+        Form2.Show()
+    End Sub
+End Class
-- 
cgit v1.2.3