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

[EleRam]

سلام
چطور مي شه اسکريپت فونتها رو توي رانتايم عوض کرد؟!

مثلا امتحان کنيد فونت تاهوما رو توي رانتايم انتخاب کنيد (البته با متن فارسي)
اونوقت مي بينيد که همش خرچنگ قورباغه مي شه!!!

[EleRam]

بابا يکي نيست جواب ما رو بده؟
به خدا ثواب داره!

[Pedram_HookEx]

منظورت اينه كه ميخواي مثلا ميخواي هر فونت با استايل خاص خودش تو يه يك ListBox نمايش داده بشه

[EleRam]

نه دقيقا
ببين اگه توي ديالوگ باکس فونت ها رو توجه کني مي بيني که يه قسمت داره نوشته Script
من مي خوام اينو تشخيص بدم و البته بتونم تنظيمش هم بکنم

[Pedram_HookEx]

خوب این کارو میتونی با کد زیر که همون Script ی هست که در اون DialogBox میگی

کد:

.Font.Charset

Charset از نوع Integer هست و اینم یه لیست از اون مقدار هایی که میتونی بهش بدی

کد:

'Western          = 0  
'Hebrew           = 177
'Arabic           = 178
'Greek            = 161
'Turkish          = 162
'Baltic           = 186
'Central European = 238
'Cyrillic         = 204
'Thai             = 222
'Vietnamese       = 163

[EleRam]

آقا به اين راحتي بود .خيلي ممنون واقعا کمکم کردين
فقط چرا وقتي Arabic رو انتخاب مي کنم يه خورده همچين بگي نگي عوض ميشه (انگار فونتش رو عوض کرده باشي)!

[EleRam]

راستي اين که واسه ديالوگ باکس جواب نمي ده؟!
من فقط تونستم باهاش اسکريپت ليبل رو باهاش عوض کنم!

[Pedram_HookEx]

منظورت CommonDialog هست یا چیز دیگه

[EleRam]

آره ....

[Pedram_HookEx]

درسته نمیشه چون یک جعبه Dialog استاندارد هست که با فایل ها و نام اونها سرو کار داره و ویندوز هیچ وقت به تو اجازه ذخیره فایلی با CodePage های غیر استاندارد برای این کار رو نمیده

فقط همین البته در برنامه نویسی نشد نداریم ولی بیخیال بشی بهتره اگرم میخوای بری دنبالش باید از تابع زیر استفاده کنی

کد:

Declare Function ChooseFont Lib "comdlg32.dll" Alias "ChooseFontA" (pChoosefont As CHOOSEFONT) As Long

[EleRam]

ممنون از راهنمايي خوبت دوست عزيز
حالا راهي هم هست که بشه فهميد که مثلا فونت آريال از چه نوع اسکريپت هايي استفاده کرده؟