工具栏和状态栏设计

1、1学习目标：学习目标：u 了解工具栏和状态栏的设计了解工具栏和状态栏的设计 u 了解多文档界面的创建和设计了解多文档界面的创建和设计u 掌握通用对话框的创建和使用掌握通用对话框的创建和使用 u 了解多媒体控件的应用技术了解多媒体控件的应用技术u了解了解VB应用程序向导的使用应用程序向导的使用 2 教学内容：教学内容： 10.1 菜单设计菜单设计 10.2 工具栏和状态栏工具栏和状态栏 10.3 多文档界面多文档界面 10.4 通用对话框通用对话框 10.5 多媒体控件应用多媒体控件应用 10.6 应用程序向导应用程序向导 31. 菜单的类型菜单的类型 下拉菜单：常以菜单栏的形式出现在标题栏下面

2、下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单弹出菜单( (快捷菜单快捷菜单) )：独立于菜单栏而显示在窗体上的：独立于菜单栏而显示在窗体上的浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位置。置。2. VB中的菜单控件中的菜单控件 菜单和菜单项均看作是菜单控件菜单和菜单项均看作是菜单控件 菜单控件两个最重要的属性菜单控件两个最重要的属性名称名称(Name)：程序：程序代码中用来引用菜单控件代码中用来引用菜单控件标题标题(Caption)：出现在控件上的文本：出现在控件上的文本 菜单控件只响应菜单控件只响应Click事件事件 4打开菜单

3、编辑器：打开菜单编辑器： “工具工具菜单编辑器菜单编辑器” ” 工具栏工具栏“菜单编辑器菜单编辑器”按钮按钮 1. 常用属性常用属性 标题：设置标题：设置Caption属性属性 字符前加字符前加&，该，该字符成为访问键字符成为访问键 只输入一个减号只输入一个减号- ，创建分隔条创建分隔条 名称：设置名称：设置Name属性属性 注：对分隔条，也需定义名称注：对分隔条，也需定义名称 索引索引(Index)：用于：用于菜单控件数组菜单控件数组 快捷键快捷键 、 复选复选(Checked) 有效有效(Enabled)、 可见可见(Visible)52. 编辑菜单控件编辑菜单控件 如 果 菜 单如 果

4、菜 单控件的前面控件的前面没有内缩符没有内缩符号号“”，表明该控，表明该控件建立的是件建立的是主菜单，否主菜单，否则为菜单命则为菜单命令或子菜单。令或子菜单。 6 方法：方法：先通过菜单编辑器设计菜单，然后编写各菜单控先通过菜单编辑器设计菜单，然后编写各菜单控件的件的Click事件过程。事件过程。 例例10.15 创建简易编辑器创建简易编辑器 (1) 设计菜单设计菜单7 例例10.15 创建简易编辑器创建简易编辑器 (2) 设计界面设计界面菜单下面绘制两条直线菜单下面绘制两条直线(两个两个Line控件控件)，一条为黑色，一，一条为黑色，一条为白色。条为白色。黑线的黑线的Y1和和Y2属性设为属性

5、设为0白线的白线的Y1和和Y2属性设为属性设为10文本框文本框Text1：MultiLine设为设为TrueScrollBars设为设为3 (3) 编写菜单控件的编写菜单控件的Click事件过程事件过程8 用用PopupMenu方法可显示弹出式菜单方法可显示弹出式菜单 对象对象.PopupMenu 菜单控件名称菜单控件名称 若若“对象对象”缺省，则在当前窗体中显示弹出菜单缺省，则在当前窗体中显示弹出菜单 通常，按下鼠标右键时显示弹出菜单，例如：通常，按下鼠标右键时显示弹出菜单，例如： Private Sub Form或控件名称或控件名称_MouseUp (Button As Integer,

6、Shift As Integer, X As Single, Y As Single) If Button = 2 Then 如果按的是鼠标右键如果按的是鼠标右键 PopupMenu 菜单名菜单名 显示弹出菜单显示弹出菜单 End IfEnd Sub 9例例10.16 弹出菜单设计弹出菜单设计(1) 打开例打开例5.15所建立的工程所建立的工程(2) 添加如下的事件过程：添加如下的事件过程：Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =

