面向对象程序设计实用教程--Visual Basic可视化编程 教学课件 作者 杨光宏 第3章.pptVIP

第三章 菜单与文本 本章学习目标 应知： Windows程序菜单的结构 文本框控件的作用 应会： 使用菜单编辑器制作菜单 在程序中显示另一个窗体 读写文本文件的方法 使用循环语句 项目1 制作简单的文本编辑程序 项目要做一个与Windows记事本相似的文本编辑程序 任务1 使用菜单编辑器制作菜单 单击集成开发环境的菜单“工具”“菜单编辑器” 任务2 添加文本框控件 文本框控件是程序中经常用的一个控件，它可以用于显示文字信息和提供用户输入文字信息，还可以用于编辑文本 用鼠标单击工具箱上的“文本框控件”按钮，用鼠标在窗体上画出一个文本框控件。 设置Text1的相关属性，让它能编辑多行文字，并且显示滚动条。 任务3 编写菜单的功能代码 单击窗体Form1的“文件”“新建”菜单，这时集成开发环境会显示代码窗口，并自动创建了一个mnuNew_Click事件过程，在该事件过程中输入以下代码： Private Sub mnuNew_Click() Text1.Text = “ End Sub “文件”“退出”菜单 “复制”、“剪切”和“粘贴”菜单项 任务4 添加第二个窗体 给程序添加一个“关于”对话框，我们要在这个对话框上显示工程的名称及程序员的制作者。 “帮助”“关于”菜单 项目2 保存及读取文本文件 “文件”“保存”菜单 任务2 添加读取文本功能 “文件”“打开”菜单 小结 本章通过制作一个记事本，了解了Windows菜单的结构，并掌握了如何给程序制作菜单。学习了如何使用文本框控件，并结合Clipboard对象实现记事本常用的功能。通过学习保存和打开文件学习了如何对文件进行操作。 在这一章里，最重要的内容是循环结构，要掌握如何使用循环结构并能熟练使用循环结构去解决一些常见的问题。 思考与练习题 Windows下如何使用快捷键？ Windows应用程序的快捷键有哪两种？ 编写一段程序，把“我知道如何制作记事本了！”这句话保存到C:\Happy.txt。 用Do…Loop结构计算1×2×3×…×10。 用For…Next结构计算1+3+5+…+99。 * * 面向对象程序设计实用教程 — Visual Basic 可视化编程 MultiLine属性和ScrollBar属性 “全选”菜单 Private Sub mnuEdit_Click() Unload Me End Sub Private Sub mnuSelectAll_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub mnuCopy_Click() “复制”菜单项的Click事件过程 Dim s As String s=Text1.SelText Clipboard.SetText s End Sub Private Sub mnuCut_Click() “剪切”菜单项的Click事件过程 Dim s As String s=Text1.SelText Clipboard.SetText s Text1.SelText = End Sub Private Sub mnuPaste_Click() “粘贴”菜单项的Click事件过程 Text1.SelText = Clipboard.GetText End Sub Private Sub mnuAbout_Click() Form2.Show vbModal End Sub Private Sub mnuSave_Click() Dim strText As String strText = Text1.Text ‘变量strText保存文本框的内容 ‘以Output方式打开文件并赋予一个文件号1 Open C:\MyNote.txt For Output As #1 Print #1, strText ‘把变量的内容写入1号文件 Close #1 ‘关闭1号文件 End Sub Private Sub mnuOpen_Click() Dim strLine As String 储存每一行的字符 Dim strText As String 储存所有行的字符 Open C