اسکريپت فونت ها

[Pedram_HookEx]

میتونی از تابع EnumFontFamiliesEx استفاده کنی کار این تابع لیست کردن فونت ها با ویژگی های خاص هست که اونا رو توی یک استراکچر با نام LOGFONT
هست که میتونی برای مشخص کردن نوع فونت مورد نیاز بهش مقدارهای زیر رو بدی

کد:

Type LOGFONT
   lfHeight As Long
   lfWidth As Long
   lfEscapement As Long
   lfOrientation As Long
   lfWeight As Long
   lfItalic As Byte
   lfUnderline As Byte
   lfStrikeOut As Byte
   lfCharSet As Byte
   lfOutPrecision As Byte
   lfClipPrecision As Byte
   lfQuality As Byte
   lfPitchAndFamily As Byte
   lfFaceName(LF_FACESIZE) As Byte
End Type

به این صورت که ابتدا یک Type از نوع LOGFONT تعریف میکنی بعد در پراپرتی این تابع به نام lfCharSet مشخص میکنی که برات فونت هایی که مثلا ARABIC رو ساپورت میکنن لیست کنه
اینم لیست کامل Charset ها

کد:

Private Const ARABIC_CHARSET As Long = 178
Private Const ALID_CHARSET As Long = VALID_CHARSET = -27
Private Const ANSI_CHARSET As Long = 0
Private Const BALTIC_CHARSET As Long = 186
Private Const CHINESEBIG5_CHARSET As Long = 136
Private Const DEFAULT_CHARSET As Long = 1
Private Const EASTEUROPE_CHARSET As Long = 238
Private Const GREEK_CHARSET As Long = 161
Private Const HANGEUL_CHARSET As Long = 129
Private Const HANGUL_CHARSET As Long = 129
Private Const HEBREW_CHARSET As Long = 177
Private Const INVALID_CHARSET As Long = -27
Private Const JOHAB_CHARSET As Long = 130
Private Const MAC_CHARSET As Long = 77
Private Const OEM_CHARSET As Long = 255
Private Const RUSSIAN_CHARSET As Long = 204
Private Const SHIFTJIS_CHARSET As Long = 128
Private Const SYMBOL_CHARSET As Long = 2
Private Const THAI_CHARSET As Long = 222
Private Const TURKISH_CHARSET As Long = 162
Private Const VIETNAMESE_CHARSET As Long = 163

اینم یه مثال برای کار کردن
Download Example