面向对象程序设计10.pptx

《面向对象程序设计10.pptx》由会员分享，可在线阅读，更多相关《面向对象程序设计10.pptx（45页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、会计学1面向对象程序设计面向对象程序设计10“通用对话框通用对话框”是一种是一种ActiveXActiveX控件控件，它随同，它随同VBVB提供提供给程序设计人员。启动给程序设计人员。启动VBVB后，在工具箱中没有对话后，在工具箱中没有对话框控件，需要把它加到工具箱中。框控件，需要把它加到工具箱中。控件添加步骤：控件添加步骤：(1)(1)打开打开“工程工程”菜单，选择菜单，选择“部件部件”命令。命令。(2)(2)打开打开“控件控件”选项卡，并选中选项卡，并选中“Microsoft Microsoft Common Dialog Control 6.0”Common Dialog Control

2、 6.0”复选框。复选框。(3)(3)单击单击“确定确定”按钮，控件出现在工具箱中按钮，控件出现在工具箱中 。10.1 通用对话框控件通用对话框控件 CommonDialog第1页/共45页ActiveXActiveX控控件：件：n n根据微软权威的软件开发指南根据微软权威的软件开发指南MSDN（Microsoft Developer Network）的定义，）的定义，ActiveX插件插件以前也叫做以前也叫做OLE（对象连接与嵌（对象连接与嵌入）控件入）控件OCX控件，它是一些软控件，它是一些软件组件或对象，可以将其插入到件组件或对象，可以将其插入到WEB网页或其它应用程序中。网页或其它应用

3、程序中。n nActiveX控件是可重用的软件组件。控件是可重用的软件组件。使用它可以很快地在网址、应用使用它可以很快地在网址、应用程序以及开发工具中加入特殊的程序以及开发工具中加入特殊的功能。功能。ActiveX控件的使用者可以控件的使用者可以无需知道这些组件是如何开发的，无需知道这些组件是如何开发的，便可以完成网页或应用程序的设便可以完成网页或应用程序的设计。计。第2页/共45页对话框类型对话框类型 ActionAction属性值属性值 方法方法 打开文件对话框打开文件对话框 1ShowOpenShowOpen 保存文件对话框保存文件对话框 2ShowSaveShowSave颜色对话框颜色

4、对话框 3ShowColorShowColor字体对话框字体对话框 4ShowFontShowFont打印对话框打印对话框 5ShowPrinterShowPrinter帮助对话框帮助对话框 6ShowHelpShowHelp通用对话框控件提供了六种类型的对话框通用对话框控件提供了六种类型的对话框，对话框的类型需要在，对话框的类型需要在程序中程序中设置，具体方法有两种：设置，具体方法有两种：(1)设置属性：设置属性：CommonDialog1.Action=n(2)执行方法：执行方法：CommonDialog1.ShowOpen通用对话框的类型设置通用对话框的类型设置第3页/共45页Commo

5、nDialogCommonDialog控件与控件与“打开打开/另存另存为为”对话框有关的属性对话框有关的属性：一、打开一、打开/另存为对话框另存为对话框(1)DialogTitle 属性属性设置对话框的标题，缺省设置对话框的标题，缺省时为时为“打开打开”或或“保存保存”。第4页/共45页(2)FileName属性属性设置设置或或返回返回要打开或保存的文件的路径及要打开或保存的文件的路径及文件名。例如：文件名。例如：H:exefiledb.exeH:exefiledb.exe(2)FileTitle(2)FileTitle属性属性用来用来返回返回所选择的文件名（不含路径）。所选择的文件名（不含路

6、径）。例如：例如：db.exe只能在程序中使用该属性。只能在程序中使用该属性。第5页/共45页(4)Filter(4)Filter属性属性指指定定在在对对话话框框中中显显示示的的文文件件类类型型。可可以以设设置置多多个个文文件件类类型型，供供用用户户在在对对话话框框的的“文文件件类类型型”的的下下拉拉列列表中选择。格式如下：表中选择。格式如下：对话框名对话框名.Filter=.Filter=描述符描述符1|1|过滤器过滤器1 1|描述符描述符2|2|过滤器过滤器2 2例如：例如：CommonDialog1.Filter=“All Files(*.*)|*.*|EXE文件文件(*.EXE)|*.

