一、錯誤型別
(一)編譯錯誤:即語法錯誤,由於**結構違反了語句的語法規定而產生的錯誤,如缺少關鍵字:
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的子物件 二 ...