حذف 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

برای پس زمینه و حاشیه هم اگه مشکلی داری برو به این پست ها:
https://barnamenevis.org/showth...light=mdi+form

https://barnamenevis.org/showth...di+form&page=3
موفق باشی

[M-M-Mojtaba]

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

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