解决思路
我们可以用链接的方式导入图片文件,比如001.bmp,然后将指定文件夹中的文件依次更名为001.bmp,显示之后再将其改回原来的名字。
在实现之前,您得先将要显示的图片放在指定的文件夹内,比如本例中的C:WINDOWSDesktopimages。要说明的是本例中只能显示BMP格式,所以要先将图片的格式统一为BMP格式。
提取目录
在流程线上放一个计算图标,双击,打开其输入对话框,并输入如下的内容:
string1:=Catalog("C:WINDOWSDesktopimages","f")
path:="C:WINDOWSDesktopimages"
n:=0
循环显示
1、在流程线上再放一个决策图标,在其右侧放一个计算图标,命名为“改名”,双击打开其输入对话框,输入如下的内容:
file:=GetLine(string1,n)
RenameFile(path^""^file,path^""^"001.bmp")
图1
2、在此计算图标的右侧再放一个组图标,命名为“显示图片”,双击打开其流程线,然后在其流程线上放一个等待图标,并将等待图标的等待时间设置为2秒。(此处时间可根据需要进行调整。)
图2
在等待图标前的流程线上点击一下,将粘贴指针定位于等待图标之前,然后执行菜单命令“File→Import…”,打开“Import Which File?”对话框,找到图片所在的文件夹,随便导入一幅图片。不过,可千万别忘了,要将“Link To File”复选框选中,否则就什么也干不成了(如图1)。
双击该显示图标,打开其演示窗口,然后双击窗口中的图片,打开“Properties:Image”属性对话框,在“File”输入框中将文件名为“C:WINDOWSDesktopimages01.bmp”。其中的文件路径要您的图片所在路径来改。其他的可分别为暂时保持不变(如图2)。
3、在“显示图片”组图标的右侧再放一个计算图标,命名为“恢复旧名”,双击打开其输入框,然后输入如下内容:
RenameFile(path^""^"001.bmp",path^""^file)
n:=n+1
4、双击决策图标,打开其属性对话框,将“Repeat”的值改为“Until True”,并在其下方的输入框中输入“nLineCount(string1)+1”(如图3)。
图3
退出设置
在决策图标下方,放一个计算图标,命名为“退出”,双击,打开其输入窗口,输入:Quit()。
好了,程序到现在就算完成了。流程图如图4所示。执行一下看看吧。
图4
设置像素
通过这种方法导入的图片,显示时都以原来的大小进行显示,如Tulaoshi.Com果您希望每次显示都以相同的大小进行显示,那么还要做如下工作:
图5
双击组图标中的显示图标,打开其演示窗口,双击其中的图片,打开“Properties:Image”属性对话框,点击“Layout”标签,将“Display”的值选为“Scaled”,并将“Position”中“X”和“Y”的值均设为0,将“Size”的两个值分别设为640和480(如图5)。这样,每一幅图都会以640×480像素大小显示了。