7、EXE|BAT文件文件(*.BAT)|(*.BAT)通配符和扩展名通配符和扩展名第6页/共45页(5)FilterIndex属性属性指指定定默默认认的的过过滤滤器器，其其设设置置值值为为一一个整数。个整数。Filter属性设置多个过滤器后，每个都有一个索引值。第一个过滤器的索引值为属性设置多个过滤器后，每个都有一个索引值。第一个过滤器的索引值为1，第二个过滤器的索引值为，第二个过滤器的索引值为2例如：例如：CommonDialog1.Filter=“All Files(*.*)|*.*|EXE文件文件(*.EXE)|*.EXE|BAT文件文件(*.BAT)|(*.BAT)CommonDialo

8、g1.FilterIndex=2第7页/共45页(6)CancelError(6)CancelError属性属性属性属性当当当当CancelErrorCancelError为为为为TrueTrue时，用户时，用户时，用户时，用户单击单击单击单击“取消取消取消取消”按钮，将产生一按钮，将产生一按钮，将产生一按钮，将产生一个错误，错误号为个错误，错误号为个错误，错误号为个错误，错误号为3275532755（cdlCancelcdlCancel）以便程序）以便程序）以便程序）以便程序判断。判断。判断。判断。当当当当CancelErrorCancelError为为为为FalseFalse时，单击时，单

9、击时，单击时，单击“取消取消取消取消”按钮，将不产生错误按钮，将不产生错误按钮，将不产生错误按钮，将不产生错误信息。信息。信息。信息。第8页/共45页补充：补充：Shell函数函数调用应用程序调用应用程序格式：格式：shell（命令字符串（命令字符串，窗口类型，窗口类型）(1)命令字符串：必须是可执行文件，即扩展名必须命令字符串：必须是可执行文件，即扩展名必须为为COM、EXE、BAT、PIF，其他不可，其他不可。注：注：目录及文件名不能包含汉字。目录及文件名不能包含汉字。(2)窗口类型：窗口类型：0、1、2、3、4、6 vbHide/0:窗口被隐藏，具有焦点窗口被隐藏，具有焦点 vbNorm

10、alFocus/1：窗口正常大小，具有焦点：窗口正常大小，具有焦点 vbMinimizeFocus/2：窗口最小化，具有焦点：窗口最小化，具有焦点 vbMaximizeFocus/3：窗口最大化，具有焦点：窗口最大化，具有焦点 vbNormalNoFocus/4：窗口正常，不具有焦点：窗口正常，不具有焦点 vbMinimizeNoFocus/6：窗口最小化，不具有焦：窗口最小化，不具有焦点点第9页/共45页Shell函数成功执行后，返回一个函数成功执行后，返回一个任务标识（任务标识（task id）且必须赋给一个变量且必须赋给一个变量 x=shell（”c:vb98myvb1.exe”,3）不

11、可以省略不可以省略“x=”Shell函数采用异步方式执行其他程序，即函数采用异步方式执行其他程序，即shell启动的启动的 程序可能还没有执行完，就已执行了程序可能还没有执行完，就已执行了Shell函数后面的语句函数后面的语句例如例如:Private Sub command1_click()m%=InputBox(shuru 13)Select Case m Case 1:x=Shell(H:exefiledb.exe,1)Case 2:x=Shell(H:exefilejxzd.exe,1)Case 3:x=Shell(H:exefilepz.exe,1)End SelectEnd Sub第

