PDA

View Full Version : فونت کلیه کنترل ها


aleas2
پنج شنبه 12 تیر 1393, 15:21 عصر
سلام خسته نباشید چطور میتونم به برنامه ام این امکان بدم کاربر با انتخاب فونت مورد نظر فونت کلیه شی ها تغییر کنه؟
Mr.305
پنج شنبه 12 تیر 1393, 15:56 عصر
Dim s as control
for each s in me. controls
s.font.name="tahoma"
next
محمد فدوی
پنج شنبه 12 تیر 1393, 15:57 عصر
پیشنهاد میکنم فونت انتخاب شده رو توی تنظیمات برنامت ذخیره کنی و به کاربر بگی باید برنامه رو ریست کنی تا تغییرات رو ببینی! و توی روتین Form_Initialize فونت ذخیره شده توی تنظیمات رو به عنوان فونت کنترل ها قرار بدی.
اما اگه میخوای فونت تک تک کنترل های یک فرم رو عوض کنی میتونی اینجوری عمل کنی:

Dim ctrl
For Each ctrl In YourForm.Controls
ctrl.Font = ...
Next ctrl
aleas2
جمعه 13 تیر 1393, 01:30 صبح
روش اولی که گفتین کامل تر توضیح میدین متوجه بشم؟
Mr.305
جمعه 13 تیر 1393, 02:02 صبح
به فارسی میشه:
متغیر s از نوع کنترل(هر نوع کنترلی)
برای هر s(کنترل) در کنترل های من(فرم)
اسم فونت کنترل رو بزار ="tahoma"
به کنترل بعد برو
برای اطمینان هم میشه ی on error resume next اظافه کنی تا اگه کنترلی فونت ساپورت نمیکرد ارور نده