AGETCLASS( ) 函式
在“打開” 對話框中顯示類庫,並且創建一個包含該類庫和所選類名稱的數組。
語法
AGETCLASS(ArrayName [,cLibraryName [,cClassName [,cTitleText[,cFileNameCaption [,cButtonCaption]]]]])
返值類型
邏輯型
參數描述
指定數組的名稱,在該數組中保存類庫和類的名稱。如果所指定的數組不存在,Visual FoxPro 會自動創建該數組。如果該數組存在,但是大小不足以容納類庫和類的名稱,則 Visual FoxPro 自動增加該數組的大小。如果該數組比所需的要大,則 Visual FoxPro 會截短該數組。如果該數組存在,並且由於關閉了“類庫”對話框(通過按 ESC 鍵、選擇了“取消”命令或單擊了“關閉”按鈕)而使 AGETCLASS() 返回了“假”(.F.),則該數組保持不變。如果該數組不存在,並且 AGETCLASS() 返回了“假” (.F.),則不創建該數組。
下表列出了當選擇一個類時所創建數組的每個元素的內容。
元素 內容
1 所選類庫的檔案名稱。
2 所選取類的名稱。
cLibraryName
指定當顯示“打開”對話框時初始選中的類庫的名稱。所指定的類庫的名稱顯示在“檔案名稱”文本框中。如果所指定的類庫不存在,或者 cLibraryName是空字元串或 null 值,則會產生一個錯誤。
cClassName
指定當顯示“打開”對話框時在“類名”列表中初始選中的類的名稱。如果所指定的類不存在,則選中“類名”列表中的第一個類。如果省略cLibraryName,或 cClassName 是 null 值,則會產生一個錯誤。
cTitleText
指定在“打開”對話框的標題欄顯示的文本。在默認情況下,顯示“打開”。
cFileNameCaption
指定在“檔案名稱”文本框旁邊顯示的文本。在默認情況下,顯示“檔案名稱”。
cButtonCaption
指定 OK 按鈕的標題。說明如果您選擇了一個類,則 AGETCLASS()返回“真”(.T.),並且創建一個包含兩個元素的一維數組。第一個元素包含所選類庫的名稱;第二個元素包含所選類的名稱。如果退出了“類庫”對話框(通過按 ESC 鍵、選擇了“取消”命令或單擊了“關閉”按鈕,則返回“假”(.T.)。
agetclass( ) 函式示例
下面的示例創建了一個名為 aclasslib 的數組。目錄更改到包含示範類的子目錄samples。agetclass( )顯示帶有buttons類庫和選定的 vcr 類的對話框。如果選擇了“修改”按扭,類庫的名稱和選定的類將存儲在數組中。然後在 “類設計器”中打開類。
local aclasslib(2) &&創建一個數組,初始化為 .f.
ccurrentdir = Curdir() && 保存當前目錄
cd home(2) + 'classes' && 轉換目錄
agetclass(aclasslib,'buttons.vcx','vcr','modify class',;'class file:','modify') && 顯示對話框
cd (ccurrentdir) && 轉換到先前目錄
if type('aclasslib(2)') = 'c' &&選擇了類？
modify class (aclasslib(2)) of (aclasslib(1)) && 打開並修改
endif
