第11章 对话与菜单程序设计.doc

第11章 对话框及菜单程序设计 本章要求： ?了解自定义对话框的使用。 ?掌握通用对话框的建立和常用属性、常用方法； ?掌握利用菜单设计器来建立、修改菜单项的方法； 本章重点：通用对话框的使用、菜单的建立与使用 本章重点：通用对话框的使用、动态菜单 概述： “对话框”可以被看作一种特殊的窗体，它的大小一般不可改变，也没有“最小化”和“最大化”按钮，它只有一个“关闭”按钮（有时还包含一个“帮助”按钮）。 VB提供了三种解决方案： ?系统预定义的对话框（InputBox和MsgBox） ?用户自定义对话框 ?通用对话框控件。 11．1对话框程序设计 11.1.1 由普通窗体创建自定义对话框 对话框窗体与一般窗体在外观上是有区别的，需要通过设置以下属性值来自定义窗体外观。 1．BorderStyle属性 窗体的BorderStyle属性值设置为3（VbFixedDoubleialog） 此目的是取消最大化和最小化按钮。 2．ControlBox属性 属性值为True时窗体显示控制菜单框，为False时不显示。 例11-1 建立一个用户登录对话框 运行结果如下： 11.1.2 使用对话框模板窗体创建对话框 Visual Basic6.0系统提供了多种不同类的“对话框”模板窗体，通过“工程”菜单中的“添加窗体”命令，即可打开“添加窗体”对话框。用户可以选择的对话框有“关于”对话框、对话框、登录对话框、日积月累、ODBC登录、选项对话框6类等， 11.1.3 通用对话框 程序启动时，一般没有通用对话框控件，因此，为了使用通用对话框，需要把通用对话框控件添加到工具箱，操作如下： 1．打开通用对话框 通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表： 打开通用对话框的方法与Action属性设置 如果在过程中显示某种类型的对话框，只需要在过程中输入： 通用对话框控件名.[方法名]或者通用对话框控件名.action=[属性值]即可。 通用对话框的属性页 在设计时，可能通过属性窗口设置通用对话框的属性设置控件属性，通常使用通用对话框的属性页设置相关属性。 注：加入通用对话框后，选中，而后在属性设计页选Custom，则出现属性对话框设置属性窗口。 打开对话框可以用来指定文件所在驱动器、文件夹及文件名等。如果要显示打开对话框，则只需要在过程中输入: 通用对话框控件名.showopen或者通用对话框控件名.action=1 例11-2 显示图片示例 Private Sub Command1_Click() With CommonDialog1 .FileName = .Filter = 位图格式（*.bmp）|*.bmp|GIF格式(*.gif)|*.gif|JPEG格式|*.jpg .FilterIndex = 3 .DialogTitle = 选择图片 .ShowOpen End With If CommonDialog1.FileName Then Label1.Caption = CommonDialog1.FileName Image1.Picture = LoadPicture(CommonDialog1.FileName) End If End Sub 运行结果如图： 2. 另存为”对话框 使用通用对话框控件的ShowSave方法，或将Action属性赋值为2，可以在运行时显示“另存为”对话框。 属性 例11-2a：把文本框中内容写入到指定的文件 Dim str As String Private Sub Command1_Click() CommonDialog1.Action = 2 CommonDialog1.Filter = 文本文件(*.txt)|*.txt Open CommonDialog1.FileName For Output As #1 str = Text1 Write #1, str Close #1 End Sub 3.“颜色”对话框 颜色对话框是当Action值为3时的通用对话框。如下图： 重要属性： Color：用来返回或设置选定的颜色 例11-3 动态设置文本框的背景颜色 Private Sub cmdcolor_Click() Text1.Text = 西江月顷在黄州，春夜行蕲水中。过酒家饮酒，醉。乘月至一溪桥上，解鞍曲肱，醉卧少休。及觉已晓。乱山攒拥，流水铿然，疑非人世也。书此语桥柱上。照野弥弥浅浪，横空隐隐层霄。障泥未解玉骢骄，我欲醉眠芳草。可惜一溪风月，莫教踏碎琼瑶。解鞍欹枕