حذف maximize و minimize و close در فرم mdi

[sahand02]

سلام
من كد حذف دكمه هاي close و maximize و minimize در فرم mdi رو مي خوام و مي خوام نشه فرم رو از حالت maximize تغيير داد لطفاً كمكم كنيد

[mostafa_bahar]

شما با resize و cancel در unload کار کن

[Babak.Hassanpour]

سلام دوست من این کد ها رو توی فرم MDI اضافه کن:



Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _
As Long


Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)


Private Sub MDIForm_Load()
Dim L As Long
L = GetWindowLong(Me.hwnd, GWL_STYLE)
L = L And Not (WS_MINIMIZEBOX)
L = L And Not (WS_MAXIMIZEBOX)
L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
End Sub




برای پس زمینه و حاشیه هم اگه مشکلی داری برو به این پست ها:
http://barnamenevis.org/forum/showthread.php?t=173833&highlight=mdi+form

http://barnamenevis.org/forum/showthread.php?t=168954&highlight=mdi+form&page=3
موفق باشی

[M-M-Mojtaba]

سلام. من اين كد رو نوشتم ولي دكمه Close را حذف نكرد؟

در ضمن در مورد خطوطي كه اول نوشته ايد (خطوطي كه با Private نوشته شده است) مي شه توضيح بديد؟ ممنون