AFONT( ) 函式
將可用字型的信息放到一個數組中。
語法
AFONT(ArrayName [, cFontName [, nFontSize]])
參數
ArrayName
指定存放可用字型名的記憶體變數數組。如果數組大小不足以包含所有字型，visual foxpro 將自動增加數組大小。如果指定的是已有的二維數組，Visual FoxPro 將把數組轉化為一維數組。
如果創建數組成功，則 AFONT( ) 函式的返回值為“真”(.T.)，否則返回值為“假”(.F.)。
cFontName
指定需存放信息到數組中的字型名。
如果指定字型僅支持離散的字型尺寸大小(8 磅、10 磅...)，這些字型尺寸大小將存入數組，並且 AFONT( ) 函式的返回值為“真”(.T.)。如果參數 cFontName 指定的字型為可縮放的(支持連續字型大小值)，數組中將包含一個值為 -1 的元素，並且 AFONT( ) 函式的返回值為“真”(.T.)。
如果指定了無效的字型名，將不創建數組並且 AFONT( ) 函式返回“假”(.F.)。
nFontSize
指定字型 cFontName 的大小。
如果指定的 cFontSize 對字型 FontName 可用，則數組將包含一個值為“真”(.T.) 的元素，並且 AFONT( ) 函式返回“真”(.T.)。如果指定的字型大小對指定字型無效，將不創建數組並且 AFONT( ) 函式返回“假”(.F.)。
返回值類型
邏輯型
說明
僅用於 Visual FoxPro、FoxPro for Windows 和 FoxPro for Macintosh。
AFONT( ) 函式將可用字型的名稱存放在數組中，此函式還可用於確定有效的字型大小或字型是否可縮放。用 GETFONT( ) 函式可以顯示包含有效字型、字型大小和樣式信息的對話框。
afont( ) 函式示例
下面的示例用 afont( ) 函式創建包含所有有效字型名的數組。然後顯示每種字型的名字並顯示此字型的一個示例。如果安裝了十種以上字型，則僅顯示前十種字型。
clear
=afont(gafontarray) && 創建包含字型名的數組
gnnumfonts = alen(gafontarray) && 字型數目
if gnnumfonts > 10
gnnumfonts = 10 && 只顯示前十種字型
endif
for ncount = 1 to gnnumfonts
? alltrim(gafontarray(ncount)) && 顯示字型名
?? ' this is an example of ' ;
+ alltrim(gafontarray(ncount)) font gafontarray(ncount), 8
endfor
