解決思路

我們可以用鏈接的方式導入圖片文件，比如001.bmp，然后將指定文件夾中的文件依次更名為001.bmp，顯示之后再將其改回原來的名字。

在實現之前，您得先將要顯示的圖片放在指定的文件夾內，比如本例中的c:/windows/desktop/images。要說明的是本例中只能顯示bmp格式，所以要先將圖片的格式統一為bmp格式。

提取目錄

在流程線上放一個計算圖標，雙擊，打開其輸入對話框，并輸入如下的內容：

string1:=catalog("c://windows//desktop//images","f")
path:="c://windows//desktop//images"
n:=0

循環顯示

1、在流程線上再放一個決策圖標，在其右側放一個計算圖標，命名為“改名”，雙擊打開其輸入對話框，輸入如下的內容：

file:=getline(string1,n)
renamefile(path^"http://"^file,path^"http://"^"001.bmp")

圖1

2、在此計算圖標的右側再放一個組圖標，命名為“顯示圖片”，雙擊打開其流程線，然后在其流程線上放一個等待圖標，并將等待圖標的等待時間設置為2秒。（此處時間可根據需要進行調整。）

圖2

在等待圖標前的流程線上點擊一下，將粘貼指針定位于等待圖標之前，然后執行菜單命令“file→import…”，打開“import which file?”對話框，找到圖片所在的文件夾，隨便導入一幅圖片。不過，可千萬別忘了，要將“link to file”復選框選中，否則就什么也干不成了（如圖1）。

雙擊該顯示圖標，打開其演示窗口，然后雙擊窗口中的圖片，打開“properties:image”屬性對話框，在“file”輸入框中將文件名為“c:/windows/desktop/images/001.bmp”。其中的文件路徑要您的圖片所在路徑來改。其他的可分別為暫時保持不變（如圖2）。

3、在“顯示圖片”組圖標的右側再放一個計算圖標，命名為“恢復舊名”，雙擊打開其輸入框，然后輸入如下內容：

renamefile(path^"http://"^"001.bmp",path^"http://"^file)
n:=n+1

4、雙擊決策圖標，打開其屬性對話框，將“repeat”的值改為“until true”，并在其下方的輸入框中輸入“n>linecount(string1)+1”（如圖3）。

圖3

退出設置

在決策圖標下方，放一個計算圖標，命名為“退出”，雙擊，打開其輸入窗口，輸入：quit()。

好了，程序到現在就算完成了。流程圖如圖4所示。執行一下看看吧。

圖4

設置像素

通過這種方法導入的圖片，顯示時都以原來的大小進行顯示，如果您希望每次顯示都以相同的大小進行顯示，那么還要做如下工作：

[1] [2] 下一頁