غیر قابل تغییر بودن فروم

[m2011kh]

من میخوام کاری کنم که اندازه فروم به هیچ وجه تغییر نکنه.
لطفا اگه کسی میتون کمک کنه :افسرده:

[quiet_programmer]

با سلام.

برای این کار کافیه خصیصه BorderStyle از فرم رو برابر Fixed Single انتخاب کنی.

[محسن واژدی]

سلام علیکم
در ساده ترین روش میتوانید از دستور زیر استفاده کنید:


Option Explicit
Private m_org_w&, m_org_h&
Private Sub Form_Load()
m_org_w& = Me.Width
m_org_h& = Me.Height
End Sub

Private Sub Form_Resize()
If WindowState = 2 Then WindowState = 0
If Not WindowState = 1 Then
Me.Width = m_org_w&
Me.Height = m_org_h&
End If
End Sub



موفق باشید

[shahabbasic]

سلام علیکم
در ساده ترین روش میتوانید از دستور زیر استفاده کنید:


Option Explicit
Private m_org_w&, m_org_h&
Private Sub Form_Load()
m_org_w& = Me.Width
m_org_h& = Me.Height
End Sub
Private Sub Form_Resize()
Me.Width = m_org_w&
Me.Height = m_org_h&
End Sub


موفق باشید


این دستور کامل نیست

باید اینجوری باشه
Private Sub Form_Load()
r1 = Me.Width
r2 = Me.Height
End Sub
Private Sub Form_Resize()
If me.WindowState = 2 Then me.WindowState = 0
If me.WindowState = 0 Then
me.Width = r1
me.Height = r2
End If
End Sub

[محسن واژدی]

این دستور کامل نیست

باید اینجوری باشه
Private Sub Form_Load()
r1 = Me.Width
r2 = Me.Height
.
.
.
بله، فقط Normal را حساب کرده بودم،
پست 3 ویرایش شد

موفق باشید

[m2011kh]

دست همه درد نکنه مشکل حل شد.
:چشمک: