基于ｖｆｐ的文件瀏覽器

本文介紹如何利用vfp 6.0 軟件制作文件瀏覽器，方便查詢、瀏覽存貯的下載資源。

準備工作

安裝vfp6.0軟件，要求系統已經安裝office 2000或以上版本。新建一個文件夾作為制作軟件的默認文件夾。

軟件實現步驟

制作項目新建項目：文件瀏覽器.pjx， 文件瀏覽器.pjt。

設置表單界面打開項目管理器，選擇“文檔”，新建表單文件，文件名為 view。進入表單設計器，按照圖1的樣式設置表單顯示界面。表1為表單控件屬性表。

代碼編輯

1) Form控件的Activate事件代碼：

Thisform.list1.setfocus

2) Form控件的load事件代碼：

public wjlx，ts(1)

ts(1)= \"單擊驅動器…\" 引號里的內容為上圖中編輯框中內容

3）Form 控件的destory事件代碼：

releasewj，ts 釋放變量

clear events 清除事件

thisform.release

4）optiongroup控件的destory事件代碼：

do case

*點擊不同選項選擇不同類型文件

case this.value=1

thisform.list1.rowsource=\"*.*\"

case this.value=2

thisform.list1.rowsource=\"*.doc\"

case this.value=3

thisform.list1.rowsource=\"*.rtf\"

case this.value=4

thisform.list1.rowsource=\"*.txt\"

case this.value=5

thisform.list1.rowsource=\"*.htm\"

endcase

thisform.list1.requery 刷新list1的數據源

5）List1控件的Dbclick事件代碼：

a=thisform.list1.listindex

Docfiles=(thisform.list1.list(2)+thisform.list1.list(a)) 獲得選定的文件的路徑名稱

DECLARE INTEGER ShellExecute; 聲明api函數

IN SHELL32.DLL;

INTEGER nWinHandle，;

STRING cOperation，;

STRING cFileName，;

STRING cParameters，;

STRING cDirectory，;

INTEGER nShowWindow

return shellexecute(0，\"open\"，Docfiles，\"\"，\"\"，1) 調用windows系統對應的應用程序，打開相應類型的文件

6）commamd1控件代碼：代碼同于List1控件的Dbclick事件代碼。

7）commamd2控件代碼：

Thisform.release

8）text1控件的valid 事件代碼：

Thisform.list1.rowsource=alltrim(this.value)

Thisform.list1.requery 刷新控件list1的數據源[1]

編譯執行新建程序文件“main.prg”，并設為“主程序文件”，點擊連編，把此程序文件連編成可執行文件，以便可以脫離vfp環境單獨執行。代碼為：

do form view

read events

軟件實現最后工作

將編譯好的文件夾下庫文件vfp6r.dll和vfp6rchs.dll拷貝到對應的文件夾下，編輯配置文件“config.fpw“。關鍵的一句代碼[2]：

screen=off 以關閉vfp主程序界面

最后運行界面如圖2所示。

參考文獻

[1]鄭硯，周青等.Visual FoxPro 8.0實用編程100例[M].北京:中國鐵道出版社，2004，3

[2]周波.vfp頂層表單如何作為主程序[J].電腦知識與技術，2008(3):1 440-1 441

（作者單位：江蘇省徐州市廣播電視大學邳州分校）