ايران ويج

نسخه‌ی کامل: اسکريپت فونت ها
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
سلام
چطور مي شه اسکريپت فونتها رو توي رانتايم عوض کرد؟!

مثلا امتحان کنيد فونت تاهوما رو توي رانتايم انتخاب کنيد (البته با متن فارسي)
اونوقت مي بينيد که همش خرچنگ قورباغه مي شه!!!
بابا يکي نيست جواب ما رو بده؟
به خدا ثواب داره!
منظورت اينه كه ميخواي مثلا ميخواي هر فونت با استايل خاص خودش تو يه يك ListBox نمايش داده بشه
نه دقيقا
ببين اگه توي ديالوگ باکس فونت ها رو توجه کني مي بيني که يه قسمت داره نوشته Script
من مي خوام اينو تشخيص بدم و البته بتونم تنظيمش هم بکنم
خوب این کارو میتونی با کد زیر که همون 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
آقا به اين راحتي بود .خيلي ممنون واقعا کمکم کردين
فقط چرا وقتي Arabic رو انتخاب مي کنم يه خورده همچين بگي نگي عوض ميشه (انگار فونتش رو عوض کرده باشي)!
راستي اين که واسه ديالوگ باکس جواب نمي ده؟!
من فقط تونستم باهاش اسکريپت ليبل رو باهاش عوض کنم!
منظورت CommonDialog هست یا چیز دیگه
آره ....
درسته نمیشه چون یک جعبه Dialog استاندارد هست که با فایل ها و نام اونها سرو کار داره و ویندوز هیچ وقت به تو اجازه ذخیره فایلی با CodePage های غیر استاندارد برای این کار رو نمیده

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

کد:
Declare Function ChooseFont Lib "comdlg32.dll" Alias "ChooseFontA" (pChoosefont As CHOOSEFONT) As Long
ممنون از راهنمايي خوبت دوست عزيز
حالا راهي هم هست که بشه فهميد که مثلا فونت آريال از چه نوع اسکريپت هايي استفاده کرده؟
صفحه‌ها: 1 2