کد بسته نشدن با ضرب در

[sinashahab]

سلام
کدی هست که وقتی ضرب در رو میزنی بسته نشه ؟
یعنی تو این چی باید بنویسم ؟:تشویق::تشویق: ( form_unload )

[Armin060]

تو همون رخداد می نويسی Cancel. اين يك متغير از نوع Integer هست كه در تعريف Event تعريف شده.اگر مقدار اين متغير برابر يك باشد Cancel انجام ميشه، يعنی فورم بسته نميشه و اگر مقدار Cancel برابر صفر باشه فورم به حالت عادی بر ميگرده. مقدار Cancel به صورت پيش فرز صفر است. به همين دليل فورم بسته ميشه.:لبخند:

[r0ot$harp]

دوست عزیز فکر می کنم با این دو خط همه چی رو کاملا متوجه شید .



Private Sub Form_Unload(Cancel As Integer)

Cancel = 1 'Do Not Close Form

' Cancel = 0 'Close Form


End Sub




باتشکر احسان

[kuh_nur]

فکر کنم اینم بد نباشه کارش غیر فعال کردن دکمه Close
اول یه ماژول به پروژه اضافه کن و این کد ها رو توش کپی کن
================================================== =================
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
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

Private Sub Form_Load()
DisableXbutton (Me.hwnd)
End Sub


امیدوارم بدرت بخوره