باز شدن فرم ها بصورت متحرك

[Amir Ghasemiyan]

سلام دوستان

در اين آموزش قصد دارم متحرك كردن فرم رو بهتون آموزش بدم. با اين كار شما ميتونين فرم جذاب تري داشته باشيد.

يك نمونه از نتيجه كار رو در كليپ زير مشاهده ميكنيد.



http://www.aparat.com/v/sz1oB

و اما آموزش:
بسيار ساده است. كافيه بعد از ايجاد فرم روي فرم راست كليك كرده و گزينه view code رو بزنين. حالا در اين قسمت كدهاي زير رو به فرم اضافه كنيد.



Private Sub UserForm_Activate()
H = UserForm1.Height
UserForm1.Height = 0
For i = 1 To H Step 1.5
UserForm1.Height = i
Next i
End Sub


سرعت فرم رو ميتونين با قسميت كه قرمز كردم تعيين كنيد.

نمونه فايل رو هم براتون ضميمه ميكنم.