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

[M.T.P]

دوستان نحوه تغییر فونت همه کنترل های روی فرم چطوریه؟
این کد چطور باید باشه؟:متفکر:(؟؟؟)



On Error Resume Next
Dim Ctl as Control
For Each Ctl in Me.Controls
Ctl.Font = "???"
next

[حامد مصافی]

ساختار كنترل هاي روي فرم به صورت درختي است. يعني اين شبه كد كنترلي را كه روي يك كنترل ديگر (براي مثال panel ) است را نمي بيند.

نكته: در صورتي كه فونت فرم را تغيير دهيد فونت كنترل هاي فرزند (در صورتي كه قبلاً تغيير نكرده باشد) متناسب با فونت فرم تغيير خواهند كرد.

[Mani_rf]

احتیاجی به این کارها نیست ؛ هنگامی که شما Font فرم اصلی را عوض کنید تمامی کنترل های روی آن هم به صورت خودکار تغییر فونت می دهند.

[M.T.P]

احتیاجی به این کارها نیست ؛ هنگامی که شما Font فرم اصلی را عوض کنید تمامی کنترل های روی آن هم به صورت خودکار تغییر فونت می دهند.
نحوه تغییر فونت فرم در حین اجرا؟؟؟؟



me.font = "?????????"

[حامد مصافی]

me.font = new font ("tahoma", 10 )