read more......

Tips & Tricks: Menonaktifkan tombol Close pada Form                                                      

Berikut source-code untuk menonaktifkan tombol Close  pada suatu  Form. Tempatkan source-code ini dalam module.

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd _
As Long, ByVal bRevert As Boolean) As Long

Private Declare Function GetMenuItemCount Lib "user32" (ByVal _
hMenu 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 Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&

Public Sub DisableClose(frm As Form, Optional Disable As Boolean = True)
      '...... Jika Parameter Disable = True maka tombol Close akan dinonaktifkan,
      '...... Jika Parameter Disable = False maka tombol Close akan aktif kembali,

      Dim hMenu As Long
      Dim nCount As Long

      If Disable Then
            hMenu = GetSystemMenu(frm.hwnd, False)
            nCount = GetMenuItemCount(hMenu)

           Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or _
                  MF_BYPOSITION)
           Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or _
                  MF_BYPOSITION)

           DrawMenuBar frm.hwnd
      Else
           GetSystemMenu frm.hwnd, True

           DrawMenuBar frm.hwnd
      End If

End Sub