我用VB写的记事本代码(仿微软的)
来源:互联网 发布:天津大学网络教育平台 编辑:程序博客网 时间:2024/05/22 04:33
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
- 我用VB写的记事本代码(仿微软的)
- vuex网上记事本的仿写
- 我的记事本(vb编写的)
- VB仿Windows的记事本notepad的程序源代码
- 我写的简单记事本程序
- 第一个用记事本写的java代码
- 一个Java写的记事本代码
- 关于用VB做记事本的程序
- wxpython仿写记事本
- VB.NET 编写仿微软的日历控件
- java写的记事本
- swing写的记事本
- swing写的记事本
- java写的记事本
- 自己写的记事本
- 我写的一段"记事本"的程序,请高手指教.
- 小型记事本的VB实现
- 我的vb串口代码
- ASP.NET MVC学习之 Html.ActionLink
- poj 3522 生成树的变形
- 如何减小与“大牛”的差距 .
- Adobe flash cs5 的Java运行时环境初始化错误 完美解决方法
- 在分层架构下寻找java web漏洞
- 我用VB写的记事本代码(仿微软的)
- 开发自定义python 迭代器
- Linux iostat
- TNS-12547: TNS:lost contact问题的解决办法!
- Html.RenderPartial与Html.RenderAction的区别
- 查询数据库某字段内容相同数量
- HTML5游戏开发开源库件lufylegend1.3.1发布
- Facebook Learns that You CAN Buy Love (It Costs $1 Billion)
- 人在世、多交人,为人处事要留神