第1章 Visual basic60基本知识 串 (2) MsgBox函数,用于显示消息,并等待用户单击按钮,然后返回一个整形数值告 诉用户单击哪一个按钮。 18.如何建立自定义对话框? 参见教材 19.建立一个含有窗体的标准程序,窗体上有一个文本框: TextI,一个命令按钮: Command1,一个公共对话框控件: Common Dialog。要求建立这样的程序,使得当 CommandⅠ被单击时,能打开一个“打开文件”对话框,其仅能选择扩展名为TXT的文件 并将所选择的文件名在Text1上显示。 Private Sub Commandl Click On Error GoTo ErrBar CommonDialog l Cance eRror = True CommonDialog l Filter ="*.TXT*.TXT Textl Common Dialog. FileName Err Bar- End Sub 0.试说明MD窗体的用途,并说明如何将MD窗体设置为启动窗体。 当用户需要同时进行两项以上的相关事务操作时,如:既希望看到查询结果,又希望 看到汇总情况时,能够包含多文档的MD窗体就给操作带来了便利 通过菜单命令“工程\工程属性”打开“工程属性”对话框,从“工程属性”对话框上 的“启动对象”列表框中,可以选取所需要启动模块,由此可以将MDI窗体设置为启动 窗体 21.如何将普通的独立窗体设置为MD1子窗体? 设置标准窗体的 MDIChild属性为True,则该窗体就成为了一个MD子窗体 22.试对MDI窗体的 ActiveForm属性和 ActiveControl属性给出描述。 通过MDI窗体的 Activeform属性,可以获得具有焦点的子窗体,或者是最后被激 活的子窗体,并由此操作这些子窗体。而通过MDI窗体的 ActiveControl属性,可以获得 当前活动子窗体上具有焦点的控件,并由此操作这些控件第 1 章 Visual Basic 6.0 基本知识 ·11· 串。 （2）MsgBox 函数，用于显示消息，并等待用户单击按钮，然后返回一个整形数值告 诉用户单击哪一个按钮。 18. 如何建立自定义对话框？ 参见教材。 19. 建立一个含有窗体的标准程序，窗体上有一个文本框：Text1，一个命令按钮： Command1，一个公共对话框控件：CommonDialog1。要求建立这样的程序，使得当 Command1 被单击时，能打开一个“打开文件”对话框，其仅能选择扩展名为 TXT 的文件， 并将所选择的文件名在 Text1 上显示。 Private Sub Command1_Click() On Error GoTo ErrBar CommonDialog1.CancelError = True CommonDialog1.Filter = "*.TXT|*.TXT" CommonDialog1.ShowOpen Text1 = CommonDialog1.FileName ErrBar: End Sub 20. 试说明 MDI 窗体的用途，并说明如何将 MDI 窗体设置为启动窗体。 当用户需要同时进行两项以上的相关事务操作时，如：既希望看到查询结果，又希望 看到汇总情况时，能够包含多文档的 MDI 窗体就给操作带来了便利。 通过菜单命令“工程\工程属性”打开“工程属性”对话框，从“工程属性”对话框上 的“启动对象”列表框中，可以选取所需要启动模块，由此可以将 MDI 窗体设置为启动 窗体。 21. 如何将普通的独立窗体设置为 MDI 子窗体？ 设置标准窗体的 MDIChild 属性为 True，则该窗体就成为了一个 MDI 子窗体。 22. 试对 MDI 窗体的 ActiveForm 属性和 ActiveControl 属性给出描述。 通过 MDI 窗体的 ActiveForm 属性，可以获得具有焦点的子窗体，或者是最后被激 活的子窗体，并由此操作这些子窗体。而通过 MDI 窗体的 ActiveControl 属性，可以获得 当前活动子窗体上具有焦点的控件，并由此操作这些控件