تغییر اندازه فرم به اندازه تعیین شده [بایگانی]

silverado

شنبه 03 دی 1390, 08:31 صبح

سلام . چه کدی بنویسم که تو برنامه وقتی کاربر میخواد فرم رو تغییر اندازه بده اندازه فرم از یه حدی کمتر نشه مثلاً وقتی کاربر داره فرم رو تعییر اندازه می ده طول و عرض فرم از 300*500 کمتر نشه

butterfly8528

شنبه 03 دی 1390, 17:45 عصر

سلام دوست عزیز .
این موضوع قبلا مطرح شده و به نتیجه رسیده ، کافی بود جستجو می کردید .
Option Explicit

Private Const MinWidth = 5500, MinHeight = 5500

Private Sub Form_Resize()
If Me.Width < MinWidth Then Me.Enabled = False: Me.Width = MinWidth: Me.Enabled = True
If Me.Height < MinHeight Then Me.Enabled = False: Me.Height = MinHeight: Me.Enabled = True
End Sub

موفق باشید :لبخندساده:.