خاموش شدن دکمه ی ضرب در

نقل قول:

---

نوشته شده توسط MrJamshidy [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کی میشه فرهنگ سرچ جا بیفته؟؟

کد:

---

Public Const SC_CLOSE = &HF060

---

کد:

---

Public Const MF_BYCOMMAND = &H0

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

Public Sub DisableXbutton(ByVal frmHwnd As Long)
  Dim hMenu As Long
      hMenu = GetSystemMenu(frmHwnd, 0&)
      If hMenu Then
      Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
      DrawMenuBar (frmHwnd)
      End If

End Sub

---

---

این کار هایی که شما میکنید یعنی چه؟

من صد بار گفتم که هیچی حالیم نیست.

این کدها ماله چیه؟من که کدی نخواسته بودم.

سلام.
آقای توکلی سعی کن از کمک های دوستان استفاده کنی. انتظار نداشته باش پروژه آماده برات بنویسن و آپ کنن. خودت هم کمی تلاش کن.

کل اون کدها رو باید کپی کنی داخل یه ماژول.
بعد هر جا که خواستی دکمه غیر فعال بشه، اینو می نویسی.
DisableXbutton form1.hwnd