12、10页/共45页例例例例10.1 10.1 显示显示显示显示“打开打开打开打开”对话框并运行选定的可执行文对话框并运行选定的可执行文对话框并运行选定的可执行文对话框并运行选定的可执行文件。件。件。件。p257 p257(1)界面设计界面设计(2)程序代码程序代码第11页/共45页Private Sub Command1_Click()Dim RetVal CommonDialog1.CancelError=True On Error GoTo Er 错误捕捉，错误捕捉，参见第参见第13章章p326 以下设置过滤器以下设置过滤器 CommonDialog1.Filter=All Files(*.

13、*)|*.*|EXE文件文件(*.EXE)|*.EXE|BAT文件文件(*.BAT)|*.BAT CommonDialog1.FilterIndex=2 指定缺省过滤器指定缺省过滤器 CommonDialog1.ShowOpen 显示打开对话框显示打开对话框 以下调用以下调用Shell函数打开指定的文函数打开指定的文件件 RetVal=Shell(CommonDialog1.FileName,vbNormalFocus)Er:Exit SubEnd Sub第12页/共45页“颜色对话框颜色对话框”可以用来在调色板可以用来在调色板中选择颜色，或者创建并选定自定中选择颜色，或者创建并选定自定义颜色

14、。义颜色。CommonDialog1.Action=3 或或CommonDialog1.ShowColor10.1.2 颜色对话框颜色对话框第13页/共45页10.1.2 颜色对颜色对话框话框“颜色对话框颜色对话框”控件的重要属性：控件的重要属性：DialogTitle，CancelError，Color，Flags。Color:用来设置初始颜色。用来设置初始颜色。Flags:用来设置对话框的选项，其用来设置对话框的选项，其中，属性值为中，属性值为cdlCCRGBInit或或1时，使得时，使得Color属性定义的颜色在属性定义的颜色在首次显示对话框时作为选定颜色。首次显示对话框时作为选定颜色。

15、例如：例如：Private Sub Form_Load()CommonDialog1.ShowColor CommonDialog1.Color=&H000000FF&红色红色 CommonDialog1.Flags=1End Sub第14页/共45页例例例例10.210.2 显示显示显示显示“颜色颜色颜色颜色”对话框，并把用户选择的颜色设置成对话框，并把用户选择的颜色设置成对话框，并把用户选择的颜色设置成对话框，并把用户选择的颜色设置成窗体的背景色。窗体的背景色。窗体的背景色。窗体的背景色。Private Sub Command1_Click()CommonDialog1.CancelErr

16、or=True On Error GoTo ErrHandler CommonDialog1.Color=&HFF0000 兰色兰色 CommonDialog1.Flags=1 设置设置Flags属性属性 CommonDialog1.ShowColor Color属性值作为窗体背景颜色属性值作为窗体背景颜色 Form1.BackColor=CommonDialog1.ColorErrHandler:Exit SubEnd Sub第15页/共45页10.1.3 字体对话框字体对话框“字体字体字体字体”对话框用来设定字体大小、样式、颜色。对话框用来设定字体大小、样式、颜色。对话框用来设定字体大小、

