VB6 0(第十二課時)

2021-09-29 07:35:25 字數 4029 閱讀 9060

一、錯誤型別

(一)編譯錯誤:即語法錯誤,由於**結構違反了語句的語法規定而產生的錯誤,如缺少關鍵字:

if text1.text=""

label1.caption="你好"

endif

(二)執行錯誤:在程式編譯通過後執行**時發生的,一般是由於程式執行過程**現了非法操作引起的。如,除法中除數為0、型別不匹配、訪問的檔案不存在。

(三)邏輯錯誤:程式沒有按預期的方式執行。如:函式定義錯誤、迴圈條件不正確、語句順序不對等。

二、錯誤處理語句和物件

err物件:含有有關當前程式執行時的錯誤資訊,當程式執行時出現問題時,錯誤資訊就會在err物件中反應出來。

三、檔案處理系統

1、檔案處理的一般步驟:

(1)開啟檔案

(2)對檔案進行讀寫操作

(3)關閉檔案

2、檔案系統控制項:drivelistbox(驅動器列表框)、dirlistbox(目錄列表框)、filelistbox(檔案列表框)

(1)drivelistbox(驅動器列表框)

主要屬性:

①drive:用於返回或設定所選擇的驅動器。

②list:返回或設定控制項的列表部分的專案。

dim i as

integer

dim s as

string

for i=

0to driver1.listcount-

1'迴圈次數為驅動器中列表專案數

s=s+

" "

& drive1.list(i)

'將列表數賦給變數

next i

label1.caption=s

主要事件:

change:當所選擇的驅動器名稱發生改變時觸發。

(2)dirlistbox(目錄列表框)

主要屬性:

①list

②listindex

③path

private

sub drive1_change(

) dir1.path= drive1.drive

endsub

private

sub dir_change(

) label1.caption =dir1.path

endsub

(3)filelistbox(檔案列表框)

主要屬性:

②pattern:返回或設定乙個值,指示在執行時顯示在filelistbox控制項中的檔名的副檔名。

file1.pattern =

".txt"

'顯示所有的文字檔案

file1.pattern =

"*.txt;*.doc"

'顯示所有的文字檔案和word文件檔案

file1.pattern=

"???.txt"

'顯示檔名包含3個字元的文字檔案

③filename:用於返回或設定所選的檔名,值為字串。

dim  mystr as

string

ifright

(file1.path,1)

= "\" then

mystr =file1.path & file1.filename

else

mystr =file1.path & "\" & file1.filename

endifprint mystr

主要事件:

①pathchange:當filelistbox控制項中的路徑改變時pathchange事件被觸發。

②patternchange:當檔案的列表樣式,如「.」被**中對filename或path屬性的設定所改變時,此事件發生。

private

sub file1_patternchange(

) file1.pattern = combo1.text

'將選擇的檔案型別賦給pattern屬性

label1.caption ="檔案的路徑為:" & file1.path  '在標籤中顯示檔案的路徑

endsub

3、檔案操作語句

(1)chdrive:用來改變當前的驅動器。如

chdrive "d"

'使「d」成為當前驅動器

又如:

chdrive drive1.list(drive1.listindex)

'將驅動器設定為當前驅動器

(2)改變目錄或資料夾(chdir)

chdir

"mydir"

chdir "c:\windows\system"

(3)刪除檔案(kill語句):用於從磁碟中刪除檔案。

kill file1.path & "\" & file1.filename   '刪除指定路徑下的檔案

file1.refresh '檔案列表框重新整理

(4)建立目錄或資料夾(mkdir語句)

mkdir    "d:\myfolder"    '在d盤下建立乙個myfolder資料夾
注意:如果建立的檔案已經存在,則會產生錯誤。

(5)複製檔案(filecopy語句):用於複製乙個檔案。

filecopy  text1.text  text2.text

'複製檔案

(6)重新命名(name語句):重新命名乙個檔案、目錄、資料夾。

name oldname as newname
注:在乙個已開啟的檔案上使用name語句,將會產生錯誤。因此,必須在改變名稱之前關閉開啟的檔案。

(7)設定檔案屬性(setattr語句)

setattr pathname,attributes
二、順序檔案

三、fso物件模型

1、fso:基於物件的工具來處理資料夾和檔案。

2、引入:工程------引用-------microsoft scripting runtime

瀏覽新增的物件:drive、file、filesystemobject、folder、textstream物件。

(一)filesystemobject物件

1、建立乙個 filesystemobject物件

(1)使用new建立:

dim  myfso as

new filesystemobject

(2) 使用creatobject 方法建立:

dim myfso as

object

set myfso = creatobject(

"scripting.filesystemobject"

)

(二)drive物件

(三)folder物件與資料夾的瀏覽(獲取某路徑的資料夾名)

1、建立folder物件

如:希望獲得c:\下的資料夾資訊,可利用下面的**建立:

dim myfso as

new filesystemobject

dim myfoder as folder

set myfoder = myfso.getfolder("c:\")

第十二課 OpenGL擴充套件

gpu的效能隨著更新換代一直在提高,支援渲染更多的三角形和畫素點。然而,原始效能不是我們唯一關心的。nvidia,amd和intel也通過增加功能來改善他們的顯示卡。來看一些例子。回溯到2002年,gpu都沒有頂點著色器或片斷著色器 所有的一切都硬編碼在晶元中。這被稱為固定功能流水線 fixed f...

VB6 0(第十一課)

一 activex控制項 1 擴充套件名為ocx,2 註冊activex 控制項 1 手動註冊 在執行中輸入以下命令 regsvr c windows system32 ocx 2 編寫程式自動註冊 執行程式後,便可自動註冊activex控制項。二 影象列表控制項 imagelist 提供一些影象,...

VB6 0(第十四課)

一 訪問資料庫 data控制項 dao物件 rao物件 ado控制項 ado物件 1 dao物件 操縱小型資料庫 如access 2 引用 工程 引用 microsoft dao 3.6 object library dao 3.6 支援access2000以上版本的資料庫 3 dao的子物件 二 ...