Vb程序4

计算机
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码
计算机
①CancelError属性 属性 通用对话框内有一个“取消”按钮，用于向应用程序表示用户想取消当前操作。 通用对话框内有一个“取消”按钮，用于向应用程序表示用户想取消当前操作。 当该属性为Ture时，在用户按下“取消”按钮时，将出现错误警告；该属性为 当该属性为 时 在用户按下“取消”按钮时， 出现错误警告； False(缺省 ：按下“取消”按钮，不会出现错误警告。 缺省)： 缺省 按下“取消”按钮，不会出现错误警告。 ②Dialogtitle属性 属性 每个通用对话框都有默认的标题，在默认情况下， 打开” 每个通用对话框都有默认的标题，在默认情况下，“打开”对话框的标题是 打开” 另存为”对话框的标题是“另存为” 但用户可以使用Dialogtitle属 “打开”，“另存为”对话框的标题是“另存为”。但用户可以使用 属 性设置对话框的标题，可以是任意字符串。 性设置对话框的标题，可以是任意字符串。 ③ Flags属性 属性 通用对话框的Flags属性可修改每个具体对话框的默认操作。 属性可修改每个具体对话框的默认操作 通用对话框的 属性可修改每个具体对话框的默认操作。
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码2）文件对话框 （ ）
计算机
分为：打开 文件对话框和另存为(save As)文件对话框 分为：打开(0pen)文件对话框和另存为 文件对话框和另存为 文件对话框 ① FileName属性 属性 是完整的路径。 用于设置或返回要打开或保存文件的路径及文件名 ，是完整的路径。如： “d:\prog\vb\test.frm” ② FileTitle属性 属性 只指定或返回文件名，不包括路径。 只指定或返回文件名，不包括路径。如：“test.frm” ③ Filter 属性 确定打开或保存文件的文件类型，格式为： 确定打开或保存文件的文件类型，格式为： 说明字符1|类型描述 说明字符2|类型描述 类型描述1|说明字符 类型描述2|…… 说明字符 类型描述 说明字符 类型描述 例如： 文本文件|*.txt|RTF文本文件 文本文件|*.rtf|所有文件 所有文件|*.*" 例如： CDlg.Filter = "文本文件 文本文件 文本文件 所有文件
使用 菜单和通用对话框创建文本编辑器 创建包含菜单的程序界面
1.新建工程，创建标准.EXE 文件 新建工程，创建标准 新建工程 2.创建菜单 创建菜单 ①打开“菜单编辑器” 打开“菜单编辑器” 输入每个菜单标题、 ②输入每个菜单标题、热键和名称 创建“子菜单” ③创建“子菜单”项，设置标题和名 称 ④设置子菜单的快捷键
图1
图2
图3
使用 菜单和通用对话框创建文本编辑器 问题分析
计算机
要实现题目要求，需要完成下面的操作： 要实现题目要求，需要完成下面的操作： 工程。 （1）新建标准 ）新建标准EXE工程。 工程 和图3所示的菜单 （2）使用菜单编辑器创建图 和图 所示的菜单。 ）使用菜单编辑器创建图2和图 所示的菜单。 （3）使用“工程”菜单下的“部件”命令，添加通用对话框控件和 ）使用“工程”菜单下的“部件”命令， RichTextBox控件（增强文本框）到工具箱，再添加到窗体，如图 所示。 控件（ 所示。 控件 增强文本框）到工具箱，再添加到窗体，如图1所示 （4）在每个菜单下编写代码，实现对应菜单项的功能。 ）在每个菜单下编写代码，实现对应菜单项的功能。
分隔线
计算机
使用 菜单和通用对话框创建文本编辑器 创建包含菜单的程序界面
3.添加“通用对话框”控件 添加“通用对话框” 添加 ①打开“工程”菜单下的“部件”命令。 打开“工程”菜单下的“部件”命令。 在对话框中选择“控件”选项卡， ②在对话框中选择“控件”选项卡，选 择“Microsoft Common Dialog Control 6.0”选项，如图所示。 选项， 选项 如图所示。 单击“确定”按钮。 ③单击“确定”按钮。控件添加到工具 箱中。 箱中。 将控件添加到窗体上。 ④将控件添加到窗体上。
计算机
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码编写“保存”菜单下的程序 编写“保存”
Private Sub M_Save_Click() If m_strFname = "" Then M_SaveAs_Click Else RText.SaveFile m_strFname End If m_ch = False End Sub '文件已经被保存 文件已经被保存 '保存已打开的文件 保存已打开的文件
RichText Box控件 控件
添加到窗体上的 RichTextBox
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
1.通用声明区代码 通用声明区代码
Dim m_strFname As String Dim m_ch As Boolean '用于存放文件名 用于存放文件名 '用于判断文件是否需要保存 用于判断文件是否需要保存
通用对话 框控件
计算机
添加到窗体上 的通用对话框
使用 菜单和通用对话框创建文本编辑器 创建包含菜单的程序界面
4.添加增强文本框（RichTextBox）控 添加增强文本框（ 添加增强文本框 ）
件，用于装载文本信息
计算机
①打开“工程”菜单下的“部件”命令。 打开“工程”菜单下的“部件”命令。 在对话框中选择“控件”选项卡， ②在对话框中选择“控件”选项卡，选 择“Microsoft Rich TextBox Control 6.0”选项，如图所示。 选项， 选项 如图所示。 单击“确定”按钮。 ③单击“确定”按钮。控件添加到工具 箱中。 箱中。 将控件添加到窗体上。 ④将控件添加到窗体上。
计算机
2.对“文件”菜单的菜单项编写程序代 对 文件” 码
（1）通用对话框 ） CommonDialog 控件可以显示如下常用对话框：“打开”、 “另存为”、 控件可以显示如下常用对话框： 打开” 另存为” “颜色”、“字体”、“打印”、“帮助”。而当前显示哪一种对话框将由 颜色” 字体” 打印” 帮助” CommonDialog 控件的 控件的Action属性或 属性或Show方法来决定。 方法来决定。 属性或 方法来决定
计算机
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码编写“另存为”菜单下的程 编写“另存为”
序 Private Sub M_SaveAs_Click() CDlg.Filter = "文本文件 文本文件|*.txt|RTF文本文件 文本文件|*.rtf|所有文件 所有文件|*.*" 文本文件 文本文件 所有文件 CDlg.InitDir = "D:\" m_strFname = CDlg.FileName RText.SaveFile m_strFname End Sub
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码 Action属性和 属性和Show方法说明 属性和 方法说明
Action属性 属性 1 2 3 4 5 6 Show方法 方法 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp 说明 显示文件打开对话框 显示另存为对话框 显示颜色对话框 显示字体对话框 显示打印机对话框 显示帮助对话框
2
带工具栏的文本编辑器
问题分析 设计过程
学习内容
3
建立多文档界面的文本编辑器
问题分析 设计过程 创建和设计MDI父窗体 创建和设计 父窗体 创建和设计MDI子窗体 创建和设计 子窗体 编写代码
计算机
4
使用文件系统控件创建文本文件浏 览器
问题分析 设计过程
设计界面
编写代码
使用 菜单和通用对话框创建文本编辑器 问题分析
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码 FilterIndex属性 ④ 属性
计算机
用来指定默认的过滤器，其设置值为一整数。 用来指定默认过滤器，其设置值为一整数。 属性设置多个过滤器后， 用Filter属性设置多个过滤器后，可使用 属性设置多个过滤器后 可使用FiherIndex属性指定作为默认显示的过 属性指定作为默认显示的过 滤器。若不设置该属性，则默认FilterIndex＝0 滤器。若不设置该属性，则默认 ＝ ⑤ InitDir属性 属性 用来指定打开对话框中的初始化目录，若显示当前目录，则该属性不需要设置。 用来指定打开对话框中的初始化目录，若显示当前目录，则该属性不需要设置。
实例演示-实例 实例演示 实例4.1 实例
计算机
是应用菜单的简单文本编辑器界面， 图1是应用菜单的简单文本编辑器界面，界面中包含菜单、RichTextBox 是应用菜单的简单文本编辑器界面 界面中包含菜单、 增强文本框和通用对话框。菜单包含两个菜单项， 文件” 编辑” 增强文本框和通用对话框。菜单包含两个菜单项，在“文件”和“编辑” 菜单下分别有子菜单，如图2和图 所示。运行程序， 和图3所示 菜单下分别有子菜单，如图 和图 所示。运行程序，可以实现相应菜单 项的功能。 项的功能。
计算机
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码编写“打开”菜单下的程序 编写“打开”
Private Sub M_Open_Click() CDlg.Filter = "文本文件 文本文件|*.txt|RTF文本文件 文本文件|*.rtf|所有文件 所有文件|*.*“ 文本文件 文本文件 所有文件 CDlg.InitDir = "C:\Windows" CDlg.ShowOpen m_strFname = CDlg.FileName RText.LoadFile m_strFname m_ch = False End Sub '取得文件名 取得文件名 '文件内容显示在增强文本框中 文件内容显示在增强文本框中 '文件尚未保存 文件尚未保存
第4章 应用程序界面设计 章
本章重点
文件系统控件的应用 菜单的创建 增强文本框对文件的操作
计算机
本章难点
创建工具栏
学习内容
1
使用菜单和通用对话框创建文本编 辑器
实例演示 问题分析 创建包含菜单的程序界面
创建菜单
计算机
通用对话框控件
RichTextBox控件 控件
为菜单项编写程序代码 创建弹出式菜单
软件设计基础
——VB程序设计 程序设计
计算机科学系
第4章 应用程序界面设计 章
计算机
本章学习目标： 本章学习目标： 掌握菜单的基本概念， 掌握菜单的基本概念，熟练应用菜单编辑器创 建菜单并为菜单项编写代码 熟练应用通用对话框及其操作语句 掌握RichTextBox控件的常用属性和方法 掌握 控件的常用属性和方法 掌握MDI窗体的创建方法和编程方式 掌握 窗体的创建方法和编程方式 掌握文件系统控件同步方法 了解工具栏的创建方法
使用 菜单和通用对话框创建文本编辑器 为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代 对 文件” 码3） 文件的读取和保存 （ ）
RichTextBox控件可读取和保存文本文件，并可设置选定文字的格式。 控件可读取和保存文本文件，并可设置选定文字的格式。 控件可读取和保存文本文件 读取文件方法： 读取文件方法： 对象.LoadFile 文件路径和名称，文件类型 文件路径和名称， 对象 保存文件方法： 保存文件方法： 对象.SaveFile 文件路径和名称，文件类型 文件路径和名称， 对象 其中： 其中： 文件类型为常数。当取值为rtfRTF（或0）为.rtf文件 文件类型为常数。当取值为 （ ） 文件 当取值为rtfText（或1）为文本文件 当取值为 （ ）