تغییر فونت کلی برای همه اشیا و فرم ها

[YasserDivaR]

سلام چجوری میشه فونت کلی رو برای کل پروژه تغییر داد
مثلا من میخوام وقتی برنامه لود شد تشخیص بده اگه ویندوز 8 و 8.1 باشه از فونت segoui استفاده کنه و اگه XP , 7 باشه از فونت Tahoma استفاده کنه
این کد تشخیص سیستم عامل رو هم بی زحمت بگین
ممنونم

[vbhamed]

سلام
با استفاده از For each می‌تونی کل کنترلهای فرم رو مرور کنی و فونتشون رو عوض کنی (On Error Resume Next رو حتما بزار تا روی اشیائی که فونت ندارن خطا نده)
On Error Resume Next
Dim obj As Controls
For Each obj In Controls
obj.Font.Name = "tahoma"
obj.Font.Size = 9
Next

کد تشخیص نوع ویندوز هم تو سایت و نت زیاده