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

[aleas2]

سلام خسته نباشید دوستان چطور میشه این امکان به برنامه اضافه کرد کاربر بتونه فونت تمامی کنترل ها فرم ها همه رو بتونه تغییر بده و بتونه ذخیره کنه؟

[Hamed_H8]

به نظر من :
میشه مقدار فونت تمامی کنترل های برنامه رو به جای وارد کردن مستقیم ، هنگام اجرای برنامه از مقداری که در جایی درون بانک با در یک فایل ذخیره شده ، خونده بشه .
یعنی موقع اجرا بیاید و تک تک کنترل ها رو ، مشخصه فونتش رو برابر یک متغیر قرار بدید که از همون مقدار ذخیره شده مقداردهی شده !
به طور مثال :

Command1.FontSize=TmpFSize


حالا اون مقدار ذخیره شده رو شما می تونید توی بخشی که در تنظيمات در نظر می گیرید تغییر و دوباره در محل قبلیش ذخیره کنید !

اگر منظورتون رو درست متوجه شده باشم ! :لبخندساده:

[aleas2]

شاید 500 تا کنترل باشه نمیشه که یکی یکی مقدار فونت تغییر بدم یه راه با کدنویسی کمتر بگین

[just4froum]

با سلام :

On Error Resume Next

Dim x As Integer
Dim m As Object

For x = 0 To Me.Count - 1
Me(x).FontName = "Tahoma"
Me(x).FontUnderline = True
Next x

[R2du-soft]

سلام قبلا این سوال رو مطرح نکرده بودید؟!
http://barnamenevis.org/showthread.php?458895-%D9%81%D9%88%D9%86%D8%AA-%DA%A9%D9%84%DB%8C%D9%87-%DA%A9%D9%86%D8%AA%D8%B1%D9%84-%D9%87%D8%A7



Private Sub Command1_Click()
Dim s As Control
For Each s In Me.Controls
s.Font.Name = "tahoma"
Next
End Sub