新Visual Basic 程序设计 第8章 界面设计.pptVIP

第 8 章 界面设计 菜单设计 公用对话框控件 工具栏设计 多重窗体设计 中断后台处理 8-1 菜单的设计 下拉式菜单 弹出式菜单 菜单事件与菜单命令 8-1-1 下拉式菜单 Visual Basic 6.0通过菜单编辑器来进行菜单的设计，用菜单编辑器可以创建新的菜单和菜单栏 . 右键单击当前窗体，在弹出菜单中选择“菜单编辑器”选项，弹出的菜单编辑器窗口如图8-1所示。 8-1-2 弹出式菜单 当用户在窗体的某个对象上单击鼠标右键，就会弹出和该对象相关的菜单，它是独立于菜单栏的浮动菜单，也成为上下文菜单。 生成弹出菜单主要分为两步： （1）生成一个标准菜单 （2）在某个通用事件中使用PopupMenu方法。 其语法格式如下： object.PopupMenu mnuname, flags, x, y, boldcommand 其中： object使用弹出菜单的对象名，指定的菜单必须含有至少一个子菜单。 mnuname必选项。要显示的弹出菜单名。Flags可选项。取值为数值或常数，用来指定弹出菜单的行为和位置 x、y可选项。指定弹出菜单的x, y坐标，若省略，则使用鼠标的当前坐标 boldcommand可选项。指定弹出菜单中菜单控件的名字。 8-1-3 菜单事件与菜单命令 菜单最常用的事件就是Click事件。 【例1】利用菜单控制画线。其中单击“开始画线”菜单开始画线，单击“停止画线”菜单停止画线，单击“变换颜色”菜单变换画线颜色。程序运行界面如图8-2所示。 进入代码窗口中，编写如下事件过程： 菜单mnuStart响应代码： Private Sub mnuStart_Click() Timer1.Interval=100 mnuStart.Enabled=False：mnuStop.Enabled=True End Sub 菜单mnuStop响应代码： Private Sub mnuStop_Click() Timer1.Interval=0 mnuStart.Enabled= True：mnuStop.Enabled= False End Sub 菜单mnuColor响应代码： Private Sub mnuColor_Click() Form1.ForeColor=QbColor(11) End Sub 定时器控件的Timer事件： Private Sub Timer1_Timer() Static a as Integer a=a+10 Line (0,0)-(a,a) End Sub 最后设置弹出菜单： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Or vbRightButton Then PopupMenu mnuControl End If End Sub 8-2 对话框的设计 Windows应用程序中的对话框主要起到显示信息和提示用户输入运行程序所必需的数据等功能，主要包括两种：自定义对话框和通用对话框。 自定义对话框与普通窗体的区别是它基本不包括菜单栏、工具栏、最小和最大化按钮、状态条和窗体滚动条。比如：我们在Windows里常见的“关于”对话框。 通用对话框在Visual Basic中被制作成为ActiveX控件，这一控件可利用Windows的资源，进行打开、保存文件和设置字体和颜色及设置打印机等操作。 8-2-1 通用对话框控件CommonDialog 使用CommonDialog控件．应将其添加到窗体上并设置属性。设计时CommonDialog控件在窗体上将显示为一个图标，它的大小不能改变，在程序运行时不可见。 该控件运行时所显示的对话框由控件的Show方法来决定，同的Show方法对应的对话框的类型 : ShowOpen显示“打开”对话框 ShowSave显示“另存为”对话框 ShowColor显示“颜色”对话框 ShowFont显示“字体”对话框 ShowPrinter显示“打印机”或“打印选项”对话框 ShowHelp调用帮助文件 8-2-2 实例:通用对话框的使用 【例2】通用对话框的使用。程序运行界面如图8-3所示。 建立程序用户界面。在窗口添加一组名为Command1按钮控件数组。将数组元素的Caption属性分别设置为“打开”、“另存为”、“颜色”、“字体”、“打印”和“帮助”；添加1个公共对话框控件和1个标签控件。 进入代码窗口中，编写如下事件过程： Private