新Visual Basic程序设计教程 第10章.pptVIP

10.1.2自定义对话框 2. 对话框的显示与卸载 10.2 菜单程序设计 10.2.1 使用菜单编辑器设计菜单 2.编辑区 编辑区由 7 个按钮组成，单击右箭头将把选定的菜单向右移一个等级。单击左箭头将把选定的菜单向上移一个等级。单击上箭头将把选定的菜单项在同级菜单内向上移动一个位置。单击下箭头把选定的菜单项在同级菜单内向下移动一个位置。单击“下一个”按钮将开始一个新的菜单项。单击“插入”按钮将在某个菜单项前插入一个新的同级空白菜单项。单击“删除”按钮将删除选定的菜单项。 3.菜单项列表区 10.2.3 菜单项的增减 10.2.4 弹出菜单 弹出菜单是独立于菜单栏的浮动菜单，其在窗体上的显示位置由单击鼠标时指针的位置决定。 （3）Show方法 Show方法的语法格式为： [窗体名称.]Show [模式] （4）Hide方法 用以隐藏窗体对象，但不能使其卸载。Hide方法的语法格式为： [窗体名称.]Hide 隐藏窗体时，它就从屏幕上被删除，并将其 Visible 属性设置为 False。 用户将无法访问隐藏窗体上的控件，但是对于运行中的 Visual Basic 应用程序，或对于通过 DDE 与该应用程序通讯的进程及对于 Timer 控件的事件，隐藏窗体的控件仍然是可用的。 窗体被隐藏时，用户只有等到被隐藏窗体的事件过程的全部代码执行完后才能够与该应用程序交互。 如果调用 Hide 方法时窗体还没有加载，那么 Hide 方法将加载该窗体但不显示它。 3.不同窗体之间的数据交换 可以在多重窗体之间存取控件或全局变量的值。 4.设置启动对象 在具有多个窗体的应用程序中，各个窗体之间是并列关系。程序运行时，首先执行的对象模认为第一个创建的窗口Form1，称为启动对象。根据需要可以指定其他窗体或Main子过程为启动对象。 图10-12 指定启动对象 5. 闲置循环与DoEvents语句 VB语言属于事件驱动型语言，即只有当发生某种事件时，才执行相应的程序，否则，应用程序会处于“闲置”状态。而一旦响应某个事件时，只有在该事件执行完毕后才能响应另外的事件为了改变这种执行顺序，VB提供了闲置循环（idle loop）和DoEvents语句。 DoEvents既可以作为语句使用，也可以作为函数使用，其一般格式为： [窗体号 | 变量名]=DoEvents[()] DoEvents函数 DoEvents DoEvents语句 例10-4：在例10-2中，增加一个Sub main过程作为启动过程，在闲置状态下，使Label1标签水平滚动，当应用程序响应其他事件，如单击“用户 | 新建”菜单项时，只要闲置事件超过一定的时间（由时钟控件Timer1的Interval属性值控制），重新执行闲置循环。 （1）单击“工程 | 添加模块”，在新建的模块窗口加上如下代码： Sub main() Form1.Show Do While DoEvents() If Form1.Label1.Left Form1.ScaleWidth - 10 Then Form1.Label1.Left = Form1.ScaleLeft Else Form1.Label1.Left = Form1.Label1.Left + 1 End If Loop End Sub （2）新增一个时钟控件Timer1，并加上如下代码： Private Sub Timer1_Timer() …… Label1.Visible = True End Sub （3）在事件过程（如New_Click事件过程）中加上如下代码： Private Sub New_Click() New为“新建”菜单项的名称 …… Label1.Visible = False End Sub 程序运行时，如果没有任何事件发生，则Label1标签水平滚动，单击任何菜单或其他按钮，Label1标签将停止水平滚动，如果事件过程中加上“Label1.Visible = False”之类的代码，则延时后继续滚动，否则立即开始滚动。 下面结合实例介绍多文档界面应用程序的特点。 在菜单设计一节创建了一个“电脑销售系统”的范例，在该例的基础上建立多文档界面。用户每次单击“用户”菜单下的“新建”命令，将显示一个新的Form1类的窗口，该窗口中的文本框显示用户配置情况。用户单击“部件”菜单下的不同的命令，将打开不同的对话框，供用户选择不同的配件，用户的选择将显示在文本框中。 图10-13 多文档界面