面向对象程序设计实用第3章.ppt

本章学习目标 应知： Windows程序菜单的结构 文本框控件的作用 应会： 使用菜单编辑器制作菜单 在程序中显示另一个窗体 读写文本文件的方法 使用循环语句 项目1 制作简单的文本编辑程序 项目要做一个与Windows记事本相似的文本编辑程序 任务1 使用菜单编辑器制作菜单 单击集成开发环境的菜单“工具”“菜单编辑器” 任务2 添加文本框控件 文本框控件是程序中经常用的一个控件，它可以用于显示文字信息和提供用户输入文字信息，还可以用于编辑文本 用鼠标单击工具箱上的“文本框控件”按钮，用鼠标在窗体上画出一个文本框控件。 设置Text1的相关属性，让它能编辑多行文字，并且显示滚动条。 MultiLine属性和ScrollBar属性 任务3 编写菜单的功能代码 单击窗体Form1的“文件”“新建”菜单，这时集成开发环境会显示代码窗口，并自动创建了一个mnuNew_Click事件过程，在该事件过程中输入以下代码： Private Sub mnuNew_Click() Text1.Text = “ End Sub “文件”“退出”菜单 “全选”菜单 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 任务4 添加第二个窗体 给程序添加一个“关于”对话框，我们要在这个对话框上显示工程的名称及程序员的制作者。 “帮助”“关于”菜单 Private Sub mnuAbout_Click() Form2.Show vbModal End Sub 项目2 保存及读取文本文件 “文件”“保存”菜单 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 任务2 添加读取文本功能 “文件”“打开”菜单 Private Sub mnuOpen_Click() Dim strLine As String 储存每一行的字符 Dim strText As String 储存所有行的字符 Open C:\MyNote.txt For Input As #1 Do If EOF(1) Then Exit Do Line Input #1, strLine strText = strText strLine vbCrLf Loop Close #1 Text1.Text=strText End Sub