اعمال تغيير روي هكه كنترل هاي پروژه [بایگانی]

adib202

چهارشنبه 03 مهر 1392, 00:28 صبح

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

Dim ctl As Control
For Each ctl In Me.Controls
If (TypeOf ctl Is CommandButton) Then
ctl.Font.Name = Tahoma
End If
Next

واسه كل پروژه چيكار بايد بكنم.لطفا راهنمايي كنيد.ممنون

m.4.r.m

چهارشنبه 03 مهر 1392, 01:50 صبح

برای هر فرم باید این کد رو بنویسی یا توی ماژول برای تمام کنترل ها بنویسی مثلا برای لیبل ها ، باتون ها و ... و در هر فرم فراخوانی کنید .

adib202

چهارشنبه 03 مهر 1392, 11:20 صبح

میشه راجع به نوشتن تو ماژول راهنمایی کنی؟

Mr'Jamshidy

چهارشنبه 03 مهر 1392, 15:17 عصر

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

Dim ctl As Control
For Each ctl In Me.Controls
If (TypeOf ctl Is CommandButton) Then
ctl.Font.Name = Tahoma
End If
Next

واسه كل پروژه چيكار بايد بكنم.لطفا راهنمايي كنيد.ممنون

Dim ctl As Control
Dim frm As Form

For Each frm In Forms
For Each ctl In frm.Controls
If (TypeOf ctl Is CommandButton) Then
ctl.Font.Name = Tahoma
End If
Next
Next

فقط مشکلی که داره روی فرم هایی که در حافظه بارگزاری شده جواب میده (فرم هایی که لود شده باشه)

adib202

چهارشنبه 03 مهر 1392, 18:54 عصر

این کد توی فرم قرار میگیره یا ماژول؟

Mr'Jamshidy

چهارشنبه 03 مهر 1392, 19:57 عصر

این کد توی فرم قرار میگیره یا ماژول؟

فرقی نداره