17、样式、颜色。对话框用来设定字体大小、样式、颜色。CommonDialog1.Action=4 CommonDialog1.Action=4 或或或或CommonDialog1.CommonDialog1.ShowFontShowFontShowFontShowFont第16页/共45页通用对话框的属性设置：通用对话框的属性设置：(1)Color属性：设定字体颜色的初始值。为了使用属性：设定字体颜色的初始值。为了使用此属性，必须先将此属性，必须先将Flags属性设置为属性设置为cdlCFEffects/256(允许中划线、下划线和颜色）。允许中划线、下划线和颜色）。(2)FontName属性：字

18、体的名称属性：字体的名称 (3)FontBold属性：粗体属性：粗体(4)FontItalic属性：斜体属性：斜体(5)FontStrickethru属性：删除线属性：删除线(6)FontUnderline属性：下划线属性：下划线(7)FontSize属性：字体大小属性：字体大小第17页/共45页为为了了显显示示“字字体体”对对话话框框，Flags属属性性设设置置为为下述下述VB常数之一：常数之一：cdlCFScreenFonts（屏幕支持的字体）（屏幕支持的字体）cdlCFPrinterFonts（打印机支持的字体）（打印机支持的字体）cdlCFBoth（即可以是屏幕字体又可以是打（即可以是

19、屏幕字体又可以是打印机字体）印机字体）例例10.3 初始化并显示初始化并显示“字体字体”对话框，然后根对话框，然后根据用户的选择设置文本框的字体属性据用户的选择设置文本框的字体属性。第18页/共45页Private Sub Command1_Click()CommonDialog1.CancelError=True On Error GoTo ErrHandler 设置设置Flags属性属性 CommonDialog1.Flags=cdlCFBoth Or cdlCFEffects 设置设置“字体字体”对话框的初始对话框的初始值值 CommonDialog1.FontName=隶书隶书 Com

20、monDialog1.FontSize=50 CommonDialog1.FontBold=True CommonDialog1.FontItalic=True CommonDialog1.FontUnderline=True CommonDialog1.FontStrikethru=True CommonDialog1.Color=RGB(255,0,0)第19页/共45页显示字体对话框显示字体对话框 CommonDialog1.ShowFont 根据用户的选择设置文本的属性根据用户的选择设置文本的属性 Text1.FontName=CommonDialog1.FontName Text1.

21、FontSize=CommonDialog1.FontSize Text1.FontBold=CommonDialog1.FontBold Text1.FontItalic=CommonDialog1.FontItalic Text1.FontUnderline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.ColorErrHandler:Exit SubEnd Sub第20页/共45页 10.1.4 打印对话框打印对话框通用

22、对话框的属性设置通用对话框的属性设置/返返回：回：(1)Copies属性：返回属性：返回/设置设置要打印的份数。要打印的份数。(2)FromPage属性：返回属性：返回/设置打印的起始页。设置打印的起始页。(3)ToPage属性：返回属性：返回/设置设置打印的终止页。打印的终止页。(4)Orientation属性：返回属性：返回/设置打印的方向设置打印的方向。第21页/共45页Private Sub Command1_Click()Dim BeginPage,EndPage,NumCopies,k CommonDialog1.CancelError=True On Error GoTo out

23、 CommonDialog1.ShowPrinter 从对话框中获取用户选定的信息：从对话框中获取用户选定的信息：BeginPage=CommonDialog1.FromPage EndPage=CommonDialog1.ToPage NumCopies=CommonDialog1.Copies For k=1 To NumCopies 在此放置打印代码在此放置打印代码 Next k out:Exit SubEnd Sub第22页/共45页需要设置的属性：需要设置的属性：(1)HelpCommand属属性性：设设置置帮帮助助显显示示的的类类型型，一一般般为为VB常数常数(2)HelpFile

24、属性：指定帮助文件属性：指定帮助文件 10.1.5 帮助对话框帮助对话框第23页/共45页10.2 菜单设计菜单设计 对于对于对于对于VBVB应用程序，当操作比较简单时，一般通应用程序，当操作比较简单时，一般通应用程序，当操作比较简单时，一般通应用程序，当操作比较简单时，一般通过控件来执行相应的功能；而当要完成较复杂的操过控件来执行相应的功能；而当要完成较复杂的操过控件来执行相应的功能；而当要完成较复杂的操过控件来执行相应的功能；而当要完成较复杂的操作时，使用菜单具有十分明显的优势。作时，使用菜单具有十分明显的优势。作时，使用菜单具有十分明显的优势。作时，使用菜单具有十分明显的优势。10.2.

25、1 菜单概述菜单概述1.菜单基本类型：下拉菜单和弹出式菜单。菜单基本类型：下拉菜单和弹出式菜单。2.下拉菜单有关术语：下拉菜单有关术语：主菜单主菜单(通常为一行通常为一行)，菜单标题；，菜单标题；下拉菜单列表框，菜单项，快捷下拉菜单列表框，菜单项，快捷键键第24页/共45页启动菜单编辑器常用的方法：启动菜单编辑器常用的方法：选择选择“工具工具”菜单中的菜单中的“菜单编辑器菜单编辑器”选项。选项。单击按钮栏中的单击按钮栏中的“菜单编辑器菜单编辑器”按钮。按钮。在在要要建建立立菜菜单单的的窗窗体体上上单单击击鼠鼠标标右右键键，将将弹弹出一个菜单，选择出一个菜单，选择“菜单编辑器菜单编辑器”。10.

26、2.2 菜单菜单编辑器编辑器菜菜单单编编辑辑器器是是对对菜菜单单控控件件的的属性进行设置的专用对话框。属性进行设置的专用对话框。第25页/共45页菜单编辑器窗口分为三个部分菜单编辑器窗口分为三个部分1菜单项属性区（数据区）菜单项属性区（数据区）标标题题（CaptionCaption）:输输入入所所建建立菜单的标题。立菜单的标题。名称名称(Name)Name):是一文本框，是一文本框，输输入入所所建建菜菜单单的的名名称称，该该名名称称不不在在菜菜单单中中显显示示的的，而而是在代码中引用。是在代码中引用。索索引引（IndexIndex）：用用来来创创建建菜菜单单控控件件数数组组，即即所所有有的菜单

