Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
撤銷.Enabled = False
剪切.Enabled = False
複製.Enabled = False
粘貼.Enabled = False
刪除.Enabled = False
查找.Enabled = False
查找下一個.Enabled = False
轉到.Enabled = False
狀態欄.Enabled = False
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
TextBox1.Width = Me.Width - 10
TextBox1.Height = Me.Height - 10
End Sub
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
TextBox1.Focus()
End Sub
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
撤銷.Enabled = True
剪切.Enabled = True
複製.Enabled = True
粘貼.Enabled = True
刪除.Enabled = True
查找.Enabled = True
查找下一個.Enabled = True
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
撤銷.Enabled = True
查找.Enabled = True
查找下一個.Enabled = True
End Sub
Private Sub 撤銷_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤銷.Click
TextBox1.Text = ""
End Sub
Private Sub 自動換行_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自動換行.Click
自動換行.Checked = True
End Sub
Private Sub 新建_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建.Click
TextBox1.Text = ""
End Sub
Private Sub 打開_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打開.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub 另存爲_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 另存爲.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub 保存_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub 退出_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出.Click
End
End Sub
Private Sub 複製_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 複製.Click
TextBox1.Copy()
End Sub
Private Sub 粘貼_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘貼.Click
TextBox1.Paste()
End Sub
Private Sub 刪除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除.Click
TextBox1.SelectAll()
TextBox1.text=""
End Sub
Private Sub 時間日期_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 時間日期.Click
TextBox1.Text = Format(Now, "yyy-MM-dd hh:mm:ss")
End Sub
Private Sub 字體_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字體.Click
FontDialog1.ShowDialog()
End Sub
Private Sub 剪切_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切.Click
TextBox1.Cut()
End Sub
Private Sub 全選_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全選.Click
TextBox1.SelectAll()
End Sub
End Class