کد:
Private Sub UserForm_Activate()
H = UserForm1.Height
UserForm1.Height = 0
For i = 1 To H [COLOR=#ff0000]Step 1.5سلام دوستان
در اين آموزش قصد دارم متحرك كردن فرم رو بهتون آموزش بدم. با اين كار شما ميتونين فرم جذاب تري داشته باشيد.
يك نمونه از نتيجه كار رو در كليپ زير مشاهده ميكنيد.
و اما آموزش:
بسيار ساده است. كافيه بعد از ايجاد فرم روي فرم راست كليك كرده و گزينه view code رو بزنين. حالا در اين قسمت كدهاي زير رو به فرم اضافه كنيد.
UserForm1.Height = i
Next i
End Sub
نمونه فايل رو هم براتون ضميمه ميكنم.[/COLOR]