ايران ويج

چه جوري ميشه فونت كل اشياء درون فرم را با برنامه نويسي عوض كرد؟

کد:

Private Sub Form_Load()

On Error Resume Next

Dim ObjIn As Object

For Each ObjIn In Me.Controls

    With ObjIn

        .Font.Name = "Arial"

    End With

Next

End Sub

راستی این for ...in دیگه چه جاهایی کاربرد داره؟ من تو فلش که خیلی ازش استفاده می کنم اما تو ویژوال بیسیک تقریبا هیچ وقت استفاده نکردم

خيلي ممنون

aliomid

Darg

Blossom

aliomid