برنامه های کند » برنامه های سریع

[مهران رسا]

برای مثال :

در نظر بگیر قصد داری کدی بنویسی که فرم رو با استفاده از PSet به طور کامل به رنگ سیاه در بیاره . معمولاً یه همچنی چیزی باید نوشته بشه :

For i = 1 To Me.ScaleWidth

    For j = 1 To Me.ScaleHeight

        DoEvents

        PSet (i, j)

    Next

Next

ولی با همون کارایی (با توجه به حساسیت صفحه نمایش و چشم انسان) و برای اجرا با سرعت بیشتر ، میشه کد بالا رو به صورت زیر نوشت :

For i = 1 To Me.ScaleWidth Step 10

    For j = 1 To Me.ScaleHeight Step 10

        DoEvents

        PSet (i, j)

    Next

Next

به VB هم ایراد نگیرین ...