計(jì)算機(jī)等級(jí)考試VFP教程：第六章 面向?qū)ο蟮某绦蛟O(shè)計(jì)

3. 用編程方式創(chuàng)建類

在程序窗口中建立一個(gè)定義類的程序文件（擴(kuò)展名為.PRG），然后執(zhí)行該程序。

4．將類添加到表單、表單集和工具欄中

（1） 注冊(cè)一個(gè)類庫(kù)

從工具菜單中選擇選項(xiàng) → 在選項(xiàng)對(duì)話框中選擇控件選項(xiàng)卡 → 選擇可視類庫(kù)并選擇添加按鈕 → 在打開對(duì)話框中選擇要注冊(cè)的類庫(kù)并選擇打開 → 選擇確定按鈕。

（2） 給子類增加功能

使用作用域操作符 (::) 可以在子類上調(diào)用父類的代碼，引用父類的方法。

調(diào)用父類方法的語(yǔ)法是：ParentClass::Method( )

（3） 將屬性和方法添加到類

可以向新類中添加任意多的新屬性和新方法。屬性保存一個(gè)值，而方法則保存調(diào)用時(shí)可以運(yùn)行的過程代碼。

從類菜單選擇新屬性或新方法 → 在新屬性對(duì)話框中鍵入屬性或方法的名稱 → 指定它是否受保護(hù)。

5. 類瀏覽器

(1) 類瀏覽器的作用

可創(chuàng)建子類，把類從一個(gè)類庫(kù)復(fù)制到另一類庫(kù)，刪除類和庫(kù)文件，重命名類或者重新定義類關(guān)系。

注意：如果要對(duì)類進(jìn)行刪除、重命名或重定義，則基于此類的表單可能不能正確運(yùn)行。

（2） 添加一個(gè)子類

在類瀏覽器中打開類庫(kù) → 選擇要從中派生子類的類，然后選擇新類按鈕 →< 在新類對(duì)話框中輸入新子類名 → 在類設(shè)計(jì)器中定義并保存子類。

（3） 把類從一個(gè)類庫(kù)復(fù)制到另一類庫(kù)中

在類瀏覽器中打開源類庫(kù) → 從工具菜單中打開類瀏覽器的第二個(gè)實(shí)例，并選擇目標(biāo)庫(kù)文件 → 在源類庫(kù)中選擇要復(fù)制的類，然后在按住Ctrl鍵的同時(shí)，把位于類列表上方的類圖標(biāo)拖到目的庫(kù)中的類圖標(biāo)上。 若不同時(shí)按住Ctrl鍵則是移動(dòng)。

（4）把多個(gè)類從一個(gè)類庫(kù)文件復(fù)制到另一個(gè)類庫(kù)文件中

在類瀏覽器中打開源類庫(kù) → 如果要篩選類列表，則在類型框中鍵入篩選條件以限定想要從文件中復(fù)制的類 → 從工具菜單中，打開類瀏覽器的第二個(gè)實(shí)例，并選擇目標(biāo)庫(kù)文件 → 在源類庫(kù)中，選擇要復(fù)制的類庫(kù)文件，然后在按住Ctrl鍵的同時(shí)，把位于類列表上方的類圖標(biāo)拖到目標(biāo)庫(kù)中的類圖標(biāo)上。

（5） 刪除類、類庫(kù)或表單

1） 在類瀏覽器中打開類庫(kù)或表單。

2） 在類列表中，選擇要?jiǎng)h除的類、類庫(kù)或表單，然后選擇刪除按鈕。對(duì)類來說，它在庫(kù)中的記錄標(biāo)有刪除標(biāo)記，下一次就可選擇清除類庫(kù)；對(duì)類庫(kù)和表單來說，文件是從磁盤中刪除。

（6） 重命名類庫(kù)中的類，

在類瀏覽器中打開類庫(kù) → 在類列表中，選擇要重命名的類，然后選擇重命名按鈕 → 在重命名類對(duì)話框中，輸入新的名稱，然后選單擊重命名。

注意：如果對(duì)具有相關(guān)子類的類重命名，則子類將不能引用從重命名類中繼承下來的屬性。

（7） 更改一個(gè)類的父類

在類瀏覽器中打開類庫(kù) → 在類列表中，選擇想要重定義的類，然后選擇重定義按鈕 → 在重定義對(duì)話框的為框中，輸入新的父類名。新父類與原父類必須是來源于同一基類 → 在基于框中，選擇或輸入類庫(kù)文件名。

（8） 定制類瀏覽器

可更改類瀏覽器的屬性、事件和方法�？赏ㄟ^程序來操作類瀏覽器：

1) 打開類瀏覽器將自動(dòng)創(chuàng)建公共變量 _oBrowser,可使用此變量來引用或操作類瀏覽器表單，如同對(duì)任何表單對(duì)象一樣。

2) 對(duì)要更改的類瀏覽器的屬性進(jìn)行設(shè)置。

例如，在打開類瀏覽器之前，可通過下列命令把類瀏覽器的標(biāo)題屬性設(shè)置為 Hello：

_OBROWSER.Caption = "Hello"

_OBROWSER.Left = 10

3) 打開類瀏覽器，創(chuàng)建一個(gè)實(shí)例。

例如，為了打開類瀏覽器，可輸入代碼：DO (_BROWSER)

上一頁(yè)  1 2 3 4 5 6 7 下一頁(yè)