VB教程 用户界面设计

1、菜单设计 通用对话框设计 工具栏设计 键盘与鼠标事件 多重窗体与多模块程序设计,本章要求：,第10章 用户界面设计,本章重点：,本章难点：,通用对话框的使用、菜单的建立与使用 键盘与鼠标事件,通用对话框的使用、动态菜单、多模块设计,10.1 菜单设计,windows环境下的应用程序一般为用户提供三种菜单：窗体控制菜单、下拉菜单与快捷菜单。,一. 启动菜单编辑器： 有三种方法: 1 单击工具栏菜单图标 2 工具/菜单编辑器 (ctrl+e) 3 窗体上快捷菜单 菜单编辑器 菜单编辑器操作界面如右所示。,10.1.1菜单编辑器,菜单编辑器介绍：,1. 标题(caption)： 2. 名称(name

2、)： 3. 快捷键(shortcut)： 4. 下一个(next)： 5. 和按钮 6. 插入(insert)按钮： 7. 删除(delete)按钮： 8 和按钮： 10. 复选(checked)检查框： 10. 有效(enabled)检查框： 11. 显示窗口列表(window list)检查框：,菜单的主要属性 1. 标题(caption)：在窗口上显示，例如：输入&file，显示为： file，热键：alt+f 2. 名称(name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(shortcut)：下拉列表框 4 下一个(next)： 设置下一个菜单项。 5. 和按钮：“” 下一级

3、菜单项；“”上一级菜单项。 6. 插入(insert)按钮：插入菜单项 7. 删除(delete)按钮：删除菜单项 8. 和按钮： 改变菜单项位置。 10. 复选(checked)检查框：菜单项为选定项。 10. 有效(enabled)检查框：true：菜单项可选；false：不可选。 11. 显示窗口列表(window list)检查框：,1设计下拉菜单 2设计子菜单或改变子菜单级别 3为菜单项分组 菜单名用减号“-” 4为菜单项指定访问键和快捷键 与命令按钮设置访问键相同。 5为菜单项加上复选标记 6禁止使用菜单项 在程序代码中可以通过程序代码： 菜单名.enabled=false 7菜单

4、项的增减,菜单设计的常用的几项操作：,10.1.2 下拉式菜单,10.1 菜单设计,在下拉式菜单中，一般只需要对下拉菜单的最低级菜单项编写单击事件代码，如果对一个有下级菜单的菜单项编写了单击事件，则在执行下一级菜单时，该菜单程序将先执行。,在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜单栏包括一个或多个选择项，称为菜单标题。,菜单控件（对象）只有一个事件单击事件（click()）,一. 设计下拉式菜单的步骤： (1)新建一个窗体，并设计用户界面。 (2) 利用菜单编辑器设计各菜单项。 (3)编写每个菜单项的事件过程。 (4)运行调试各菜单命令。,二、下拉式菜单设计举例,【例10.1】 设

5、计菜单程序，通过菜单控制标签中文字的字体，字型等，程序运行界面如图10.3所示。当用户选择某一菜单项时执行相应的命令功能。,图10.3 程序运行界面,设计步骤如下： 1. 界面设计 在窗体上添加一个frame1和label1，用于显示文字信息。启动菜单编辑器，所要建立的菜单中各菜单项的属性设置如表10.1所示，菜单编辑器中各项设置如图10.4所示，对每一个菜单项输入标题、名称和选择相应的快捷键。,表10.1 菜单项属性设置,（2）编写菜单项代码,private sub form_load() label1.fontsize = 16 label1.caption = 长亭外古道边 + chr(

6、13) + chr(10) + 芳草碧连天 + chr(13) + chr(10) + 问君此去几时来 + chr(13) + chr(10) + 来时莫徘徊 end sub,private sub songti_click() label1.fontname = 宋体 end sub,private sub heiti_click() label1.fontname = 黑体 end sub,private sub kaiti_click() label1.fontname = 楷体_gb2312 end sub,private sub fontstyle_click(index as in

7、teger) fontstyle(index).checked = not fontstyle(index).checked select case index case 0 label1.fontbold = fontstyle(index).checked case 1 label1.fontitalic = fontstyle(index).checked case 2 label1.fontunderline = fontstyle(index).checked end select end sub,字型下拉菜单代码如下：,弹出式菜单是独立于菜单栏显示在窗体或指定控件上的浮动菜单，菜单

8、的显示位置与鼠标当前位置有关。实现步骤如下： 1. 在菜单编辑器中建立该菜单。 2.设置其顶层菜单项（主菜单项）的visible属性为false（不可见）。 3.在窗体或控件的mouseup或mousedown事件中调用popupmenu方法显示该菜单。popupmenu的使用方法为： popupmenu ,flags,x,y,boldcommand,10.1.3 弹出式菜单,其中： 关键字“popupmenu”可以前置窗体名称，但不可前置其他控件名称。 是指通过菜单编辑器设计的、至少有一个子菜单项的菜单名称（name）。 flags参数为常数，用来定义显示位置与行为,其取值见表10.2,10

9、.1.3 弹出式菜单设计,表10.2 flags参数值表,boldcommand参数设置菜单项可以粗体显示。,一般的弹出式菜单是在右击时弹出，所以popupmenu方法一般是放在对象的mousedown事件过程中，根据按下的是鼠标左键还是右键来决定是否弹出菜单。,例10.2】 为【例10.1】添加一个标签的弹出式菜单，该菜单包含有“10”、“12”和“14”3个菜单项，如图10.5所示。单击相应的菜单项后可以改变标签中文字的字体大小。,弹出式式菜单设计举例,图10.5 弹出式菜单,private sub label1_mousedown(button as integer, shift as

10、integer, x as single, y as single) if button = 2 then 按下鼠标右键 form1.popupmenu fsize, 4 or 2 end if end sub private sub size_click(index as integer) select case index case 0 label1.fontsize = 10 case 1 label1.fontsize = 12 case 2 label1.fontsize = 14 end select end sub,用“菜单编辑器”对话框创建好的菜单，在程序运行过程中并非就一成不

11、变。用户可以根据实际运行情况动态地调整和控制菜单的使用，给菜单增加一些灵活性。如当某菜单项执行的操作不适合当前环境时，可以暂时使其失效或将其隐藏起来。当需要时也可以添加或删除某菜单项。 隐藏或显示菜单项并不能真正地改变菜单的数量，要使菜单项真正地、动态地增减（从内存中），则必须使用菜单控件数组实现。运行时通过load语句增加新的菜单控件，使用unload语句将其删除。,10.1.4 动态菜单,load 控件数组名(index) unload 控件数组名(index),10.1. 4 动态菜单,【例10.3】 设计如下程序，当文本框中没有任何文字时，“字体大小”菜单中的各项均变为灰色显示，表示当

12、前不可用；当用户在文本框中输入了文字后选择某菜单项后，可将文字大小设为对应值并在当前菜单项的前面加一个“”，如图10.6（a）、图10.6（b）所示。如果用户选择了“14”菜单项，则“10”菜单项将隐藏，并且添加菜单项“16”，其功能与其他菜单项相同，当用户重新选择了“12”菜单项时，“16”菜单项将被删除，并恢复菜单项“10”的可见性，即文字字号最大值为16，最小为10，菜单中只能同时存在三个选项，如图10.6（c）、图10.6（d）所示。,10.2 通用对话框,工程/部件,选定控件标签,选定microsoft commdialog control 6.0,commondialog控件不是标

13、准控件，是一种activex控件，位于microsoft common dialog control 6.0部件中。,确定,通用对话框图标,10.2.1 通用对话框的基本属性和方法,commondialog控件的基本属性 （1） action属性： 该属性决定打开何种类型的标准对话框，其取值如表10.4所示。该属性不能在属性窗口中设置，只能在程序中赋值。,表10.4 打开通用对话框的方法与action属性设置,（2）name属性：commondialog控件的名称属性。 （3）cancelerror属性：多数对话框都有“取消”按钮，用于向应用程序表示用户想取消当前操作。cancelerror属

14、性的作用是向应用程序报告用户取消当前的操作，通过一个错误报告给应用程序。如果该属性设置为true，在程序的运行阶段，用户选择“取消”操作时，出现错误提示。默认是false，不出现错误提示。对话框打开后，为了防止用户没有输入任何信息便使用取消操作，则可用此属性设置出错警告。 （4）flags属性：用于设置对话框外观及工作方式。对于每种对话框都有许多不同的设置值。 在通用对话框的使用过程中，每种对话框都有自己的特殊属性。commondialog控件的属性可以在属性窗口中设置，也可在其“属性页”对话框中设置。在窗体中的commondialog控件上右击，在弹出的快捷菜单中选择“属性”命令，打开“属性

15、页”对话框，该对话框中有五个选项卡，分别可对不同类型的标准对话框设置属性。,在设计时，可以通过属性窗口设置通用对话框的属性设置控件属性，也可以使用通用对话框的属性页设置相关属性。,2commondialog控件的方法 在程序中要使用commondialog控件的标准对话框，除了使用commondialog控件的action属性设置对话框的类型外，还可以使用commondialog控件的方法。这些方法如表10.4所示。 例如：commondialog1.action=1或者commondialog1.showopen,10.2.2 “打开” 对话框,cancelerror：返回或设置一个值，该值

16、指示当单击“取消”按钮时是否出错。 defaultext：用于设置或返回对话框默认的文件扩展名。该属性值是一个文件扩展名字符串，如“*.txt”、“*.doc”等。当保存一个没有指定扩展名的文件时，系统自动添加默认扩展名。 dialogtitle：返回或设置对话框的标题。 filename：返回或设置用户所选择的文件的完整路径和文件名称。 filetitle：返回用户选择文件的文件名称，包括扩展名，但不包括路径。,使用通用对话框控件的showopen方法，或将action属性赋值为1，可以在运行时显示“打开”对话框。需要设置以下属性：,6. filter：设置或返回在对话框的文件类型列表框中所

17、显示文件类型。该属性值可以是一组元素或用“|”符号分开的分别表示不同类型文件的多组元素组成。例如，如果要在“文件类型”列表框中显示下列三种文件类型以供用户选择。 word文档(*.doc) 扩展名为doc的word文件 文本文件(*.txt) 扩展名为txt的文本文件 all files(*.*) 所有文件 那么filter属性就应该设为： word文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件|*.* 7. filterindex：返回或设置“打开”或“另存为”对话框中一个默认的过滤器。 8. initdir：返回或设置“打开”对话框中的初始目录。 9. max

18、filesize：返回或设置使用 commondialog 控件时，被打开的文件名的最大尺寸。,10.2.2 “打开” 对话框,上述属性若在程序中设置，都必须放在使用action属性或showopen和showsave方法调用的“打开”或“另存为”对话框语句之前。否则起不到其功能,【例10.4】 编写一个简单的文本文件编辑程序，如图10.9所示，文件的内容显示在上面的文本框中。从左到右共6个命令按钮依次按约定命名。下面列出了command1事件过程的程序代码，其他的事件过程在以后的各节中分别给出。,10.2.2 “打开” 对话框,图10.9 通用对话框示例,程序运行时，当commondialo

19、g控件的action属性为2或者调用showsave方法时，系统就会弹出“另存为”对话框，它为用户在存储文件时提供了一个标准的用户界面。实际上“另存为”对话框和“打开”对话框涉及的属性基本一样，独有一个属性defaultext，表示默认扩展名。,10.2.3 “另存为” 对话框,【例10.5】 为例10.4中的“另存为”命令按钮(command2)编写事件过程，把文本框（text1）中的内容写入一个文本文件。,颜色对话框是当action值为3时或者调用showcolor方法时，系统就会弹出“颜色”对话框，为用户提供了颜色选择器，如右图。 重要属性 color：用来返回或设置选定的颜色。,10.

20、2.4 “颜色”对话框,【例10.6】 为例10.4中的“颜色”命令按钮(command3)编写事件过程，用“颜色”对话框设置文本框的前景颜色。 “颜色”按钮的单击事件过程如下： private sub command3_click() commondialog1.action=3 text1.forecolor=commondialog1.color end sub,10.2.5 “字体”对话框,字体对话框是action为4时的通用对话框，如下图所示，提供用户选择字体、字号及字体样式等。 字体对话框重要的属性有：color, fontname, fontsize, fontbold font

21、italic , fontstrikethru, fontunderline, max等.,flags属性：设置所显示的字体类型，数据类型为long。 注意 在显示“字体”对话框前，必须先将 flags 属性设置为 cdlcfscreenfonts，cdlcfprinterfonts，或cdlcfboth。否则，会发生字体不存在的错误。 “字体”对话框的flags属性设置值,10.2.5 “字体”对话框,【例10.7】 为例10.4中的“字体”命令按钮(command4)编写事件过程，设置文本框的字体。 “字体”按钮的单击事件过程如下： private sub command4_click()

22、 commondialog1.flags = cdlcfscreenfonts or cdlcfeffects commondialog1.max = 100 commondialog1.min = 1 commondialog1.showfont commondialog1.action =4 text1.fontname = commondialog1.fontname text1.fontsize = commondialog1.fontsize text1.fontbold = commondialog1.fontbold text1.fontitalic = commondialog

23、1.fontitalic text1.fontstrikethru = commondialog1.fontstrikethru text1.fontunderline = commondialog1.fontunderline text1.forecolor = commondialog1.color end sub,程序运行时，当commondialog控件的action属性为5或者调用showprinter方法时，系统就会弹出“打印”对话框，它是一个设置选择打印参数的界面，如图10.12所示。,10.2.6 “打印”对话框,图10.12 “打印”对话框,重要属性： copies：返回或设

24、置需要打印的份数。 max、min：返回或设置打印范围允许的最大和最小值。 frompage、topage：返回或设置起始页号和终止页号。当 cdlpdpagenums标志被设置时才有效。,【例10.8】 为例10.4中的“打印”命令按钮(command5)编写事件过程，用“打印”对话框打印文本框（text1）中的内容。 “打印”按钮的单击事件过程如下： private sub command5_click() dim i as integer commondialog1.showprinter commondialog1.action =5 for i = 1 to commondialog

25、1.copies printer.print text1.text next i printer.enddoc 结束打印 end sub,10.2.7 “帮助”对话框,程序运行时，当commondialog控件的action属性为6或者调用showhelp方法时，系统就会弹出“帮助”对话框，它可以为用户制作应用程序的联机帮助。“帮助”对话框本身不能建立应用程序的帮助文件，它只能将已建好的帮助文件从磁盘中提取出来，并与界面建立连接，从而达到显示并检索帮助信息的目的。使用showhelp方法前，必须将commondialog控件的helpfile和helpcommand属性设置为与其相应的一个常数

26、或值，否则，winhlp32.exe就不能显示帮助文件。 对于“帮助”对话框，有以下几个重要属性： helpcommand：返回或设置需要的联机帮助的类型。具体设置请参阅vb帮助系统 helpfile：确定microsoft windows help文件的路径和文件名，应用程序使用这个文件显示help或联机文档。 helpkey：返回或设置标识请求的帮助主题的关键字。 helpcontext：该属性与helpcommand属性一起使用（设置helpcommand=cdlhelpcontext），返回或设置请求的帮助主题的上下文 id以指定要显示的帮助主题。,【例10.9】 为例10.4中的“帮

27、助”命令按钮(command6)编写事件过程，通过“帮助”对话框来显示记事本程序的帮助文件。 “帮助”按钮的单击事件过程如下： private sub command6_click() commondialog1.helpcommand = cdlhelpcontents commondialog1.helpfile = c:windowshelpnotepad.hlp commondialog1.showhelp end sub,工具栏的制作有两种方法： 1. 是使用命令按钮和图形框来手工制作 2. 使用toolbar控件和imagelist控件来制作。 前一种方法比较繁琐，较少使用。后一种

28、方法较容易，在vb中常用后一种方法。toolbar控件和imagelist控件并没有在工具箱里，属于activex控件，需要为工程加载“microsoft windows common controls 6.0”控件。加载成功后控件工具栏如图10.13所示。,10.3 工具栏,imagelist控件不单独使用，专门为其它控件提供图像库.,使用方法如下： 在窗体中添加一个imagelist控件。其大小固定，运行时不可见。 右击imagelist控件，选择“属性”，打开“属性页”对话框，如图所示。 选择“图像”选项卡，单击“插入图片”按钮，逐个向imagelist控件中加入图片；如果需要删除多余的

29、图片，选中后点击“删除图片”按钮。,10.3.1 imagelist控件,使用toolbar控件具体创建一个工具栏，首先在窗体中添加一个toolbar控件，设置toolbar控件的align属性以控制工具栏在窗体中的位置。右击选择“属性”，打开“属性页”对话框。,10.3.2 toolbar控件,1. 设置toolbar控件中的按钮 点击“按钮”选项卡，如图所示。 单击“插入按钮”和“删除按钮”，可以增加或减少工具栏中的按钮；每个按钮需要使用imagelist控件中的哪个图片作为外观显示，在“图像”中进行设置；“关键字”用于在程序代码中引用该按钮。 “标题”与“描述”文本框中是在按钮上显示的文

30、字及按钮的说明信息。 在“值”下拉列表中可以设置按钮的状态：0-tbrunpressed为弹起状态 1-tbrpressed为按下状态。,图10.15“属性页”中“按钮”选项卡,0-tbrdefault: 普通（默认的）按钮。 1-tbrcheck：复选框按钮。具有按下、放开两种状态。 2-tbrbuttongroup：单选按钮 3-tbrseparator：分隔符。表示将不同组或不同类的按钮分开，如单选按钮。 4-tbrplaceholder: 占位符。 5-thrdropdown: 下拉式按钮。可以建立下拉式菜单。,10.3.2 toolbar控件,图10.15“属性页”中“按钮”选项卡,

31、在“样式”下拉列表中可以设置按钮的行为特点，并且将影响按钮的功能。具有六种类型：,2. 设置toolbar控件的通用属性，和imagelist控件建立关联。 打开“通用”选项卡，在图像列表选项中选择图像列表控件名imagelist1，这样就建立了工具栏控件与图像列表控件的关联。 在程序运行时，下述代码也可建立工具栏控件与图像列表控件的关联： private sub form_load() toolbar1.imagelist = imagelist1 end sub 一旦工具栏控件与图像列表控件建立了关联，toolbar控件“属性页”对话框的“按钮”选项卡中的“图像”选项即变为有效。只需在其中

32、输入图像库中图像的索引号即可将对应的图片添加到按钮上。,10.3.2 toolbar控件,3. 响应toolbar控件事件 toolbar控件常用的事件有两个：buttonclick和buttonmenuclick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。 （1）用索引index确定按钮 （2） 用关键字key确定按钮,private sub toolbar1_buttonclick(byval button as comctllib.button) select case button.index case 1 filenewproc case 2 fileopenproc end

33、 select end sub 注意：第1个按钮的index值为1。用index还是用key根据实际需要，key 可读性好，可维护性好。,select case button.key case tnew filenewproc case topen fileopenproc .,【例10.9】 创建如图所示的窗体，并编写程序代码实现工具栏上各按钮的功能。,图10.16 例10.9 界面设计,设计步骤如下： 1. 设计界面 首先在窗体上添加一个文本框，设置其multiline属性为true，scrollbars属性为2，添加imagelist控件，该控件包含有图所示的六个图形。添加toolbar

34、控件，在按钮选项卡中逐个添加按钮。各按钮属性设置如表10.6所示。,图10.16 例10.9 界面设计,2. 编写程序代码 private sub form_load() toolbar1.imagelist = imagelist1 end sub private sub toolbar1_buttonclick(byval button as mscomctllib.button) select case button.key case b text1.fontbold = not text1.fontbold case i text1.fontitalic = not text1.fon

35、titalic case u text1.fontunderline = not text1.fontunderline case lt text1.alignment = 0 case ct text1.alignment = 2 case rt text1.alignment = 1 end select end sub,10.4.1 键盘事件,在visual basic中，提供keypress、keydown、keyup三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。 keypress 按下对应某ascii 字符的键。 keydown 按下键盘的任意键。 keyup 释放键盘的任

36、意键 只有获得焦点的对象才能够接受键盘事件。,1. keypress 事件,在按下与ascii字符对应的键时将触发keypress 事件。,10.4键盘和鼠标事件,keypress 事件过程的语法格式是： sub object_keypress (keyascii as integer) 其中： object是指窗体或控件对象名，keyascii 参数返回对应于ascii字符代码的整型数值。,例如，如果希望将文本框中的所有字符都强制转换为大写字符，则可在输入时使用此事件转换大小写： private sub text1_keypress (keyascii as integer) keyasci

37、i = asc(ucase(chr(keyascii) end sub,10.4键盘和鼠标事件,keypress 事件只识别 enter、tab和backspace 键。不能够检测其它功能键、编辑键和定位键。,【例10.10】 设计一个应用程序，在窗体中建立一个文本框和一个标签，在文本框中限定只能输入英文字母、空格和backspace键，当从键盘向文本框输入英文字符时，将其转换成大写字母并显示在标签中。程序运行结果如图所示。,10.4键盘和鼠标事件,图10.17 例10.10运行结果,private sub text1_keypress(keyascii as integer) dim cha

38、r as string select case keyascii case 65 to 90, 97 to 122, 32 char = ucase(chr(keyascii) label1.caption = label1.caption & char case 8 label1.caption = left(label1.caption, len(label1.caption) - 1) case else keyascii = 0 end select end sub,2. keydown 和 keyup 事件,当一个对象具有焦点时按下（keydown） 或松开 ( keyup ) 一个

39、键时发生。它们报告键盘本身准确的物理状态：按下键 (keydown) 及松开键 (keyup)。,keydown和keyup事件能够检测其它功能键、编辑键和定位键。 keyup 和 keydown 事件过程的语法格式如下： sub object_keydown(keycode as integer, shift as integer) sub object_keyup(keycode as integer, shift as integer),说明： （1）keycode参数值是用户所操作的键的扫描代码，它告诉事件过程用户所操作的物理键，例如，不管键盘处于小写状态还是大写状态，用户在键盘上按下

40、“a”健，keycode参数值相同。对于有上档字符和下档字符的键，其keycode也是相同的，为下档字符的ascii码。,keycode 参数通过 ascii 值或键代码常数来识别键。字母键的键代码与此字母的大写字符的 ascii 值相同。所以 “a” 和 “a” 的 keycode 都是由 asc(“a”) 返回的数值。,表10.7 keycode和keyascii值,2.keydown 和 keyup 事件,keyup 和 keydown 事件过程的语法格式如下： sub object_keydown(keycode as integer, shift as integer) sub ob

41、ject_keyup(keycode as integer, shift as integer),说明： （2）shift参数是一个整数，表示键盘事件发生时shift、ctrl和alt键的状态。shift是一个位域参数，由若干位组成，每个位的信息指出某一种状态是打开（用1表示）还是关闭（用0表示）。其中最右侧三位用来表示shift、ctrl和alt键的状态，相应二进制位为0时表示未按下对应键，为1时表示按下了对应键。,例如：下例是用shift参数判断是否按下了字母的大写形式。 private sub text1_keydown(keycode as integer, shift as inte

42、ger) if keycode = vbkeya and shift = 1 then msgbox you pressed the uppercase a key. end if end sub,表10.8 shift参数的值,【例10.12】 设计一个程序，当按下alt+f5组合键时终止程序的运行。,先把窗体的keypreview设置为true，再编写如下的程序： private sub form_keydown(keycode as integer, shift as integer) 按下alt键时，shift的值为4 if (keycode = vbkeyf5) and (shift

43、 vbaltmask) then end end sub,10.4键盘和鼠标事件,注意：keyascii是获取键的ascii值，就是说你按下主键区的数字和按下数字键区的数字返回的是同一个ascii值，同一个字母大、小写的keyascii是不同的。keycode值返回的相当于每个键的标号，每个键都有一个不同的keycode值，因而通过keycode值可以判断光标键、回车键等键是否按下，可用于程序的特殊控制。,10.4键盘和鼠标事件,大多数控件能够识别鼠标的mousemove、mousedown和mouseup事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。 mouse

44、move 每当鼠标指针移动到屏幕新位置时发生 mousedown 按下任意鼠标键按钮时发生 mouseup 释放任意鼠标键按钮时发生,10.4.2 鼠标事件,mousemove、mousedown、mouseup三个事件的过程的语法格式如下： sub object_mousemove(button as integer，shift as integer， x as single，y as single) sub object _mousedown(button as integer，shift as integer，x as single，y as single) sub object _mo

45、useup（button as integer，shift as integer， x as single，y as single）,说明： 1object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。 2button参数是表示按下或松开鼠标哪个按钮，,10.4.2 鼠标事件,参数button值 参数（button） 值 说明 vbleftbutton 1 左按钮被按下 vbrightbutton 2 右按钮被按下 vbmiddlebutton 4 中间按钮被按下,10.4.2 鼠标事件,3 shift参数包含了alt、ctrl和shift键的状态信息，和键盘事件过程中的shift参

46、数含义相同。如果要检测ctrl和shift键是否同时被按下，则应使用表达式(shift and vbctrlmask) and (shift and vbshiftmask)，或者表示为shift=3。,10.4.2 鼠标事件,4 x，y：表示当前鼠标指针的位置,【例10.13】设计一个简单的绘图应用程序。当按下任意鼠标键并拖动时，mousedown事件过程和一个相关的mousemove事件过程协同工作以启动绘图。mouseup事件过程禁止绘图。,图10.19 简单画图程序,1. 添加窗体 2删除窗体 3保存窗体,10.5.1 管理多重窗体,10.5 多重窗体与多模块程序设计,10.5.2 设

47、置启动窗体,1. 设置启动窗体 2启动时不加载窗体,图10.21 “工程1-工程属性”对话框,在某些情况下，应用程序启动时不加载任何窗体，如先运行装入数据文件的代码，然后再根据数据文件的内容在不同窗体中选择要打开的窗体。要实现此功能，可以在工程中添加一个标准模块module1，然后在标准模块中创建一个名为main的子过程，在过程中按要求进行编程。如下面的例子所示。,sub main() dim password password = inputbox(请输入口令 , 用户注册) if password = then msgbox 没有输入密码，本次程序运行结束！, vbinformation

48、exit sub end if if password = 123456 then msgbox (欢迎使用form1!), vbinformation, title form1.show else msgbox 对不起，你不是合法用户！,只能使用form2, vbcritical, title form2.show end if end sub,10.5 多重窗体与多模块程序设计,这个子过程不能放在窗体模块中，必须放在标准模块module1中。如果要将sub main过程设为启动对象，在“工程属性”对话框中设置启动对象为“sub main”。,10.5.3 窗体处理语句和方法,1load语句

49、：该语句用来将新创建的窗体加载到内存中 格式： load 窗体名,2show方法：该方法用来显示一个窗体 格式：窗体名.show 模式 其中：模式用来确定窗体的状态，有0和1两个值。0（默认值）表示非模态的，1表示模态。 模态窗体和非模态窗体的区别。,3hide方法：用于隐藏显示在屏幕上的窗体 格式： 窗体名. hide,10.5.3 窗体处理语句和方法,4unload语句：该语句与load语句的功能相反，指从内存中删除指定的窗体 格式： unload 窗体名,5 print方法：该方法用于在窗体上输出数据 格式：窗体名.print 数据列表,6cls方法：该方法用于清除程序运行时在窗体上显示

50、的文本或图形。但cls方法并不能清除在设计阶段设置的文本和图形。 格式： 窗体名.cls,【例10.14】 编一个学生成绩处理程序，要求如下： 程序包含3个窗体和1个标准模块 主窗体是程序的主界面，提供用户选择操作，并根据用户选择的操作打开对应功能的窗体，主窗体的界面如图10.22(a)所示。 在主窗体上单击“输入成绩”按钮后，打开输入成绩窗口，如图10.22(b)所示。在窗体中输入一同学4门课程成绩后，单击“返回”按钮，将输入的成绩保存在全局变量中。 在主窗体上单击“计算成绩”按钮后，打开计算成绩窗口，如图10.22(c)所示。评价学生的等级：平均成绩90分以上为优秀，8089为良好，707

51、9为中等，6069为及格，60分以下为不及格。,10.5.4 多模块程序设计示例,分析：根据题目要求，本题目有三个窗体frmmain、form2和form3，三个窗体上各控件按默认约定依次命名。还有一个标准模块module1，对窗体间公用的全局变量进行了说明。选择启动对象为frmmain窗体。,方法一：在标准模块中定义全局变量及编写评级函数 方法二：不添加标准模块，把上面标准模块里的代码都写到frmmain中，直接进行窗体之间的数据访问,10.5.4 多模块程序设计示例,10.6 多文档界面设计,windows应用程序风格： 单文档界面（sdi） 多文档界面（mdi） 资源管理器风格的界面,要

52、决定使用哪种界面样式需要看应用程序的目的。例如，一个处理学生档案的应用程序可能要用多文档界面样式，一个教师很可能会同时处理一个以上学生档案，或者需要对两个学生进行比较。另一方面，日历程序最好设成单文档界面样式，因为一般不会同时打开一个以上日历。,10.6.1 多文档界面特点,多文档界面由父窗口和子窗口组成，一个父窗口可包含多个子窗口，子窗口最小化后将以图标形式出现在父窗口中，而不会出现在windows的任务栏中。当最小化父窗口时，所有的子窗口也被最小化，只有父窗口的图标出现在任务栏中。父窗口就是mdi窗体，子窗口是指mdchild属性为true的普通窗体。,1区分mdi窗体与mdi子窗体 在工

53、程资源管理器的窗口中mdi窗体、mdi子窗体和标准窗体使用不同的图标来显示。如图10.23所示，窗体图标的左下角有一个小窗体的为mdi子窗体。,10.6.1 多文档界面特点,2多文档界面的特点 所有子窗体均显示在mdi窗体的工作空间内。像其他的窗体一样，用户能移动子窗体和改变子窗体的大小，但它们被限制在mdi窗体工作空间内。 当mdi窗体最小化或关闭时，它所包含的所有子窗体都会被最小化或关闭。当各子窗体最小化时，最小化图标将显示在mdi窗体底部而不是在任务栏中。只有mdi窗体最小化后其图标才显示在任务栏中。 当子窗体最大化时，它的标题会与 mdi 窗体的标题组合在一起显示在mdi窗体的标题栏上。 mdi父窗体和子窗体可以有各自的菜单，活动子窗体的菜单显示在mdi窗体的菜单栏中，而不是显示在子窗体中。,在visualbasic中创建多文档界面的步骤如下： (1) 打开“工程”菜单，选择“添加mdi窗体”，打开“添加mdi窗体”对话框。 (2) 在“添加mdi窗体”对话框中选择“新建”选项卡，再选择“mdi窗体”，然后单击“打开”按钮，添加一个新的mdi父窗体(mdiform对象)。一个应用程序只能有一个mdi父窗体。多数控件不能放在mdi窗体上，除非控件具有align属性(如picturebox控件)或者运行时不可见。可