请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Label1、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、

admin2017-06-22  41

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Label1、标题为“列表框的使用”的标签。再画一个名称为List1的列表框,列表中含有5个表项,表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”,并且可以在列表中同时选择多个表项。运行后的窗体如图4所示。

要求:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1.的窗体上画一个名称为Image1的图像框,其高、宽分别为2000、3000,且不随图片大小而变化;再画两个命令按钮,标题分别是“显示图片”和“隐藏图片”,名称分别为Cmd1、Cmd2,如图5所示。需编写两个命令按钮的Click事件过程,使得当单击“显示图片”按钮时,将当前文件夹下的图片文件“图片.jpg”显示在图像框中;而如果单击“隐藏图片”按钮,则清除图像框中的图片。
要求:程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案(1)步骤1:新建一个“标准EXE”工程。 步骤2:在窗体Form1中加入一个列表框和一个标签,并分别如下表设置它们的相关属性。 [*] 步骤3:按要求将文件保存至考生文件夹中。 (2)步骤1:新建一个“标准EXE”工程,如下表在窗体中画控件并设置其相关属性。 步骤2:打开代码编辑窗口,编写两个命令按钮的单击事件过程。 参考代码: Private Sub Cmdl_Click() Private Sub Cmd2_Click() Image1.Picture=LoadPicture("图片.jpg") Image1.Picture=LoadPicture() End Sub End Sub [*] 步骤3:按要求将文件保存至考生文件夹中。

解析 (1)列表框的MultiSelect属性用于设置是否可在列表项中做多个选择,值为0 (缺省设置)表示不允许做多项选择,值为1表示允许做简单多项选择,值为2表示允许配合使用Shitt键、Ctrl键做多项选择。
本题的考核要求有两项:
①通过列表框的List属性设置题中指定的列表项;②通过设置MultiSelect属性设置列表框是否允许选择多项。
(2)①为图像框控件指定图片有两种方法:一是在设计阶段通过Picture属性设置;二是在程序运行时通过LoadPieture()图片加载函数加载,其语法为:图片框.Picture=LoadPicture("图像文件路径"),App.Path可返回当前工程文件所在的文件夹路径,是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Strech(自动伸缩)属性用来设定图像框是否需要自动调整大小,以适应载入图像框中的图片的大小,值为True时表示自动调整。
本题需分别在两个命令按钮的Click事件过程中,用LoadPicture()函数为图像框加载或清除图片。
转载请注明原文地址:https://jikaoti.com/ti/Jiy0FFFM
0

最新回复(0)