..:::تایپک جامع توابع ویژوال بیسیک:::..

اين تابع ليست تمام فونت هاي موجود در سيستم را به دست مي آورد

 

hDC : هندل بافت گرافيکي پنجره اي که تابع بايد تحت آن اجرا شود

lpsz : خانواده فونت مورد نظر که اعضاي آن بايد جمع آوري شود. اين متغير به vbNul ختم مي شود (براي اينکه ليست تمام فونت ها را به دست آوريد از vbNullString استفاده کنيد )

lpFontEnumProc : تابعي که بايد ليست فونت هاي جمع شده به آن ارسال شود. از کليد واژه AddressOf براي اعلام محل تابع در حافظه استفاده کنيد. (مثال AddressOf EnumFontProc). تابع بايد مشابه تابعي که در کد نوشته شده است باشد. تازماني که تابع مقدار True را برگرداند ليست کردن فونت ها ادامه خواهد داشت

lParam : اين متغير را به دلخواه خود مي توانيد مقدار دهي کنيد. اين متغير عيناً به تابع EnumFontProc ارسال خواهد شد

کد PHP:

Private Declare Function EnumFontsA Lib "gdi32.dll" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long 

 

Function EnumFontProc(ByVal lplf As Long, ByVal lptm As Long, ByVal dwType As Long, ByVal lpData As Long) As Long 

   ' Put your code here 

   EnumFontProc = 1 

End Function