aselobj( ) 函式
把對活動“表單設計器”中當前選定控制的對象引用存入記憶體變數數組。
語法
ASELOBJ(ArrayName, [1 | 2])
參數
ArrayName
指定數組名，當前選定控制的對象引用存入此數組中。如果數組不存在，Visual FoxPro
將自動創建此數組；如果數組存在，但其大小不足以包含所有控制信息，VisualFoxPro
將自動增大數組，使其能夠容納所有信息；如果數組大小超過所需值，VisualFoxPro 將截去多餘部分。如果數組存在，但由於當前沒有選定的控制而使 aselobj( ) 函式的返回值為零，數組將保持不變。如果數組不存在，並且 aselobj( ) 函式的返回值為零，
Visual FoxPro 將不創建此數組。
1
創建一個單元素數組，保存對當前選定控制所在容器的對象引用。例如假設當前選擇的控制為表單的微調控制，包含參數 1，在“命令”視窗中發出 ASELOBJ( ) 命令後，數組將包含一個值為“FORM”的元素。注意，如果選擇的是頁框，aselobj( ) 函式將返回當前的頁名。
2
指定 Visual FoxPro 創建一個單元素數組，保存表單中對數據環境對象的一個對象引用。數據環境對象決定了表單的數據環境屬性。
返回值類型
數值型
說明
aselobj( ) 函式創建一個一維數組，保存對活動表單設計器中當前選定控制的對象引用，並且返回當前選定控制的數目。如果當前沒有選定任何控制並忽略參數選項 1，
aselobj( ) 函式的返回值為 0，並且不創建數組。如果表單中沒有控制，ASELOBJ( )
函式不能識別表單。如果當前沒有選定控制，並且函式包含參數選項 1，aselobj( ) 函式的返回值為 1。
可以使用 ASEOBJ( ) 函式創建自己的控制生成器。
aselobj( ) 函式示例
運行下面的示例之前，先在“表單設計器”中打開一個新表單，並且往表單中加入一個或多個包含 caption 屬性的控制。例如，標籤或命令按鈕。給每個控制選一個編號，然後運行示例。aselobj( ) 函式將顯示所選擇控制的名稱，然後改變選擇控制的標題。
gnobjects = aselobj(gaselected) && 創建包含控制名的數組
if gnobjects > 0 && 0 表示沒有選擇控制
clear
display memory like gaselected && 顯示選定的控制
for ncnt = 1 to gnobjects
? gaselected(ncnt).caption + ' => new caption ' ;
+ ltrim(str(ncnt)) &&顯示新和老的標題
gaselected(ncnt).caption = 'new caption ' ;
+ alltrim(str(ncnt)) && 分配新標題
next
endif