7、2 Then PopupMenu mnuEdit 弹出名称为弹出名称为mnuEdit的菜单的菜单 End IfEnd Sub 注：若要创建一个不显示在菜单栏中的弹出菜单，设计菜单时，注：若要创建一个不显示在菜单栏中的弹出菜单，设计菜单时，需取消主菜单的需取消主菜单的“可见可见”复选框。复选框。 10创建工具栏一般须遵循以下四个步骤：创建工具栏一般须遵循以下四个步骤：(1) 将将ImageList控件和控件和Toolbar控件添加到工具箱中，然控件添加到工具箱中，然后添加到窗体上。后添加到窗体上。(2) 为窗体上的为窗体上的ImageList控件添加所需的图像。控件添加所需的图像。(3) 建立建

8、立ToolBar控件与控件与ImageList控件之间的关联。控件之间的关联。(4) 对对ToolBar上的按钮编写上的按钮编写Click事件响应代码。事件响应代码。 111. 添加工具栏控件添加工具栏控件 (1) “工程工程部件部件”，选选Microsoft Windows Common Controls 6.012(2) 用用 在窗体任意位置添加一个在窗体任意位置添加一个ImageList控件，名称默认控件，名称默认 为为ImageList1(3) 用用 在窗体上添加一个在窗体上添加一个Toolbar控件控件(该控件自动位于菜该控件自动位于菜 单栏的下面单栏的下面) ，其名称默认为，其名称

9、默认为Toolbar1。132. 为窗体上的为窗体上的ImageList控件添加所需的图像控件添加所需的图像右击窗体上的右击窗体上的ImageList控件，选择控件，选择“属性属性”命令命令“通用通用”选项卡：设置按钮大小选项卡：设置按钮大小“颜色颜色”选项卡：设定按钮的颜色选项卡：设定按钮的颜色“图像图像”选项卡：选择要加入的图像选项卡：选择要加入的图像 14“图像图像”选项卡：选择要加入的图像选项卡：选择要加入的图像 15“图像图像”选项卡：定义选项卡：定义“关键字关键字”(在在ToolBar控件中引用的图控件中引用的图像标识名像标识名) 163. 建立建立ToolBar控件与控件与Ima

10、geList控件之间的关联控件之间的关联右击窗体上的右击窗体上的Toolbar控件，选择控件，选择“属性属性”命令命令“通用通用”选项卡：选项卡：“图像列表图像列表”选择选择ImageList1 17“按钮按钮”选项卡：单击选项卡：单击“插入按钮插入按钮” 工具栏第一个按钮：工具栏第一个按钮：u“索引索引”：自动变为：自动变为1u“ 关 键 字关 键 字 ” ： 输 入： 输 入ImageList1控件中定义控件中定义的相应关键字的相应关键字u“图像图像”：输入：输入“1”以此类推插入其他按钮以此类推插入其他按钮184. 响应响应ToolBar控件事件控件事件单击工具栏上的某个按钮，将引发单击

11、工具栏上的某个按钮，将引发ButtonClick事件事件 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) End Sub根据按钮的关键字根据按钮的关键字(Button.Key)或者图像值或者图像值(Button.Image)可判断单击的是哪个按钮，然后通过可判断单击的是哪个按钮，然后通过Select Case语句进行语句进行相应的处理相应的处理 例，菜单中有一个例，菜单中有一个“打开打开”菜单命令菜单命令(名称为名称为mOpen)，工具栏上有一个工具栏上有一个“打开打开”按钮按钮(关键字为关键字为open

12、，图像值为，图像值为1)，单击它们都执行同样的操作，单击它们都执行同样的操作(执行执行OpenDoc过程过程)，相应的代码如下：相应的代码如下：19 Private Sub mOpen_Click() 单击单击“打开打开”菜单命令菜单命令 OpenDoc End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case “open” 或或Case 1，表示单击，表示单击“打开打开”按钮按钮 OpenDoc End Select End Sub “打开打

