اعمال تغيير در صفات و ويژگي هاي آبجكت هاي مختلف روي فرم

[saeed1234n]

با سلام

دوستان عزيز

بنده بر روي يك فرم آبجكت هاي مختلفي دارم كه مي خواهم ويژگي هاي مشترك بعضي از آنها را بصورت يكجا

در يك تابعي در ماژول استاندارد تغيير دهم . ممنون مي شوم راهنمايي بفرماييد .

پيشاپيش از عنايت تمامي دوستان ، بزرگواران و اساتيد كمال تشكر و قدرداني را دارم . :تشویق::تشویق::تشویق:

[alirezabahrami]

با سلام

دوستان عزيز

بنده بر روي يك فرم آبجكت هاي مختلفي دارم كه مي خواهم ويژگي هاي مشترك بعضي از آنها را بصورت يكجا

در يك تابعي در ماژول استاندارد تغيير دهم . ممنون مي شوم راهنمايي بفرماييد .

پيشاپيش از عنايت تمامي دوستان ، بزرگواران و اساتيد كمال تشكر و قدرداني را دارم . :تشویق::تشویق::تشویق:
سلام سعید!
فانکشن زیر باعث تغییر اندازه فونت کلیه آبجکت های یک فرم با کنترل تایپ های acComboBox acListBox acLabel acTextBox acCommandButton میشود .
می توانید در بخش ماژول این فانکشن را ایجاد و در رویداد open فرم آن را فراخوانی نمائید.


Public Function ChangeObjectProperties(frName As String)
Dim frmname As Form
Set frmname = Forms(frName)
Dim Ctl As Control, i As Integer
For Each Ctl In frmname.Controls
With Ctl
If .ControlType = acComboBox Or .ControlType = acListBox Or .ControlType = acLabel Or .ControlType = acTextBox Or .ControlType = acCommandButton Then
.FontSize = "12"
End If
End With
Next Ctl
Set frm = Nothing
Set frmname = Nothing
End Function


البته کنترل تایپ آبجکت ها بیشتر از اینها است.
در رویدادopen فرم با کد زیر این فانکشن را فراخوانی می کنید:


ChangeObjectProperties (Me.Name)


با ارائه توضیحات بیشتر از سوی جنابعالی میتوان حرفه ای تر عمل نمود.
یا علی

[saeed1234n]

با سلام

خدمت استاد عزیزم جناب آقای بهرامی :


جنابعالی مثل همیشه احساس شگفتی و قدردانی ما را بر انگیختید .




111143