2. 计算机
  3. 在考生文件夹下有一个工程文件sjt3．vbp。 程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。 2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径

在考生文件夹下有一个工程文件sjt3．vbp。 程序的功能是： 1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。 2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径

admin2016-06-30  78
问题 在考生文件夹下有一个工程文件sjt3．vbp。
    程序的功能是：
    1)程序运行时，文件列表框显示当前文件夹中的所有扩展名为jpg的文件。
    2)双击文件列表框中某个图片文件名时，能在图像框中显示出该张图片，并将该图片文件的信息(包括路径及文件名)显示到标签中。
    3)“下一张”命令按钮的功能：选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名，则从第1个图片文件开始)。
    在当前程序所在文件夹中，已经提供了所需要的图片文件，运行时窗体如图所示。
    在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
选项
答案步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Commandl_Click() If?Or File1．ListIndex=Filel．ListCount一1 Then Filel．ListIndex=0 Else If Filel．ListIndex＞=0 Then Filel．Listlndex=? End If End If Showlnfor End Sub Private Sub Filel_DbIClick() Call ShowInfor End Sub Private Sub Showlnfor() Labell．Caption=App．Path+"＼"+? Imagel．Picture=LoadPicture(Label1．Caption) End Sub Private Sub Form_Load() Filel．Path=App．Path Filel．? End sub 程序结束 第1个?处填：Filel．Listlndex=一1 第2个?处填：Filel．Listlndex+1 第3个?处填：Filel．FileName 第4个?处填：Pattern="*．jpg" 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 文件列表框(File ListBox)控件的常用属性使用，包括Pattern属性、FileName属性~ListCount属性、ListIndex属性。其中：ListIndex属性用来设置或返回当前控件上所选择项目的“索引值”(即下标)。在文件列表框中，第一项的索引值为0，第二项为1，以此类推。如果没有选中任何项，则ListIndex属性的值将被设置为一1。
转载请注明原文地址:https://kaotiyun.com/show/pqLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)