Mendisable Tombol Close Pada Form

Menonaktifkan tombol close (tanda silang) pada form. Mungkin dalam benak anda pernah berpikir untuk menonaktifkan tombol close pada sebuah form dalam vb6. Kalau tombol maximize dan minimize bisa dinonaktifkan atau didisable lewat properties, tapi tombol close tidak bisa dilakukan lewat properties.  Apakah anda sudah tahu caranya. Kalau belum tahu caranya silahkan ikuti langkah-langkah berikut ini

Sebagai contoh saya akan membuat sebuah form dengan tampilan seperti gambar berikut ini

Mendisable/Menonaktifkan Tombol Close Pada Form

kemudian ketikan kode program berikut ini di bagian general_declaration

Private Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, ByVal bRevert 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 DisableCloseBtn(ByVal Frm As Form)
    Dim h As Long
    h = GetSystemMenu(Frm.hwnd, 0)
    RemoveMenu h, 6, &H400
    RemoveMenu h, 5, &H400
End Sub

Kemudian pada form_load ketikan kode berikut ini

Private Sub Form_Load()
    DisableCloseBtn Me
End Sub

kemudian pada CommandButton ketikan kode berikut ini

Private Sub Command1_Click()
    Unload Me
End Sub

jika sudah silahkan dijalankan. Jika berhasil maka tombol close yang ada pada form tidak akan bisa diklik Jika anda tidak ingin report menulis kodenya silahkan download source codenya dilink download di akhir tulisan ini.

DOWNLOAD

Keyword:
Mendisable Tombol Close Pada Form,Menonaktifkan Tombol Close Pada Form,Mematikan Tombol Close Pada Form,Mendisable Tombol Pada Form