10.1-对话框控件课件.pptVIP

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 多文档界面 图10-14 三种形式的窗体 10.3.2 多文档界面 精品文档 1.建立多文档界面的基本步骤 （1）创建和设计MDI父窗体 （2）创建和设计MDI子窗体 如下面的newclient子过程运行时创建Form1窗体。 Public Sub newclient() Dim newform1 As New Form1, name As String 在这里添加将自定义记录类型变量Clientnumber 清零，该变量保存客户资料 Form1.Hide name = InputBox(请输入姓名, 客户名称) If name Then MDIForm1.Picture1.Visible = False newform1.Show clientnumber.clientname = name MDIForm1.ActiveForm.Text1.Text = name + vbCrLf End If End Sub 精品文档 （3）MDI子窗体的特性 在设计阶段，子窗体独立于父窗体，与普通的VB窗体没有任何区别，可以在子窗体上增加控件、设置属性、编写代码。 在运行期间，MDI窗体及其子窗体具有如下特性： 1）所有子窗体都只能在MDI窗体内部进行调整，不能超出MDI窗体之外。 2）最小化的子窗体出现在MDI窗体上，并不在桌面的任务栏上显示。最小化MDI