vb应用程序界面设计ppt

《vb应用程序界面设计ppt》由会员分享，可在线阅读，更多相关《vb应用程序界面设计ppt（54页珍藏版）》请在金锄头文库上搜索。

1、计算机科学系软件设计基础河北理工大学VB程序设计计算机第4章 应用程序界面设计本章学习目标： 掌握菜单的基本概念，熟练应用菜单编辑器创 建菜单并为菜单项编写代码 熟练应用通用对话框及其操作语句 掌握RichTextBox控件的常用属性和方法 掌握MDI窗体的创建方法和编程方式 掌握文件系统控件同步方法 了解工具栏的创建方法计算机第4章 应用程序界面设计v本章重点 文件系统控件的应用 菜单的创建 增强文本框对文件的操作v本章难点 创建工具栏计算机学习内容使用菜单和通用对话框创建文本编 辑器1实例演示问题分析创建包含菜单的程序界面 创建菜单 通用对话框控件 RichTextBox控件为菜单项编写程

2、序代码创建弹出式菜单带工具栏的文本编辑器2问题分析设计过程计算机学习内容使用文件系统控件创建文本文件浏 览器4问题分析设计过程 设计界面 编写代码建立多文档界面的文本编辑器3问题分析设计过程 创建和设计MDI父窗体 创建和设计MDI子窗体 编写代码计算机使用 菜单和通用对话框创建文本编辑器问题分析图1是应用菜单的简单文本编辑器界面，界面中包含菜单、RichTextBox 增强文本框和通用对话框。菜单包含两个菜单项，在“文件”和“编辑”菜 单下分别有子菜单，如图2和图3所示。运行程序，可以实现相应菜单项的功能。实例演示-实例4.1图1图2图3计算机使用 菜单和通用对话框创建文本编辑器问题分析要实

3、现题目要求，需要完成下面的操作： （1）新建标准EXE工程。 （2）使用菜单编辑器创建图2和图3所示的菜单。（3）使用“工程”菜单下的“部件”命令，添加通用对话框控件和 RichTextBox控件（增强文本框）到工具箱，再添加到窗体，如图1所示。 （4）在每个菜单下编写代码，实现对应菜单项的功能。计算机使用 菜单和通用对话框创建文本编辑器创建包含菜单的程序界面1.新建工程，创建标准.EXE 文件2.创建菜单打开“菜单编辑器” 输入每个菜单标题、热键和名称 创建“子菜单”项，设置标题和名称 设置子菜单的快捷键分隔线计算机使用 菜单和通用对话框创建文本编辑器创建包含菜单的程序界面3.添加“通用对话

4、框”控件打开“工程”菜单下的“部件”命令。在对话框中选择“控件”选项卡，选择 “Microsoft Common Dialog Control 6.0”选项，如图所示。 单击“确定”按钮。控件添加到工具箱中。 将控件添加到窗体上。添加到窗体上 的通用对话框通用对话 框控件计算机使用 菜单和通用对话框创建文本编辑器创建包含菜单的程序界面4.添加增强文本框（RichTextBox）控件，用于装载文本信息打开“工程”菜单下的“部件”命令。在对话框中选择“控件”选项卡，选择 “Microsoft Rich TextBox Control 6.0”选项，如图所示。 单击“确定”按钮。控件添加到工具箱中。

5、 将控件添加到窗体上。添加到窗体上的 RichTextBoxRichText Box控件计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码1.通用声明区代码Dim m_strFname As String 用于存放文件名Dim m_ch As Boolean 用于判断文件是否需要保存2.对“文件”菜单的菜单项编写程序代码（1）通用对话框CommonDialog 控件可以显示如下常用对话框：“打开”、 “另存为”、 “颜色”、“字体”、“打印”、“帮助”。而当前显示哪一种对话框将由CommonDialog 控件的Action属性或Show方法来决定。 计算机使用 菜单和通用对话框创建

6、文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码 Action属性和Show方法说明 Action属性Show方法说明1ShowOpen显示文件打开对话框 2ShowSave显示另存为对话框 3ShowColor显示颜色对话框 4ShowFont显示字体对话框 5ShowPrinter显示打印机对话框 6ShowHelp显示帮助对话框计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码CancelError属性通用对话框内有一个“取消”按钮，用于向应用程序表示用户想取消当前操作。当 该属性为Ture时，在用户按下“取消”按钮时

7、，将出现错误警告；该属性为False(缺 省)：按下“取消”按钮，不会出现错误警告。 Dialogtitle属性每个通用对话框都有默认的标题，在默认情况下，“打开”对话框的标题是“打开 ”，“另存为”对话框的标题是“另存为”。但用户可以使用Dialogtitle属性设置对话框的标题，可以是任意字符串。 Flags属性通用对话框的Flags属性可修改每个具体对话框的默认操作。计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码（2）文件对话框分为：打开(0pen)文件对话框和另存为(save As)文件对话框 FileName属性用于设置或返回要打

