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

admin2019-06-24  31

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

选项

答案(1)【操作步骤】 步骤1:新建一个窗体,按照要求建立控件并设置其属性,如图4.21所示。程序中用到的控件及属性见表4.13。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Commandl_Click() CD1.ShowOpen’显示打开文件时话框 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:新建一个窗体,按照要求建立控件并设置相应属性如表4.14所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Commandl.Left=Commandl.Left-lOO End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

最新回复(0)