غیر فعال کردن sizeable فرم MDI

[سپهر-111]

سلام دوستان گل

چطور میشه sizeable فرم MDI رو غیر فعال کرد ؟ !(غیر فعال کردن تغییر سایز فرم MDI)
ممنون میشم راهنمایی بفرمایید

باتشکر

[mehran901]

سلام ، خب ی راه سادش اینه که تو resize event ابعاد رو مشخص کنین مثلا "

Private Sub MDIForm_Resize()
Me.Width = 5000
Me.Height = 5000
End Sub

[mehran901]

البته با API هم میشه ... مثلا :



Option Explicit

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000



Private Sub MDIForm_Load()
Dim dwStyle As Long
dwStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, dwStyle And (Not WS_THICKFRAME)
End Sub

[program2vb]

سلام دوستان گل

چطور میشه sizeable فرم MDI رو غیر فعال کرد ؟ !(غیر فعال کردن تغییر سایز فرم MDI)
ممنون میشم راهنمایی بفرمایید

باتشکر

سلام خدمت شما دوست عزیز ....

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

موفق و پیروز باشید در پناه خدا .... یاعلی