یکسان سازی فونت های موجود در 80 فرم

[ma.andishe]

با سلام و خسته نباشید خدمت دوستان عزیز
چطور میتوان فونتهای مو جود در 80فرم که در همه انهالیبل و کپشن و هر چیزی که خاصیت فونت را داشته باشد را تغییر داد ؟ به عبارتی نخواهیم به صورت جداگانه بشنیم برای تک تک اشیا فرم بیایم فونت انها را تغییر دهیم ممنون میشم راهنمایی بفرمایید

[M.T.P]

این Sub رو در یک ماژول قرار دهید:



Sub SetFont(CForm As Form)
On Error Resume Next
Dim Ctl As Control
For Each Ctl In CForm.Controls
Ctl.Font.Name = "Tahoma"
Ctl.Font.Size = 9
Next Ctl
End Sub


و در Form_Load هر فرم این کد رو بنویسید:



Call SetFont(Me)

[pcdownload.bloghaa.com]

Private Sub ChFont(frm As Object)
For i = 0 To frm.Controls.Count - 1
frm.Controls(i).Font = "Times New Roman"
Next i
End Sub

برای همه فرم ها باید ازین Procedure استفاده کنی.
البته با Forms.count هم میشه تعداد فرم ها رو به دست آورد.اما نه همه فرم ها فقط فرم هایی که لود شدن.

[ma.andishe]

با سلام وتشکر از دوستان عزیز جواب داد .اما این تغییرات فقط ذر زمان اجراست ولی بعد از خروج از حالت ران به حالت اولیه برگشت می شوند

[IamOverlord]

با سلام وتشکر از دوستان عزیز جواب داد .اما این تغییرات فقط ذر زمان اجراست ولی بعد از خروج از حالت ران به حالت اولیه برگشت می شوند

شما هدفتون نتیجه ی نهایی هست یا این که فقط خودتون در زمان طراحی با font دلخواهتون کار رو مشاهده کنید؟ کدی که دوستان گذاشتن جواب می ده.