View Full Version : تغییر فونت تمام کنترل ها
aleas2
دوشنبه 30 تیر 1393, 23:16 عصر
سلام خسته نباشید دوستان چطور میشه این امکان به برنامه اضافه کرد کاربر بتونه فونت تمامی کنترل ها فرم ها همه رو بتونه تغییر بده و بتونه ذخیره کنه؟
Hamed_H8
دوشنبه 30 تیر 1393, 23:31 عصر
به نظر من :
میشه مقدار فونت تمامی کنترل های برنامه رو به جای وارد کردن مستقیم ، هنگام اجرای برنامه از مقداری که در جایی درون بانک با در یک فایل ذخیره شده ، خونده بشه .
یعنی موقع اجرا بیاید و تک تک کنترل ها رو ، مشخصه فونتش رو برابر یک متغیر قرار بدید که از همون مقدار ذخیره شده مقداردهی شده !
به طور مثال :
Command1.FontSize=TmpFSize
حالا اون مقدار ذخیره شده رو شما می تونید توی بخشی که در تنظيمات در نظر می گیرید تغییر و دوباره در محل قبلیش ذخیره کنید !
اگر منظورتون رو درست متوجه شده باشم ! :لبخندساده:
aleas2
دوشنبه 30 تیر 1393, 23:50 عصر
شاید 500 تا کنترل باشه نمیشه که یکی یکی مقدار فونت تغییر بدم یه راه با کدنویسی کمتر بگین
just4froum
سه شنبه 31 تیر 1393, 00:00 صبح
با سلام :
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
سه شنبه 31 تیر 1393, 00:05 صبح
سلام قبلا این سوال رو مطرح نکرده بودید؟!
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.