我用VB写的记事本代码（仿微软的）

最新推荐文章于 2021-01-26 04:48:49 发布

凤梨罐头

最新推荐文章于 2021-01-26 04:48:49 发布

阅读量1k

点赞数

分类专栏： Android 基础提高文章标签： vb 微软 textbox object class

本文链接：https://blog.csdn.net/yilongxian520/article/details/7464821

版权

这篇博客展示了如何使用VB编写一个简单的记事本程序，包括加载事件、resize事件、鼠标点击事件和文本变化事件的处理，以及撤销、剪切、复制、粘贴等功能的实现。

摘要由CSDN通过智能技术生成

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.MouseEven