تغییر دادن Property تمام Object ها در زمان اجرا مثل Font

[armin_izer]

سلام به کدر های عزیز
اینجا یک کد نسبتا جالب براتون مینویسم. شاید به بعضی ها کمک کنه :D

برای تغییر دادن تمام Object های یک فرم میتونید از کد زیر استفاده کنید :

Public Sub CFont(FName as Object)
Dim OBJ as Object
For Each OBJ in FName.Controls
OBJ.Font.Name = "Tahoma"
End Sub

مثال:
Call CFont(Frmmain)

__________________________________________________ ____________

حالا اگر میخایید یکم Advance تر کار کنید بهتره از این کد استفاده کنید:

Public Sub CFont(FName as Object)
Dim OBJ as Object
For Each Obj In FName.Controls
'دقت کنید
If TypeName(OBJ) = "TextBox" then
OBJ.Font.Name = "Tahoma"
ElseIF TypeName(OBJ) = "ComboBox" then
OBJ.Font.Name = "Verdena"
OBJ.Font.Italic = True
End If


امیدوارم تونسته باشم کمکی کنم.
"" لطفا اگه کسی از این کد خوشش اومد یه پیغام برام بفرسته""
Bye :-*

[بابک زواری]

ممنون آرمین جان
اینا تقریبا از مفاهیم اولیه هستند بهر حال ممنون
در ضمن موقع وارد کردن , کد رو انتخاب کن و کلید
Code رو بزن تا مرتب نمایش داده بشه

[armin_izer]

mamnoon aghaye code nevis
chashm
akhe man membere jadid hastam :D
kheili vared be emkanat naboodam