使用VB制作记事本程序.docVIP

记事本界面如下图所示。 记事本主窗体frmNotepad实现代码如下： Public s$, flag As Boolean Dim st As String Dim Char As Byte, PaFi1$, PaFi2$ 窗体的通用声明段中定义变量 Private Sub Form_Load() Text1 = 关键字首字母自动转换成大写，其余字母转换成小写。用户自定义的变量、过 程名，以第一次定义的为准，以后输入的自动向首次定义的形式转换。 s = Text1 Timer1.Enabled = False End Sub Private Sub Text1_Change() 文本框内容发生变化就可以实现再次的查找 flag = True s = Text1.Text End Sub 主窗体右侧对字体、字型及大小的设置 Private Sub Option1_Click() Text1.FontName = 黑体 设置Text1的字体为黑体 End Sub Private Sub Option2_Click() Text1.FontName = 楷体_GB2312 设置Text1的字体为楷体 End Sub Private Sub Option3_Click() Text1.FontSize = 8 设置Text1的字体大小为8磅 End Sub Private Sub Option4_Click() Text1.FontSize = 20 设置Text1的字体大小为20磅 End Sub Private Sub Check1_Click() Text1.FontBold = Not Text1.FontBold 设置Text1的字型是否为粗体 End Sub Private Sub Check2_Click() Text1.FontItalic = Not Text1.FontItalic 设置Text1的字型是否为斜体 End Sub Private Sub Check3_Click() Text1.FontStrikethru = Not Text1.FontStrikethru 设置Text1是否加删除线 End Sub Private Sub Check4_Click() Text1.FontUnderline = Not Text1.FontUnderline 设置Text1是否为加下划线 End Sub Private Sub New_Click() 新建文件 On Error Resume Next If Text1 Then i = MsgBox(文件无标题的文字已经改变。 vbCrLf 想保存文件吗？, 3 + 48, 记事本) If i = 6 Then CommonDialog1.FileName = *.Txt CommonDialog1.InitDir = C:\Windows CommonDialog1.DefaultExt = Txt CommonDialog1.Filter = 文本文件(*.Txt)|(*.Txt)|RTF文档(*.rtf)|*.rtf| 所有文件(*.*)|*.* CommonDialog1.CancelError = True CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #2 Print #2, Text1.Text Close #2 Text1.Text = MsgBox 文件保存成功！, 64, 提示 ElseIf i = 7 Then Text1.Text = End If Else Text1 = Me.Caption = 未命名 End If End Sub Private Sub OpenSequenceFile_Click() 打开顺序文件 Dim Data 定义三个变量，用于存放读出的数据 CommonDialog1.ShowOpen 利用ShowOpen显示打开文件对话框 CommonDialog1.Action = 1 设置Action属性显示打开文件对话框 Text1.Text = Open CommonDialog1.FileNa