利用檔案控制項來處理檔案

二、利用檔案控制項來處理檔案

1、第乙個示例（見教材p324）

（1）設定初始窗體屬性

屬性設定

(name)

form1

borderstyle

3-fixed dialog'不能改變窗體大小

caption

form1

enabled

true '不能移動窗體

height

3600

left

0maxbutton

false

minbutton

false

moveable

false

picture

(none)

startupposition

2-centerscreen '窗體位於螢幕中心

top0

visible

true

width

5670

windowstate

0-normal

（2）新增控制項，設定其屬性

向窗體新增乙個drivelistbox控制項，乙個dirlistbox控制項乙個filelistbox控制項，它們將實現相應不同的功能，同時它們又相互協調。

如圖：（3）編寫**

程式的初始化**：

private sub form_load()

drive1.enabled=true 　

dir1.enabled=true

file1.enabled=true 　　'設定控制項的有效狀態

file1.pattern="*.exe"　'設定過濾器，使之只顯示可執行檔案

drive1.drive="c:/" 　　'設定控制項的初始驅動器為c盤

end sub

程式說明：程式首先通過drive1.enabled=true，dir1.enabled=true，file1.enabled=true來設定控制項的有效狀態，然後設定檔案的過濾器為"＊.exe"和控制項的初始驅動器為"c:/"，這樣只有在c盤下面的以"＊.exe"結尾的可執行檔案才能夠顯示出來。

三控制項同步：

private sub drive1_change()

dir1.path=drive1.drive '改變驅動器，使目錄列表框中的內容跟著所選驅動器的變化而變化

end sub

程式說明：在程式的執行階段，改變驅動器時，就會啟用drivelistbox控制項的drive1_change()事件，然後通過dir1.path=drive1.drive來使drivelistbox控制項顯示改變驅動器後的目錄。

private sub dir1_change()

file1.path=dir1.path '改變目錄，使目錄列表框中的內容跟著所選資料夾的不同而不同

end sub

程式說明：在程式的執行階段，改變目錄時，就會啟用dirlistbox控制項的dir1_change()事件，然後通過file1.path=dir1.path來使filelistbox控制項顯示改變目錄後的檔案列表。

顯示檔案路徑和檔名：

private sub file1_click()

msgbox file1.path & "/" & file1.filename '輸出檔案路徑和檔名。

end sub

（4）儲存檔案，執行程式

[程式演示]

2、第二個示例（見教材p329）

介面設計：

（1）設定初始窗體屬性

屬性設定

(name)

form1

borderstyle

3-fixed dialog

caption

form1

enabled

true

height

3600

left

0maxbutton

false

minbutton

false

moveable

false

picture

(none)

startupposition

2-centerscreen

top0

visible

true

width

5670

windowstate

0-normal

（2）新增commondialog控制項，設定屬性

如果在窗體上放置乙個commondialog控制項，首先把它新增到工具箱上，選擇選單[工程]/[部件] ,就會彈出對話方塊，選擇mocrosoft common dialog control6.0項，在工具箱中就會自動的新增乙個commondialog控制項。它的屬性設定如下：屬性

設定（name)

commondialog1

dialogtitle

選擇乙個影象檔案

filename

*.bmp;*.jpg;*.gif '用分號隔開

c: '設定初始化檔案目錄

left

4440

top0

（3）在窗體上新增其它控制項，設定屬性

在窗體上新增乙個image控制項和三個commandbutton控制項。

（4）編寫程式的初始化**

在程式的設計階段，雙擊窗體，在窗體的form_load()事件中新增下列**：

private sub form_load()

command1.enabled=tru

command2.enabled=true

command3.enabled=true

end sub

程式說明窗體的form_load()事件在程式的執行初期就被執行，所以在其中新增**對程式進行初始化，在本程式中初始化的工作在於設定各個按鈕的有效狀態。

如果沒在屬性視窗中設定過濾器

filename、filter的屬性，也可

在這段**中新增**：

（5）響應按鈕"開啟檔案"的單擊事件

按鈕"開啟檔案"的作用是顯示乙個對話方塊，並且可以在其中選擇乙個影象檔案，為了實現以上功能，所以在command2_click()事件中新增如下**：

private sub command2_click()

commondialog1.showopen '顯示"開啟"對話方塊

image1.picture=loadpicture(commondialog1.filename) '在image控制項中顯示影象

end sub

程式說明：在程式的執行過程中，單擊按鈕[開啟檔案]時，command2_click()事件就被啟用，然後開始執行其中的**，首先通過commanddialog1.showopen語句來顯示"開啟"對話方塊，選中乙個有效的影象檔案後單擊[確定]按鈕，就可通過image1.pcture=loadpicture(commondialog1.filename)顯示影象。

（6）響應其餘按鈕單擊事件

按鈕"清除"的作用是清除在image控制項中顯示的影象檔案，為了實現上述功能，可以在command3_click()事件中新增**

private sub command3_click()

image1.picture=loadpicture(""）

end sub

按鈕「退出」的作用是結束程式的執行，返回設計階段，所以在command1._click()事件中新增下列**：

private sub command1_click()

end '結束執行

end sub

（7）儲存檔案，執行程式

[程式演示]

利用檔案控制項來處理檔案

檔案處理控制項

利用DOM來處理XML文件 zz

php 利用flock來處理併發資料處理

利用檔案控制項來處理檔案

檔案處理控制項

利用DOM來處理XML文件 zz

php 利用flock來處理併發資料處理

相關推薦