Menonaktifkan Tombol Close Pada Form di Visual Basic 6

Prodeku - Mungkin anda pernah mencoba menonaktifkan Close Button ( tanda silang di pojok ) melalui Properties Windows. Sedangkan pada jendela properties tidak ada untuk menonaktifkan nya, yang ada hanya untuk mendisable Maximize/Minimize button.

Pada masalah ini, saya akan memberikan tutorial untuk menonaktifkan close button tersebut. Yuk ikuti tutorial berikut ini.

Membuat Form

untuk langkah awal, mari kita buat sebuah form dengan tampilan kurang lebih seperti gambar berikut ini.

Form

Kemudian langkah kedua, ketik kode berikut ini pada 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 DisableCloseButton(ByVal Frm As Form)
    Dim h As Long
    h = GetSystemMenu(Frm.hwnd, 0)
    RemoveMenu h, 6, &H400
    RemoveMenu h, 5, &H400
End Sub

Setelah itu, ketik kode berikut ini pada form_load

Private Sub Form_Load()
DisableCloseButton Me
End Sub

Jika sudah, silahkan ketik kode berikut ini pada bagian CommandButton

Private Sub Command1_Click()
    Unload Me
End Sub

Yups, Silahkan anda jalankan program tersebut. Apabila kode tersebut berhasil, maka Close Button yang ada pada form tersebut tidak akan dapat di klik.

Demikian tutorial menonaktifkan tombol close pada form di visual basic 6. terus ikuti tutorial lainnya hanya di prodeku. Selamat mencoba!

Bagikan Artikel ini