27、名称都相同，用不同的的菜单名称都相同，用不同的IndexIndex属性来区分。属性来区分。快捷键快捷键：是一列表框，用来为菜单项设置快捷键。：是一列表框，用来为菜单项设置快捷键。第26页/共45页帮助上下文帮助上下文帮助上下文帮助上下文IDID：是一文本框，取值为数值。用来：是一文本框，取值为数值。用来：是一文本框，取值为数值。用来：是一文本框，取值为数值。用来调用为菜单项准备的帮助文件的标题页。用户按调用为菜单项准备的帮助文件的标题页。用户按调用为菜单项准备的帮助文件的标题页。用户按调用为菜单项准备的帮助文件的标题页。用户按下下下下F1F1键，则该数值用来定位和显示帮助文件。键，则该数值用来

28、定位和显示帮助文件。键，则该数值用来定位和显示帮助文件。键，则该数值用来定位和显示帮助文件。协调位置：是一个列表框，用来确定菜单显示窗协调位置：是一个列表框，用来确定菜单显示窗协调位置：是一个列表框，用来确定菜单显示窗协调位置：是一个列表框，用来确定菜单显示窗体中的位置。体中的位置。体中的位置。体中的位置。复选（复选（Checked）：当）：当选择该项时，可以在菜单项选择该项时，可以在菜单项旁加上指定的记号旁加上指定的记号(如如）；该项类似一个；该项类似一个开关项开关项。第27页/共45页有有效效（EnabledEnabled）：默默认认情情况况下下，该该属属性性被被设设置置为为TrueTru

29、e，表表明明菜菜单单项项可可用用。如如果果取取消消选选择择，即即设设置置为为FalseFalse，相应的菜单项会，相应的菜单项会“灰化灰化”，不响应用户操作。，不响应用户操作。可见（可见（VisibleVisible）：决定菜单项是否可见）：决定菜单项是否可见 显示窗口列表：在多文档显示窗口列表：在多文档应用程序中，当该选项设置应用程序中，当该选项设置为为“On”(框内有框内有“”)，将显示当前打开的一系列子将显示当前打开的一系列子窗口列表窗口列表。第28页/共45页2菜单列表框区（编辑区）菜单列表框区（编辑区）用来对输入的菜单项进行调整。用来对输入的菜单项进行调整。左、右箭头左、右箭头:用来

30、确定菜单项的层次。用来确定菜单项的层次。上、下箭头上、下箭头:用来移动菜单项在菜单中的位置。用来移动菜单项在菜单中的位置。下一个下一个:将菜单列表区中的光标移到下一个菜单项。将菜单列表区中的光标移到下一个菜单项。插入：用来插入新的菜单项。插入：用来插入新的菜单项。删除：删除条形光标所在的菜单项。删除：删除条形光标所在的菜单项。3.3.菜单项列表区菜单项列表区输入的菜单项全在这里显输入的菜单项全在这里显示。示。第29页/共45页10.2.3 用菜单编辑器建用菜单编辑器建立下拉菜单立下拉菜单例例1 p265：设计一个设置字体属性的下拉菜单，通：设计一个设置字体属性的下拉菜单，通过该菜单可以改变窗体

31、上标签控件的显示样式。过该菜单可以改变窗体上标签控件的显示样式。第30页/共45页1.1.界面设计界面设计界面设计界面设计(1)(1)新建窗体、标签。新建窗体、标签。新建窗体、标签。新建窗体、标签。(2)利用菜单编辑器建立菜单。利用菜单编辑器建立菜单。菜单项标题为菜单项标题为“-”(减号减号)时，表示显示雕刻线。时，表示显示雕刻线。每一个每一个“菜单项菜单项”是一个是一个独立的控件，有对应的事件。独立的控件，有对应的事件。第31页/共45页3.编写代码编写代码 p265.vbp2.设置标签的属性设置标签的属性Name:lblShowCaption:“字体控制示例字体控制示例”第32页/共45页

32、Private Sub mnuFontBold_Click()Private Sub mnuFontBold_Click()粗体粗体粗体粗体 LblShow.FontBold=Not LblShow.FontBold LblShow.FontBold=Not LblShow.FontBold mnuFontBold.Checked=LblShow.FontBoldmnuFontBold.Checked=LblShow.FontBoldEnd SubEnd SubPrivate Sub mnuFontItalic_Click()Private Sub mnuFontItalic_Click()斜

33、体斜体斜体斜体 LblShow.FontItalic=Not LblShow.FontItalic LblShow.FontItalic=Not LblShow.FontItalic mnuFontItalic.Checked=LblShow.FontItalic mnuFontItalic.Checked=LblShow.FontItalic 逻辑值逻辑值逻辑值逻辑值End SubEnd Sub第33页/共45页Private Sub mnuFontUnderline_Click()Private Sub mnuFontUnderline_Click()下划线下划线下划线下划线 LblSho

34、w.FontUnderline=Not lShow.FontUnderline LblShow.FontUnderline=Not lShow.FontUnderline mnuFontUnderline.Checked=LblShow.FontUnderlinemnuFontUnderline.Checked=LblShow.FontUnderlineEnd SubEnd Sub第34页/共45页弹出式菜单是独立于菜单栏而显示在窗体上的浮弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。动菜单。步骤：步骤：(1)用菜单编辑器建立菜单。用菜单编辑器建立菜单。(2)用用PopupMenu方法弹出

35、显示：方法弹出显示：（必须把主菜单项的（必须把主菜单项的“可见可见”属性设为属性设为False）10.2.4 建立弹出建立弹出式菜单式菜单第35页/共45页PopupMenu格式：格式：对象对象.PopupMenu 菜单名菜单名,Flags,x,y,BoldCommand 对象：窗体名，缺省为当前活动窗口。对象：窗体名，缺省为当前活动窗口。菜单名：在菜单编辑器中定义的菜单名：在菜单编辑器中定义的主菜单主菜单项名。项名。X、Y：式菜单在窗体上的显示位置：式菜单在窗体上的显示位置(与与Flags配合使用配合使用)。BoldCommand：指定在弹出式菜单中：指定在弹出式菜单中用粗体显示的菜单项，用

36、粗体显示的菜单项，只能有一个菜单项名被加粗。只能有一个菜单项名被加粗。Flags：弹出式菜单的位置和性能。：弹出式菜单的位置和性能。第36页/共45页例例例例2 2：设计一个设置字体属性的：设计一个设置字体属性的：设计一个设置字体属性的：设计一个设置字体属性的弹出式菜单弹出式菜单弹出式菜单弹出式菜单，通过该，通过该，通过该，通过该菜单可以改变窗体上标签控件的显示样式。菜单可以改变窗体上标签控件的显示样式。菜单可以改变窗体上标签控件的显示样式。菜单可以改变窗体上标签控件的显示样式。P P268_1.vbp268_1.vbp1.1.界面设计界面设计界面设计界面设计(1)(1)新建窗体、标签。（与例

37、新建窗体、标签。（与例新建窗体、标签。（与例新建窗体、标签。（与例1 1同）同）同）同）(2)利用菜单编辑器建立菜单。利用菜单编辑器建立菜单。与例与例1类似，注意类似，注意主菜单项的主菜单项的“可见可见”属性设为属性设为False。Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then 检查是否单击了鼠标右键检查是否单击了鼠标右键 PopupMenu mnuFont 把字体菜单显示为一个弹出式菜单把字体菜单显示为一个弹出式菜单 End IfEnd S

38、ub第37页/共45页Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Dim xloc,yloc 设置设置X变量和变量和Y变量到窗体中心变量到窗体中心 xloc=ScaleWidth/2 yloc=ScaleHeight/2 显示弹出式菜单显示弹出式菜单 PopupMenu mnuFont,vbPopupMenuCenterAlign Or vbPopupMenuRightButton,xloc,yloc例例例例3 3：在例：在例：在例：在例2 2的基础上，设计一个上边框在窗

39、体的基础上，设计一个上边框在窗体的基础上，设计一个上边框在窗体的基础上，设计一个上边框在窗体的中心的的中心的的中心的的中心的弹出式菜单弹出式菜单弹出式菜单弹出式菜单。P268_2.vbpP268_2.vbp第38页/共45页对话框类型对话框类型 ActionAction属性值属性值 方法方法 打开文件对话框打开文件对话框 1ShowOpenShowOpen 保存文件对话框保存文件对话框 2ShowSaveShowSave颜色对话框颜色对话框 3ShowColorShowColor字体对话框字体对话框 4ShowFontShowFont通用对话框控件提供了六种类型的对话框通用对话框控件提供了六种

40、类型的对话框类型设置方法：类型设置方法：执行方法：执行方法：CommonDialog1.ShowOpen或设置或设置Action属性：属性：通用对话框的类型设置通用对话框的类型设置复习复习10.1 通用对话框控件通用对话框控件第39页/共45页 下拉菜单下拉菜单下拉菜单下拉菜单 弹出式菜单弹出式菜单弹出式菜单弹出式菜单 动态菜单动态菜单动态菜单动态菜单10.2 菜单设计菜单设计第40页/共45页菜单项的增减是通过控件数组来实现的。菜单项的增减是通过控件数组来实现的。例例10.6 编写程序，实现菜单的增减编写程序，实现菜单的增减 操作。操作。Exam106.vbp10.2.5 10.2.5 动态

41、菜单（自动增减菜单项动态菜单（自动增减菜单项 ）第41页/共45页1.利用菜单编辑器利用菜单编辑器设计初始菜单设计初始菜单标标 题题名名 称称内缩内缩符号符号有有 效效可可 见见下下 标标动态数组动态数组mnuMain无无TrueTrue无无Add MenumnuAdd1TrueTrue无无Delete Menu mnuDelete1FalseTrue无无-bar1TrueTrue无无(空白空白)mnuTest(数组数组)1TrueFalse0P270.vbp第42页/共45页Dim MenuCounter As IntegerDim MenuCounter As IntegerPrivate

42、 Sub mnuAdd_Click()Private Sub mnuAdd_Click()msg$=Enter the menu title:msg$=Enter the menu title:temp$=InputBox$(msg$,Add Menu)temp$=InputBox$(msg$,Add Menu)MenuCounter=MenuCounter+1 MenuCounter=MenuCounter+1 Load mnuTest(MenuCounter)Load mnuTest(MenuCounter)产生一个新数产生一个新数产生一个新数产生一个新数组元素组元素组元素组元素 mnuT

43、est(MenuCounter).Caption=temp$mnuTest(MenuCounter).Caption=temp$mnuTest(MenuCounter).Visible=True mnuTest(MenuCounter).Visible=True mnuDel.Enabled=True mnuDel.Enabled=TrueEnd SubEnd Sub2.编写程序代码编写程序代码第43页/共45页Private Sub mnuDel_Click()Unload mnuTest(MenuCounter)删除删除最后元素最后元素 MenuCounter=MenuCounter-1 If MenuCounter=0 Then mnuDel.Enable=FalseEnd Sub第44页/共45页