VB课程设计报告---文本编辑器

《VB课程设计报告---文本编辑器》由会员分享，可在线阅读，更多相关《VB课程设计报告---文本编辑器（16页珍藏版）》请在毕设资料网上搜索。

1、 VB 课程设计报告 文本编辑器 学 院 名 称学 院 名 称 ： 计算机学院 学 生 姓 名学 生 姓 名 ： 专 业 名 称专 业 名 称 ： 计算机科学与技术 班班 级级 ： 一、 课程设计题目 用 Visual Basic 程序设计语言编写一个简易的文本编辑器 要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体 设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能， 包括打开文件、保存文件；以及完整的系统运行退出等功能，所 有的操作可选择设定的快捷键。 二、 课程设计目的 （1）目标：实现类似与 WINDOWS 平台下的记事本程序。 （2）涉及功能：新建、打开、保存、另存为、退

2、出、编辑、撤销、 复制、粘贴、剪切、删除、查找、全选、打印、格式、 字体、颜色、查看、状态栏、帮助、关于等 三、 课程设计说明 1 创建应用程序界面 2 设置属性 3 编写代码 4 保存应用程序 5 调试，运行应用程序 6 生成可执行文件 四、 源代码 Dim filecount As Integer Dim inputdata As String Dim TargetPosition As Integer Dim pos As Integer Dim targey As String Dim neirong As String Private Sub A_Click() On Error R

3、esume Next cmndlg1.Filter = “文本文件|*.txt“ cmndlg1.CancelError = True cmndlg1.Action = 2 Open cmndlg1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub C_Click() End Sub Private Sub D_Click() End Sub Private Sub Form_Load() Text1.Text = “ Text1.Left = 0 Text1.Top = 550 Text1.

4、Width = Form1.ScaleWidth Text1.Height = Form1.ScaleHeight mnucut.Enabled = False mnucopy.Enabled = False mnudelete.Enabled = False mnuselectall.Enabled = False mnupaste.Enabled = True mnuleft.Checked = True End Sub Private Sub Form_Resize() 如果窗体不处于最小化 text1 状态，改变 text1 大小以适应窗体大小变化 If Form1.WindowSta

5、te 1 Then Text1.Width = Form1.Width - 120 If Form1.Height “ Then Text1.FontName = cmndlg1.FontName End If Text1.FontSize = cmndlg1.FontSize Text1.FontBold = cmndlg1.FontBold Text1.FontItalic = cmndlg1.FontItalic Text1.FontStrikethru = cmndlg1.FontStrikethru Text1.FontUnderline = cmndlg1.FontUnderlin

6、e Text1.FontBold = cmndlg1.FontBold Text1.ForeColor = cmndlg1.Color A: If Err.Number 0 Then 找到了匹配字符串 TargetPosition = pos Text1.SelStart = TargetPosition - 1 选中找到的字符串 Text1.SelLength = Len(targey) Text1.SetFocus Else 没有找到匹配的字符串 MsgBox “没找到匹配的字符串“, 48, “提示“ Text1.SetFocus End If End Sub Private Sub mnuNext_Click() 查找下一个 FindTex TargetPosition + 1 End Sub Private Sub mnuopen_Click() 打开 Dim inputdata As String On Error GoTo nofile cmndlg1.Filter = “文本文件|*.txt“ cmndlg1.CancelError