Public Class Menus
'窗体载入
Private Sub Menus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tspMain.Visible = True
End Sub
'菜单新建
Private Sub 新建NToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox1.Focus()
End Sub
'菜单退出
Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click
Me.Close()