清华大学出版 [例8-7创建一个带有确认功能的《“退由按钮”类 (1)从 CommandBut ton基类新建子类:选定文件菜单的新建命令□在新建对话框中选定“类”选项 按钮,然后选定新建文件按钮在如图8.7所示新建类对话框的类名文本框中键入类名:退出按钮;在 派生于”下拉列表框中选定基类 CommandButton;在“存储于”文本框中键入类库的名字:用户控件 ¤选定确定按钮关闭对话框 (2)在类设计器中为“退出按钮”类设置属性与事件:新建类对话框关闭后,随即会弹出一个类设 计器窗口(参阅图8.8)。类设计器窗口内显示一个“退出按钮”窗口,这就是“退出按钮”类;“退出 按钮”窗口中有一个“ Command1”按钮(在图8.8中 Commandl已改作退出两个字),这是类的实例的模样。 在属性窗口中将“退出按钮”类的 Caption属性由 Command改为“退出”,这将使按钮上显示“退出” 两个字(见图8.8)。 双击“退出按钮”窗口内部来打开代码窗口,然后为 Click事件键入如下代码: IF MESSAGEBOX("一定要退出吗?”,4+48,“"请确认")=6 &&信息框包含“是”和“否”按钮,图标显示惊叹号,按“是”按钮返回数值6 THISFORM. Release CLEAR EVENTS&&停止处理事件(参阅10.1节第三点) ENDIF (3)关闭类设计器窗口。 类名 生于田) dUtton 来游于 存储于):用户控 图8.7新建类对话框[例8-7] 创建一个带有确认功能的“退出按钮”类。 (1) 从CommandButton基类新建子类：选定文件菜单的新建命令 在新建对话框中选定“类”选项 按钮,然后选定新建文件按钮 在如图8.7所示新建类对话框的类名文本框中键入类名：退出按钮；在 “派生于”下拉列表框中选定基类CommandButton；在“存储于”文本框中键入类库的名字：用户控件 选定确定按钮关闭对话框。 (2) 在类设计器中为“退出按钮”类设置属性与事件: 新建类对话框关闭后,随即会弹出一个类设 计器窗口(参阅图8.8)。类设计器窗口内显示一个“退出按钮” 窗口，这就是“退出按钮”类；“退出 按钮” 窗口中有一个“Command1”按钮(在图8.8中Command1已改作退出两个字)，这是类的实例的模样。 在属性窗口中将“退出按钮” 类的Caption 属性由Command1改为“退出”,这将使按钮上显示“退出” 两个字(见图8.8)。 双击“退出按钮”窗口内部来打开代码窗口,然后为Click事件键入如下代码: IF MESSAGEBOX("一定要退出吗?",4+48,"请确认")=6 && 信息框包含“是”和“否”按钮,图标显示惊叹号,按“是”按钮返回数值6 THISFORM.Release CLEAR EVENTS && 停止处理事件(参阅10.1节第三点) ENDIF (3) 关闭类设计器窗口。 图8.7 新建类对话框