غیر فعال نمودن کلید ماکزیمم

[MMR_1344]

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

[__siavash__]

Option Explicit

Private Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400&

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
RemoveMenu hSysMenu, 6, MF_BYPOSITION
DrawMenuBar Me.hwnd
End If
End Sub

[(سیدشریفی)]

از قسمت Properties گزینه MaxButton را به False تبدیل کنید

[MMR_1344]

آقا سیاوش از برنامه ارسالی ممنونم

[MMR_1344]

دوست من اگر امکان داره یک توضیح کوچکی راجب برنامه و اینکه هر کدوم از متغیرها چی هستن بزاری متشکر میشم

[__siavash__]

تابع GetSystemMenu:
به ما اجازه میده که به منوی کنترل دسترسی پیدا کنیم
* اگر پارامتر دوم False باشه یه هندل از منوی کنترل به ما میده برای ویرایش کردن اون.
* اگر پارامتر دوم True باشه منوی کنترل رو به حالت پیش فرض برمیکردونه و مقدار برگشتی NUll خواهد بود.

تابع RemoveMenu:
برای حذف یک آیتم از منو استفاده میشه.

تابع DrawMenuBar:
وقتی تغییراتی رو روی نوار منو انجام میدیم این تابع رو فراخوانی میکنیم تا تغییرات را اعمال کند.

ثابت MF_BYCOMMAND:
یک مشخصه از منو میباشد

ثابت MF_BYPOSITION:
یک شماره بر پاییه صفر که موقیت منوی مورد نظر را مشخص میکند.

متغییر hSysMenu:
هندل نوار منو در این متغییر قرار میگیرد.

منویی که موقیت 6 رو دارد حذف میکند

RemoveMenu hSysMenu, 6, MF_BYPOSITION

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

DrawMenuBar Me.hwnd

البته من سوال شما رو اشتباه متوجه شدم فکر کردم شما میخواید گزینه Close رو غیر فعال کنید
برای غیر فعال کردن گزینه Max شما BorderStyle رو روی حالت 2 - Sizable و پراپرتی MaxButton رو به False تنظیم کنید.

[MMR_1344]

دوست عزیز از محبتی که کرد بسیار متشکرم اگر ممکنه به این سوال من هم پاسخ بده از شماره های دیگه برای غیر فعال کردن دیگر منوها میشه استفاده کرد یعنی اگر در فرم ما چند منو وجود داشته باشه اونها رو هم ممکنه غیر فعال کرد
بهر حال از محبت تمامی دوستان سپاسگذارم

[__siavash__]

منظور شما منوهای سیستمی هستش یا منو هایی که با Menu Editor درست میکنید ؟