8、开或保存文件的路径及文件名 ，是完整的路径。如： “d:progvbtest.frm” FileTitle属性 只指定或返回文件名，不包括路径。如：“test.frm” Filter 属性 确定打开或保存文件的文件类型，格式为：说明字符1|类型描述1|说明字符2|类型描述2|例如： CDlg.Filter = “文本文件|*.txt|RTF文本文件|*.rtf|所有文件|*.*“计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码 FilterIndex属性 用来指定默认的过滤器，其设置值为一整数。用Filter属性设置多个过滤器后，可使用Fih

9、erIndex属性指定作为默认显示的过 滤器。若不设置该属性，则默认FilterIndex0 InitDir属性 用来指定打开对话框中的初始化目录，若显示当前目录，则该属性不需要设置。 计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码（3） 文件的读取和保存 RichTextBox控件可读取和保存文本文件，并可设置选定文字的格式。读取文件方法：对象.LoadFile 文件路径和名称，文件类型保存文件方法：对象.SaveFile 文件路径和名称，文件类型其中：文件类型为常数。当取值为rtfRTF（或0）为.rtf文件当取值为rtfText（或1

10、）为文本文件计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码编写“打开”菜单下的程序 Private Sub M_Open_Click()CDlg.Filter = “文本文件|*.txt|RTF文本文件|*.rtf|所有文件|*.*“CDlg.InitDir = “C:Windows“CDlg.ShowOpenm_strFname = CDlg.FileName 取得文件名RText.LoadFile m_strFname 文件内容显示在增强文本框中m_ch = False 文件尚未保存End Sub计算机使用 菜单和通用对话框创建文本编辑

11、器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码编写“保存”菜单下的程序 Private Sub M_Save_Click()If m_strFname = “ ThenM_SaveAs_ClickElseRText.SaveFile m_strFname 保存已打开的文件End Ifm_ch = False 文件已经被保存End Sub计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码2.对“文件”菜单的菜单项编写程序代码编写“另存为”菜单下的程序 Private Sub M_SaveAs_Click()CDlg.Filter = “文本文件|*.txt|RTF文本文

12、件|*.rtf|所有文件|*.*“CDlg.InitDir = “D:“m_strFname = CDlg.FileNameRText.SaveFile m_strFnameEnd Sub计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码3.对“编辑”菜单的菜单项编写程序代码实现将选中的内容复制到剪贴板 （1）剪贴板在VB中，表示剪贴板的对象是Clipboard，其含义与Windows应用程序是一致的。它使用户能够复制、剪切和粘贴应用程序中的文本和图形。（2）清除剪贴板Clipboard.Clear（3）将文本字符串放到剪贴板上Clipboard.SetText data,form

13、atdata是要放置的字符串，format是指明剪贴板的格式计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码3.对“编辑”菜单的菜单项编写程序代码实现将选中的内容复制到剪贴板 Private Sub M_Copy_Click()Clipboard.Clear 清空剪贴板Clipboard.SetText RText.SelText 将文本框中选择的文本放到剪贴板上End Sub实现将选中的内容剪切到剪贴板 Private Sub M_Cut_Click()Clipboard.ClearClipboard.SetText RText.SelTextRText.SelText = “

14、End Sub计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码3.对“编辑”菜单的菜单项编写程序代码将剪贴板内容粘贴到目标位置 Private Sub M_Paste_Click()RText.SelText = Clipboard.GetTextEnd SubPrivate Sub RText_Change()m_ch = True End Sub4.其他相关的程序代码增强文本框的Change事件代码 计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码卸载窗体的代码 Private Sub Form_Unload(Cancel As Integer)If m_ch

15、= True ThenIf MsgBox(“文件已经修改过，保存文件吗？“, vbYesNo + vbQuestion, “提 示“) = vbYes ThenIf m_strFname = “ ThenM_SaveAs_ClickElseRText.SaveFile m_strFnameEnd IfEnd IfEnd If End Sub4.其他相关的程序代码计算机使用 菜单和通用对话框创建文本编辑器为菜单项编写程序代码实现对选中文本字体的设置 （1）“字体”对话框对象.ShowFont方法打开字体对话框。 Flags属性在显示“字体”对话框之前必须设置Flags属性，否则将发生不存在字体的错误。该属性 通知CommonDialog控件是否显示屏幕字体 、打印机字体或两者都显示。“字体”对话框 的Flags属性设置值如表所示5.编写“格式”菜单下的代码（此部分内容可自学）“字体”对话框的Flags属性值及说明常数值说明 CdlCFScreenF onts&H1屏幕字体CdlCFPrinter Fonts&H2打印机字体CdlCFBoth&H3屏幕字体和打印机字 体 CdlCFEffects&H100显示删除线、下划线 、颜色等元素计算机使用 菜单和通用对话框创建