سلام دوستان
در اين آموزش قصد دارم متحرك كردن فرم رو بهتون آموزش بدم. با اين كار شما ميتونين فرم جذاب تري داشته باشيد.
يك نمونه از نتيجه كار رو در كليپ زير مشاهده ميكنيد.
و اما آموزش:
بسيار ساده است. كافيه بعد از ايجاد فرم روي فرم راست كليك كرده و گزينه 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
نمونه فايل رو هم براتون ضميمه ميكنم.
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)