我用VB写的记事本代码(仿微软的)
Public Class Form1 Private Sub Form1_Resize(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Resize Private Sub TextBox1_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles TextBox1.Click Private Sub TextBox1_MouseDown(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown Private Sub TextBox1_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TextBox1.TextChanged Private Sub 撤销_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 撤销.Click Private Sub 自动换行_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 自动换行.Click End Sub Private Sub 打开_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 打开.Click Private Sub 另存为_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 另存为.Click Private Sub 保存_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 保存.Click Private Sub 退出_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 退出.Click Private Sub 复制_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 复制.Click Private Sub 粘贴_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 粘贴.Click Private Sub 删除_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 删除.Click TextBox1.text="" Private Sub 时间日期_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 时间日期.Click Private Sub 字体_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 字体.Click Private Sub 全选_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 全选.Click TextBox1.SelectAll() End Sub End Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |