Cara Disabled/Mematikan Button Close di VB 6.0

Assalamu’alaiku para bloggers, Salam semangat untuk Agan – agan yang ada di depan monitor, untuk kali ini Hamzah Fansyuri 14™ mau bagi tips untuk Para programmer termasuk saya,karena Sudah lama nggak update artikel tentang Visual Basic, oke sekarang nama tipsnya adalah cara mematikan Button close di VB 6.0 (Visual Basic), Tips ini di gunakan Jika anda membuat Program di vb yang Error jika di Tutup melalui Button close pada Form Border, oke nggak usah lama – lama langsung aja ke Codingnya

Hal yang di perlukan

1.     Computer/Laptop

2.     Aplikasi Visual basic (Ingat yang versi 6.0)

Sekarang yang harus anda lakukan adalah membuat Module dan memasukkan Code di bawah ini di dalam Module yang anda buat

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

Public Sub DisableCloseBtn(Frm As Form)

Dim hSysMenu As Long

hSysMenu = GetSystemMenu(Frm.hWnd, 0)

Call RemoveMenu(hSysMenu, 6, &H400)

Call RemoveMenu(hSysMenu, 5, &H400)

End Sub

Dan yang selanjutnya adalah memasukkan Code di bawah ini kedalam Form yang akan anda Disabled button Closenya

Private Sub Form_Load()

DisableCloseBtn Me

End Sub

Sekarang anda sudah bisa Mendisabled Button Close pada VB 6.0 dan dari code di atas anda bisa mengembangkan kembali seperti Disabled Minimize button tanpa dari Form Properties, Sekian dulu tips dari HF14 dan sekarang Ane mau pamit dulu kalau ada Pertanyaan, Saran, Kritik, semua itu bisa anda sampaikan di kotak Komentar