13、开”按钮的关键字为按钮的关键字为open，图像值为图像值为1201. 添加状态栏控件添加状态栏控件 (1) “工程工程部件部件”，选选Microsoft Windows Common Controls 6.0(2) 用用 在窗体上添加在窗体上添加Statusbar控件控件(通常位于窗体的底部通常位于窗体的底部)(3) 设置窗格属性设置窗格属性u“插入窗格插入窗格”按钮：用于在状态按钮：用于在状态栏上插入窗格，最多栏上插入窗格，最多16个个u“索引索引”：每个窗格的编号。：每个窗格的编号。u“文本文本”：样式为：样式为sbrText时，时，窗格中显示的文本窗格中显示的文本u“关键字关键字”：用于

14、标识窗格的：用于标识窗格的字符串字符串u“样式样式”：设置窗格的显示状：设置窗格的显示状态态 21例如，例如， 222. 程序运行时在状态栏上显示信息程序运行时在状态栏上显示信息 设置状态栏窗格属性设置状态栏窗格属性 状态栏控件名称状态栏控件名称.Panels(索引值索引值) 例例： Private Sub Text1_Change() StatusBar1.Panels(2).Text = Str(Len(Text1.Text)End Sub231. Windows应用程序的界面样式应用程序的界面样式 单文档界面样式单文档界面样式(SDI - Single Document Interfac

15、e) 应用程序的主窗口内每次最多只能打开一个文档应用程序的主窗口内每次最多只能打开一个文档 多文档界面样式多文档界面样式(MDI - Multiple Document Interface) 应用程序的主窗口内可打开多个文档子窗口应用程序的主窗口内可打开多个文档子窗口 子窗口只能在父窗口内活动子窗口只能在父窗口内活动类似于资源管理器的界面类似于资源管理器的界面 窗口通常包括两部分：左边为一个树型的或者层次型的窗口通常包括两部分：左边为一个树型的或者层次型的视图，右边为内容显示区视图，右边为内容显示区 242. 多文档界面的特性多文档界面的特性 设计阶段特性设计阶段特性v子窗体是独立的，它不被限

16、制在父窗体的区域内。即，设子窗体是独立的，它不被限制在父窗体的区域内。即，设计阶段，子窗体、父窗体计阶段，子窗体、父窗体 (MDI窗体窗体)和普通窗体没区别和普通窗体没区别 运行期间特性运行期间特性 v子窗体的移动、改变大小等都被限制在其父窗体中子窗体的移动、改变大小等都被限制在其父窗体中v子窗体最小化时，图标在其父窗体中显示；父窗体最小化子窗体最小化时，图标在其父窗体中显示；父窗体最小化时，其所有子窗体也被最小化。时，其所有子窗体也被最小化。v子窗体最大化时，其标题与父窗体的标题合并，显示在父子窗体最大化时，其标题与父窗体的标题合并，显示在父窗体的标题条中。窗体的标题条中。v父窗体及其子窗体

17、都可以有各自的菜单，子窗体加载时覆父窗体及其子窗体都可以有各自的菜单，子窗体加载时覆盖其父窗体的菜单。盖其父窗体的菜单。 25 多文档界面的应用程序至少需要两个窗体：一个多文档界面的应用程序至少需要两个窗体：一个MDI窗窗体体(父窗体父窗体)和一个或若干个子窗体。在不同窗体中共用的过和一个或若干个子窗体。在不同窗体中共用的过程和变量一般应存放在标准模块中程和变量一般应存放在标准模块中 1. 创建创建MDI窗体窗体 添加添加MDI窗体：窗体：“工程工程添加添加MDI窗体窗体”，名称默认为，名称默认为MDIForm1设计设计MDI窗体：同普通窗体，如创建菜单栏、工具栏等。窗体：同普通窗体，如创建菜

18、单栏、工具栏等。2. 创建和设计创建和设计MDI子窗体子窗体打开一个现存的或添加一个普通窗体打开一个现存的或添加一个普通窗体将窗体的将窗体的MDIChild属性设置为属性设置为True设计子窗体：同普通窗体设计子窗体：同普通窗体263. 通过创建类的方法实现多个子窗体的创建通过创建类的方法实现多个子窗体的创建 例如，已创建了一个名为例如，已创建了一个名为Formchild的子窗体，通过的子窗体，通过 Dim NewDoc As New Formchild可创建可创建Formchild的一个对象的一个对象 多次调用以下过程，则产生多个子窗体多次调用以下过程，则产生多个子窗体(Formchild实

19、例实例) Dim N As Integer Public Sub FileNewProc() Dim NewDoc As New Formchild N = N + 1 NewDoc.Caption = DOC & N NewDoc.Show 显示子窗体显示子窗体 End Sub 27例：例：28(1) 添加添加MDI窗体窗体“工程工程添加添加MDI窗体窗体”，名称默认为，名称默认为MDIForm1“工程工程工程工程1 属性属性”，“启动对象启动对象”设为设为MDIForm1创建菜单栏创建菜单栏29(2) 创建创建MDI子窗体子窗体将原将原Form1窗体名称改为窗体名称改为Formchild将

20、窗体的将窗体的MDIChild属性设置为属性设置为True(3) 编写编写MDI窗体的程序代码窗体的程序代码301. 添加通用对话框控件添加通用对话框控件 (1) 添加到工具箱：添加到工具箱： “工程工程部件部件” (2) 添加到窗体添加到窗体 用用 在窗体任意位置在窗体任意位置 添加添加(无需调整大小无需调整大小)，名，名 称默认为称默认为CommonDialog1 利用通用对话框控件可创建六种标准对话框：打开、另利用通用对话框控件可创建六种标准对话框：打开、另存为、颜色、字体、打印、帮助存为、颜色、字体、打印、帮助 312. 通用对话框的基本属性和方法通用对话框的基本属性和方法 (1) A

21、ction功能属性功能属性(只能在程序中赋值只能在程序中赋值)：决定打开何种类型：决定打开何种类型 的对话框的对话框 0None无对话框显示无对话框显示 1Open 显示显示“打开打开”对话框对话框2Save As显示显示“另存为另存为”对话框对话框 3Color显示显示“颜色颜色”4Font显示显示“字体字体”对话框对话框 5Print显示显示“打印打印”对话框对话框6Help显示显示“帮助帮助”对话框对话框 例如，例如，CommonDialog1.Action=3 表示打开表示打开“颜色颜色”对话对话框框 (2) DialogTiltle属性：用于设置对话框的标题属性：用于设置对话框的标题

22、 32 (3) CancelError属性：确定在用户按下属性：确定在用户按下“取消取消”按钮时是否按钮时是否产产 生错误信息生错误信息(默认为默认为False) (4) 通用对话框的常用方法通用对话框的常用方法 ShowOpen显示显示“打开打开”对话框对话框ShowSave显示显示“另存为另存为”对话框对话框 ShowColor显示显示“颜色颜色”对话框对话框 ShowFont显示显示“字体字体”对话框对话框ShowPrint显示显示“打印打印”对话框对话框 ShowHelp显示显示“帮助帮助”对话框对话框 例如，例如，CommonDialog1. ShowColor 也表示打开也表示打开

23、“颜色颜色”对话对话框框331“打开打开”对话框（该对话框仅供一个选取文件的用户界面，对话框（该对话框仅供一个选取文件的用户界面， 而打开文件的具体操作还需编写代码）而打开文件的具体操作还需编写代码） 常用属性：常用属性：FileName：设置在：设置在“文件名称文件名称”文本框中所显示的文件名，文本框中所显示的文件名，或或 返回所选取的文件名返回所选取的文件名 FileTitle：返回或设置所要打开文件的文件名：返回或设置所要打开文件的文件名(不包含路径不包含路径) Filter：确定文件列表框中所显示的文件类型，例如：确定文件列表框中所显示的文件类型，例如 CommonDialog1.Fi

24、lter =Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：表示用户在文件类型列表框中选取的文件类型：表示用户在文件类型列表框中选取的文件类型 对上例设定的对上例设定的Filter，若选定文本文件，则，若选定文本文件，则FilterIndex值为值为2 InitDir：指定在：指定在“打开打开”对话框中显示的默认目录对话框中显示的默认目录 34例例10.1 程序要求：程序要求： 单击单击“编辑图片编辑图片”按钮，出现按钮，出现“打开打开”对话框；可调用对话框；可调用Windows的画图程序编辑选定

25、的的画图程序编辑选定的BMP位图文件。位图文件。单击单击“浏览图片浏览图片”按钮，可将选定图片显示在图像框中。按钮，可将选定图片显示在图像框中。 设计窗体设计窗体运行窗体运行窗体35程序代码：程序代码： 窗体窗体Load事件响应代码：事件响应代码：设置设置CommonDialog1的相关属性的相关属性 “编辑图片编辑图片”按钮的按钮的Click事件响应代码：事件响应代码：用用Shell函数调用函数调用Windows的画图程序编辑选定的的画图程序编辑选定的BMP位图文件位图文件“浏览图片浏览图片”按钮的按钮的Click事件响应代码：事件响应代码：利用利用LoadPicture函数把图片放入函数把

26、图片放入图像图像框中框中 362“另存为另存为”对话框对话框 为保存文件提供一个标准用户界面，供选择或键入文为保存文件提供一个标准用户界面，供选择或键入文件路径名。同样，储存文件的操作需要编写代码。件路径名。同样，储存文件的操作需要编写代码。 涉及的属性基本上与涉及的属性基本上与“打开打开”对话框相同。此外，还对话框相同。此外，还有一个有一个DefaultExt属性，表示所存文件的缺省扩展名。属性，表示所存文件的缺省扩展名。3“颜色颜色”对话框对话框 最重要的是最重要的是Color属性，用于返回或属性，用于返回或 设置选定的颜色。例如：设置选定的颜色。例如： Text1.ForeColor =

27、 CommonDialog1.Color 374“字体字体”对话框常用属性：对话框常用属性：Color：返回所选颜色：返回所选颜色FontName：返回所选字体的名称：返回所选字体的名称Fontsize：返回所选字体的大小：返回所选字体的大小FontBold、FontItalic、 FontStrikethru、FontUnderline： 这些属性的值取这些属性的值取True或或False，用于设定文本是否粗体、，用于设定文本是否粗体、斜体、加删除线或加下划线斜体、加删除线或加下划线 Min、Max：确定所能选择的字体大小的最小值和最大值：确定所能选择的字体大小的最小值和最大值(单单位为位为

28、Point) Flags：设置值及含义见教材表：设置值及含义见教材表10.3 注：显示注：显示“字体字体”对话框之前必须设置对话框之前必须设置Flags属性属性 385“打印打印”对话框对话框 “打印打印”对话框同样不能处理具体的打印作业，仅提供对话框同样不能处理具体的打印作业，仅提供一个标准打印界面供用户选择打印参数。所选参数存于各一个标准打印界面供用户选择打印参数。所选参数存于各属性中，比较常用的有：属性中，比较常用的有： Copies：复制份数：复制份数 FromPage：起始页号：起始页号 Topage：终止页号：终止页号 39例例10.2 一个简单的文本文件一个简单的文本文件 编辑程

29、序编辑程序 界面设计：界面设计：40事件响应代码：事件响应代码：416“帮助帮助”对话框：从磁盘中提取已制作好的帮助文件对话框：从磁盘中提取已制作好的帮助文件 Helpcommand：返回或设置帮助类型：返回或设置帮助类型(cdlHelpContents、cdlHelpContext等等) HelpFile：指定：指定Help文件的路径及其文件名称文件的路径及其文件名称 HelpKey：指定帮助信息的关键字：指定帮助信息的关键字 ，例如，例如 CommonDialog1.HelpCommand=vbHelpContentsCommonDialog1.HelpFile=”VB.HLP” Comm

30、onDialog1.HelpKey=”CommonDialog Control”CommonDialog1.Action=6 HelpContext：返回或设置所需要的帮助主题：返回或设置所需要的帮助主题 42例例10.3Private Sub Command1_Click() CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.HelpFile = C:WindowsHelpMspaint.HLP CommonDialog1.Action = 6End Sub431添加添加MMControl控件控件 “工程工程部件部件”“控件控

31、件”选项卡中选择选项卡中选择“Microsoft Multimidia Control6.0” 说明：说明：MMControl控件仅提供了对控件仅提供了对MCI设备的操作接口。而设备能设备的操作接口。而设备能否使用，则决定于该设备及相关驱动程序是否已安装。否使用，则决定于该设备及相关驱动程序是否已安装。MMControl控件支持的部分设备见教材表控件支持的部分设备见教材表10.5 MMControl控件控件Command属性使用的命令见教材表属性使用的命令见教材表10.6。例如，打开某一例如，打开某一MCI设备：设备： MMControl1.Command=”Open” 442打开打开MCI设

32、备设备 Notify属性：表示在下一命令完成时，是否产生属性：表示在下一命令完成时，是否产生Done事件事件Wait属性：指定属性：指定MMControl控件是否等到下一命令执行完毕，控件是否等到下一命令执行完毕，才将控制权还给应用程序才将控制权还给应用程序 Shareable属性：限制或允许其他应用程序或进程使用该设备属性：限制或允许其他应用程序或进程使用该设备DeviceType属性：指定属性：指定MCI设备的类型设备的类型如：如：MMControl1.Notify=False MMControl1.Wait=True MMControl1.Shareable=false MMContro

33、l1.DeviceType=”CDAudio” 453关闭关闭MCI设备设备 使用使用Close命令，例如：命令，例如： MMControl1.Command=”close” 4使用使用Error和和ErrorMessage属性属性 处理由该控件产生的错误，例如：处理由该控件产生的错误，例如： If Form1.MMControl1.Error Then MsgBox Form1.MMControl1.ErrorMessage.vbCritica End If 46例例10.4 用用Multimedia MCI控件播放控件播放CD 注：运行程序时，光注：运行程序时，光驱中应放有驱中应放有CD盘

34、片。盘片。播放播放CD暂停播放暂停播放47例例10.5 用用Multimedia MCI控件创建控件创建“媒体播放器媒体播放器” 48 49例例10.5窗体设计：窗体设计： 程序代码：程序代码：50“新建工程新建工程”对话框中选定对话框中选定“VB应用程序向导应用程序向导” ，然后，然后按向导提示操作按向导提示操作 注：通过向导生成的只是应用程序的窗体与框架代注：通过向导生成的只是应用程序的窗体与框架代码，许多功能还需要用户根据实际情况加以完善。码，许多功能还需要用户根据实际情况加以完善。 51u模块有三种类型：窗体、标准和类。模块有三种类型：窗体、标准和类。 u窗体模块窗体模块 （文件扩展名

35、为（文件扩展名为 .FRM ）它可以包含处理事件的过程、通用过程以及变量、常数、类型和它可以包含处理事件的过程、通用过程以及变量、常数、类型和外部过程的窗体级声明。如果要在文本编辑器中观察窗体模块，外部过程的窗体级声明。如果要在文本编辑器中观察窗体模块，则还会看到窗体及其控件的描述，包括它们的属性设置值。写入则还会看到窗体及其控件的描述，包括它们的属性设置值。写入窗体模块的代码是该窗体所属的具体应用程序专用的；它也可以窗体模块的代码是该窗体所属的具体应用程序专用的；它也可以引用该应用程序内的其它窗体或对象。引用该应用程序内的其它窗体或对象。 u标准模块标准模块 （文件扩展名为（文件扩展名为 .BAS）是应用程序内其它模块访问的过程和声明的容器。它们可以包含是应用程序内其它模块访问的过程和声明的容器。它们可以包含变量、常数