(1)在名称为Form1的窗体上添加一个名称为Com-mand1的命令按钮,标题为“打开文件”,再添加一个名称为CDl的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码: ①设置适当属性,使对话框的标题

admin2015-10-23  72

问题 (1)在名称为Form1的窗体上添加一个名称为Com-mand1的命令按钮,标题为“打开文件”,再添加一个名称为CDl的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框,请按下列要求设置属性和编写代码:
    ①设置适当属性,使对话框的标题为“打开文什”;
    ②设置适当属性,使对话框的“文件类型”下拉式组合框中有两项可供选择:“文本文件”、“所有文件”(如图所示),默认的类型是“所有文件”;
    ③编写命令按钮的事件过程,使得单击按钮可以弹出“打开文件”对话框。
    要求:程序中不得使用变量,事件过程中只能写入一条语句。
    注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。

    (2)在名称为Form1的窗体上添加一个名称为Cormmand1的命令按钮,其标题为“移动本按钮”,如图所示。
    要求编写适当的事件过程,使得程序运行时,每单击按钮一次,按钮向左移动。100。
    要求:程序中不得使用变量,事件过程中只能写入一条语句。
    注意:存盘时必须存放在考牛文件夹下,工程文件名保存为sjt2.vbp,窗体义件名保存为sjt2.frm。

选项

答案步骤1:新建一个窗体,按照要求建立控件并设置其属性,如图3.21所示。程序中用到的控件及属性见表3.13。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Command1.Click() CDI.ShowOpen’显示打开文件对话框 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:新建一个窗体,按照要求建立控件并设置相应属性如表3.14所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。Priva七e Sub Commandl Click() Commandl.Left=Commandl.Lef-100End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析 (1)通用对话框是一种AcfiveX控件,在一般情况下,启动Visual Basic后,在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中,其操作步骤如下:执行“工程”菜单中的“部件”命令,打开“部件”对话框,在对话框中,选择“控件”选项卡,然后在控件列表框中,选择“Microsoft Common Dialog Control 6.0”,再单击“确定”按钮,通用对话框立即被加到工具箱中。通用对话框的属性可以在属性窗口中直接设置。
    当通用对话框显示为“打开”或“另存为”类型时,其FileName属性用丁返同或设置所选的文件的路径和文件名。Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。语法为“对象名.Filter=’描述|文件扩展名’"。
    打开顺序文件的基本格式为“Open FileName For ModeAs#FileNumber”。FileName表示要打开的文件的路径;Mode为打开模式,OutPut用丁输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。
    (2)在Visual Basic中,通过代码使命令按钮向左移动100,需要用到按钮的Left属性,使其值在每单击一次按钮时减去100。
转载请注明原文地址:https://kaotiyun.com/show/MTLp777K
0

最新回复(0)